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

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

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

char EASRTS[] = "Assertion failed: %s\n";

ASRTS(cond, stmt)
	short	cond;
	char	*stmt;
{
	if (cond)
		return;
	ERROR(EASRTS, stmt);
	return;
}
Commit	Line	Data
8feb780c KM	1	/* Copyright (c) 1982 Regents of the University of California */
	2
	3	static char sccsid[] = "@(#)ASRTS.c 1.1 %G%";
	4
	5	char EASRTS[] = "Assertion failed: %s\n";
	6
	7	ASRTS(cond, stmt)
	8	short cond;
	9	char *stmt;
	10	{
	11	if (cond)
	12	return;
	13	ERROR(EASRTS, stmt);
	14	return;
	15	}