xref: /csrg-svn/usr.bin/pascal/libpc/ASRTS.c (revision 9133)
1*9133Smckusick /* Copyright (c) 1982 Regents of the University of California */
2*9133Smckusick 
3*9133Smckusick static char sccsid[] = "@(#)ASRTS.c 1.1 11/12/82";
4*9133Smckusick 
5*9133Smckusick char EASRTS[] = "Assertion failed: %s\n";
6*9133Smckusick 
7*9133Smckusick ASRTS(cond, stmt)
8*9133Smckusick 	short	cond;
9*9133Smckusick 	char	*stmt;
10*9133Smckusick {
11*9133Smckusick 	if (cond)
12*9133Smckusick 		return;
13*9133Smckusick 	ERROR(EASRTS, stmt);
14*9133Smckusick 	return;
15*9133Smckusick }
16