-/*
- * new_logical_line()
- *
- * Tells us what the new logical line number and file are.
- * If the line_number is <0, we don't change the current logical line number.
- * If the fname is NULL, we don't change the current logical file name.
- */
-void new_logical_line(fname, line_number)
-char *fname; /* DON'T destroy it! We point to it! */
-int line_number;
-{
- if (fname) {
- logical_input_file = fname;
- } /* if we have a file name */
-
- if (line_number >= 0) {
- logical_input_line = line_number;
- } /* if we have a line number */
-} /* new_logical_line() */
-\f
-/*
- * 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 (logical_input_file && (logical_input_line > 0)) {
- p = logical_input_file;
- line = logical_input_line;
- } else {
- p = physical_input_file;
- line = physical_input_line;
- } /* line number should match file name */
-
- fprintf(stderr, "%s:%u: ", p, line);
-
-#ifdef DONTDEF
- if (physical_input_file) {
- if (input_file_is_open()) { /* we can still read lines from source */
- 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 {
- fprintf(stderr, " After reading source.\n");
- } /* input file is still open */
- } else {
- fprintf(stderr, " Before reading source.\n");
- } /* we tried to read SOME source */
-#endif /* DONTDEF */
-
- return;
-} /* as_where() */
+/* Tells us what the new logical line number and file are.
+ If the line_number is -1, we don't change the current logical line
+ number. If it is -2, we decrement the logical line number (this is
+ to support the .appfile pseudo-op inserted into the stream by
+ do_scrub_chars).
+ If the fname is NULL, we don't change the current logical file name.
+ Returns nonzero if the filename actually changes. */