=================================================================== RCS file: /cvsrepo/anoncvs/cvs/src/usr.bin/awk/lib.c,v retrieving revision 1.5 retrieving revision 1.6 diff -u -r1.5 -r1.6 --- src/usr.bin/awk/lib.c 1999/04/18 17:06:30 1.5 +++ src/usr.bin/awk/lib.c 1999/04/20 17:31:29 1.6 @@ -1,4 +1,4 @@ -/* $OpenBSD: lib.c,v 1.5 1999/04/18 17:06:30 millert Exp $ */ +/* $OpenBSD: lib.c,v 1.6 1999/04/20 17:31:29 millert Exp $ */ /**************************************************************** Copyright (C) Lucent Technologies 1997 All Rights Reserved @@ -487,6 +487,8 @@ fprintf(stderr, " at source line %d", lineno); if (curfname != NULL) fprintf(stderr, " in function %s", curfname); + if (compile_time == 1 && cursource() != NULL) + fprintf(stderr, " source file %s", cursource()); fprintf(stderr, "\n"); errorflag = 2; eprint(); @@ -541,9 +543,12 @@ fprintf(stderr, "\n"); } if (compile_time != 2 && curnode) - fprintf(stderr, " source line number %d\n", curnode->lineno); + fprintf(stderr, " source line number %d", curnode->lineno); else if (compile_time != 2 && lineno) - fprintf(stderr, " source line number %d\n", lineno); + fprintf(stderr, " source line number %d", lineno); + if (compile_time == 1 && cursource() != NULL) + fprintf(stderr, " source file %s", cursource()); + fprintf(stderr, "\n"); eprint(); if (f) { if (dbg > 1) /* core dump if serious debugging on */ @@ -602,7 +607,6 @@ double errcheck(double x, char *s) { - extern int errno; if (errno == EDOM) { errno = 0;