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

/* Copyright (c) 1979 Regents of the University of California */

static char sccsid[] = "@(#)ASRT.c 1.3 %G%";

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

ASRT(cond)
	short	cond;
{
	if (cond)
		return;
	ERROR(EASRT, 0);
	return;
}
Commit	Line	Data
c20eaf69 KM	1	/* Copyright (c) 1979 Regents of the University of California */
c20eaf69 KM	2
1198f08c	3	static char sccsid[] = "@(#)ASRT.c 1.3 %G%";
c20eaf69	4
1198f08c	5	char EASRT[] = "Assertion failed\n";
c20eaf69	6
1198f08c	7	ASRT(cond)
c20eaf69	8	short cond;
c20eaf69 KM	9	{
	10	if (cond)
	11	return;
1198f08c KM	12	ERROR(EASRT, 0);
1198f08c KM	13	return;
c20eaf69	14	}