xref: /csrg-svn/usr.bin/pascal/libpc/ASRT.c (revision 1639)
1*1639Smckusick /* Copyright (c) 1979 Regents of the University of California */
2*1639Smckusick 
3*1639Smckusick static char sccsid[] = "@(#)ASRT.c 1.1 10/30/80";
4*1639Smckusick 
5*1639Smckusick #include "h01errs.h"
6*1639Smckusick 
7*1639Smckusick ASRT(cond, stmt)
8*1639Smckusick 
9*1639Smckusick 	short	cond;
10*1639Smckusick 	char	*stmt;
11*1639Smckusick {
12*1639Smckusick 	if (cond)
13*1639Smckusick 		return;
14*1639Smckusick 	ERROR(EASRT, stmt);
15*1639Smckusick }
16