[unix-history] / usr / src / usr.bin / pascal / libpc / ERROR.c

/* Copyright (c) 1979 Regents of the University of California */

static char sccsid[] = "@(#)ERROR.c 1.10 %G%";

#include	<stdio.h>
#include	<signal.h>

/*
 * Routine ERROR is called from the runtime library when a runtime
 * error occurs. Its arguments are a pointer to an error message and 
 * an error specific piece of data.
 */
long
ERROR(msg, d1, d2)

	char	*msg;
	long	d1, d2;
{
	PFLUSH();
	fputc('\n',stderr);
	fprintf(stderr, msg, d1, d2);
	kill(getpid(), SIGTRAP);
	return d1;
}
Commit	Line	Data
0b85893f KM	1	/* Copyright (c) 1979 Regents of the University of California */
0b85893f KM	2
5e75e883	3	static char sccsid[] = "@(#)ERROR.c 1.10 %G%";
0b85893f	4
e939d449	5	#include <stdio.h>
5e75e883	6	#include <signal.h>
0b85893f KM	7
0b85893f KM	8	/*
86997b19 KM	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.
0b85893f	12	*/
492cc5d3	13	long
86997b19	14	ERROR(msg, d1, d2)
0b85893f	15
d3fdcc0c	16	char *msg;
86997b19	17	long d1, d2;
d3fdcc0c	18	{
0b85893f KM	19	PFLUSH();
0b85893f KM	20	fputc('\n',stderr);
86997b19	21	fprintf(stderr, msg, d1, d2);
5e75e883	22	kill(getpid(), SIGTRAP);
86997b19	23	return d1;
0b85893f	24	}