-_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;
-}
-#endif /* __STDC__ */
-
-
-/* a debug function
- hex dump 'size' bytes starting at 'ptr' */
-
-void
-_bfd_hexdump (level, ptr, size, offset)
- int level;
- unsigned char *ptr;
- int size;
- int offset;