version 1.5, 1999/04/18 17:06:30 |
version 1.6, 1999/04/20 17:31:29 |
|
|
fprintf(stderr, " at source line %d", lineno); |
fprintf(stderr, " at source line %d", lineno); |
if (curfname != NULL) |
if (curfname != NULL) |
fprintf(stderr, " in function %s", curfname); |
fprintf(stderr, " in function %s", curfname); |
|
if (compile_time == 1 && cursource() != NULL) |
|
fprintf(stderr, " source file %s", cursource()); |
fprintf(stderr, "\n"); |
fprintf(stderr, "\n"); |
errorflag = 2; |
errorflag = 2; |
eprint(); |
eprint(); |
|
|
fprintf(stderr, "\n"); |
fprintf(stderr, "\n"); |
} |
} |
if (compile_time != 2 && curnode) |
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) |
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(); |
eprint(); |
if (f) { |
if (f) { |
if (dbg > 1) /* core dump if serious debugging on */ |
if (dbg > 1) /* core dump if serious debugging on */ |
|
|
|
|
double errcheck(double x, char *s) |
double errcheck(double x, char *s) |
{ |
{ |
extern int errno; |
|
|
|
if (errno == EDOM) { |
if (errno == EDOM) { |
errno = 0; |
errno = 0; |