contrib/gas-1.38/input-scrub.c
/*
 *			a s _ w h e r e ( )
 *
 * Write a line to stderr locating where we are in reading
 * input source files.
 * As a sop to the debugger of AS, pretty-print the offending line.
 */
a s _ w h e r e ( )
Write a line to stderr locating where we are in reading
input source files.
As a sop to the debugger of AS, pretty-print the offending line.
a s _ w h e r e ( ) Write a line to stderr locating where we are in reading input source files . As a sop to the debugger of AS pretty - print the offending line .
void
as_where()
{
  char *p;
  line_numberT line;
  if (physical_input_file)
    {				
      if (input_file_is_open())
	{			
#ifdef DONTDEF
	  fprintf (stderr," @ physical line %ld., file \"%s\"",
		   (long) physical_input_line, physical_input_file);
	  fprintf (stderr," @ logical line %ld., file \"%s\"\n",
		   (long) logical_input_line, logical_input_file);
	  (void)putc(' ', stderr);
	  as_howmuch (stderr);
	  (void)putc('\n', stderr);
#else
		p = logical_input_file ? logical_input_file : physical_input_file;
		line = logical_input_line ? logical_input_line : physical_input_line;
		fprintf(stderr,"%s:%u:", p, line);
#endif
	}
      else
	{
#ifdef DONTDEF
	  fprintf (stderr," After reading source.\n");
#else
	p = logical_input_file ? logical_input_file : physical_input_file;
	line = logical_input_line ? logical_input_line : physical_input_line;
	fprintf (stderr,"%s:unknown:", p);
#endif
	}
    }
  else
    {
#ifdef DONTDEF
      fprintf (stderr," Before reading source.\n");
#else
#endif
    }
}
void as_where ( ) { char * p ; line_numberT line ; if ( physical_input_file ) { if ( input_file_is_open ( ) ) { #ifdef DONTDEF fprintf ( stderr , " \" \" " , ( long ) physical_input_line , physical_input_file ) ; fprintf ( stderr , " \" \" \n " , ( long ) logical_input_line , logical_input_file ) ; ( void ) putc ( ' ' , stderr ) ; as_howmuch ( stderr ) ; ( void ) putc ( ' \n ' , stderr ) ; #else p = logical_input_file ? logical_input_file : physical_input_file ; line = logical_input_line ? logical_input_line : physical_input_line ; fprintf ( stderr , " " , p , line ) ; #endif } else { #ifdef DONTDEF fprintf ( stderr , " \n " ) ; #else p = logical_input_file ? logical_input_file : physical_input_file ; line = logical_input_line ? logical_input_line : physical_input_line ; fprintf ( stderr , " " , p ) ; #endif } } else { #ifdef DONTDEF fprintf ( stderr , " \n " ) ; #else #endif } }
a s _ w h e r e ( )
 Write a line to stderr locating where we are in reading
 input source files.
a s _ w h e r e ( ) Write a line to stderr locating where we are in reading input source files .
/* we tried to read SOME source */ /* we can still read lines from source */