xref: /csrg-svn/usr.bin/pascal/libpc/ASRT.c (revision 9136)
11639Smckusick /* Copyright (c) 1979 Regents of the University of California */
21639Smckusick 
3*9136Smckusick static char sccsid[] = "@(#)ASRT.c 1.3 11/12/82";
41639Smckusick 
5*9136Smckusick char EASRT[] = "Assertion failed\n";
61639Smckusick 
7*9136Smckusick ASRT(cond)
81639Smckusick 	short	cond;
91639Smckusick {
101639Smckusick 	if (cond)
111639Smckusick 		return;
12*9136Smckusick 	ERROR(EASRT, 0);
13*9136Smckusick 	return;
141639Smckusick }
15