- fflush(output);
- va_end(args);
-
- return;
-}
-
-#else /* not __STDC__ */
-
-void
-_bfd_vms_debug (level, format, a1, a2, a3, a4, a5, a6)
- int level;
- char *format;
- long a1; long a2; long a3;
- long a4; long a5; long a6;
-{
- static int min_level = -1;
- static FILE *output = NULL;
- char *eptr;
-
- if (min_level == -1)
- {
- if ((eptr = getenv("VMS_DEBUG")) != NULL)
- {
- min_level = atoi(eptr);
- output = stderr;
- }
- else
- min_level = 0;
- }
- if (output == NULL)
- return;
- if (level > min_level)
- return;
-
- while (--level>0)
- fprintf (output, " ");
- fprintf (output, format, a1, a2, a3, a4, a5, a6);
- fflush(output);
-
- return;