date and time created 82/11/12 12:11:33 by mckusick

SCCS-vsn: usr.bin/pascal/libpc/ASRTS.c 1.1

diff --git a/usr/src/usr.bin/pascal/libpc/ASRTS.c b/usr/src/usr.bin/pascal/libpc/ASRTS.c
new file mode 100644 (file)
index 0000000..f869cb8
--- /dev/null
+++ b/usr/src/usr.bin/pascal/libpc/ASRTS.c
@@ -0,0 +1,15 @@
+/* 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;
+}