xref: /original-bsd/usr.bin/pascal/libpc/ERROR.c (revision aba77441)
1 /* Copyright (c) 1979 Regents of the University of California */
2 
3 static char sccsid[] = "@(#)ERROR.c 1.10 01/10/83";
4 
5 #include	<stdio.h>
6 #include	<signal.h>
7 
8 /*
9  * Routine ERROR is called from the runtime library when a runtime
10  * error occurs. Its arguments are a pointer to an error message and
11  * an error specific piece of data.
12  */
13 long
14 ERROR(msg, d1, d2)
15 
16 	char	*msg;
17 	long	d1, d2;
18 {
19 	PFLUSH();
20 	fputc('\n',stderr);
21 	fprintf(stderr, msg, d1, d2);
22 	kill(getpid(), SIGTRAP);
23 	return d1;
24 }
25