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

/*-
 * Copyright (c) 1979 The Regents of the University of California.
 * All rights reserved.
 *
 * %sccs.include.redist.c%
 */

#ifndef lint
static char sccsid[] = "@(#)ASRT.c	1.4 (Berkeley) %G%";
#endif /* not lint */

char EASRT[] = "Assertion failed\n";

ASRT(cond)
	short	cond;
{
	if (cond)
		return;
	ERROR(EASRT, 0);
	return;
}
Commit	Line	Data
0d78ca85 KB	1	/*-
	2	* Copyright (c) 1979 The Regents of the University of California.
	3	* All rights reserved.
	4	*
	5	* %sccs.include.redist.c%
	6	*/
c20eaf69	7
0d78ca85 KB	8	#ifndef lint
	9	static char sccsid[] = "@(#)ASRT.c 1.4 (Berkeley) %G%";
	10	#endif /* not lint */
c20eaf69	11
1198f08c	12	char EASRT[] = "Assertion failed\n";
c20eaf69	13
1198f08c	14	ASRT(cond)
c20eaf69	15	short cond;
c20eaf69 KM	16	{
	17	if (cond)
	18	return;
1198f08c KM	19	ERROR(EASRT, 0);
1198f08c KM	20	return;
c20eaf69	21	}