xref: /original-bsd/usr.bin/pascal/libpc/ASRT.c (revision c7de680c)
1 /* Copyright (c) 1979 Regents of the University of California */
2 
3 static char sccsid[] = "@(#)ASRT.c 1.2 06/10/81";
4 
5 #define NULL 0
6 
7 ASRT(cond, stmt)
8 
9 	short	cond;
10 	char	*stmt;
11 {
12 	if (cond)
13 		return;
14 	if (stmt != NULL) {
15 		ERROR("Assertion failed: %s\n", stmt);
16 		return;
17 	} else {
18 		ERROR("Assertion failed\n", 0);
19 		return;
20 	}
21 }
22