1 /* Copyright (c) 1979 Regents of the University of California */ 2 3 static char sccsid[] = "@(#)ERROR.c 1.8 06/10/81"; 4 5 #include <stdio.h> 6 #include <signal.h> 7 #include "h00vars.h" 8 9 /* 10 * Routine ERROR is called from the runtime library when a runtime 11 * error occurs. Its arguments are a pointer to an error message and 12 * an error specific piece of data. 13 */ 14 long 15 ERROR(msg, d1, d2) 16 17 char *msg; 18 long d1, d2; 19 { 20 PFLUSH(); 21 fputc('\n',stderr); 22 SETRACE(); 23 /* 24 * Historical anomaly 25 */ 26 if ((int)msg == 5) { 27 fprintf(stderr, "Label of %D not found in case\n", d1); 28 return d1; 29 } 30 fprintf(stderr, msg, d1, d2); 31 return d1; 32 } 33