fixes for assert no longer being a keyword

SCCS-vsn: usr.bin/pascal/pxp/stat.c 1.3

diff --git a/usr/src/usr.bin/pascal/pxp/stat.c b/usr/src/usr.bin/pascal/pxp/stat.c
index 393c1a3..c343413 100644 (file)
--- a/usr/src/usr.bin/pascal/pxp/stat.c
+++ b/usr/src/usr.bin/pascal/pxp/stat.c
@@ -1,4 +1,4 @@
-static char *sccsid = "@(#)stat.c      1.2 (Berkeley) %G%";
+static char *sccsid = "@(#)stat.c      1.3 (Berkeley) %G%";

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


@@ -114,10 +114,6 @@ top:
                        indent();
                        withop(s);
                        break;
                        indent();
                        withop(s);
                        break;

-               case T_ASRT:
-                       ppitem();
-                       asrtop(s);
-                       break;

        }
        setinfo(s[1]);
        putcm();
        }
        setinfo(s[1]);
        putcm();


@@ -305,12 +301,3 @@ int *r;
                ppgoout(l);
        }
 }
                ppgoout(l);
        }
 }

-
-asrtop(s)
-       int *s;
-{
-
-       ppkw("assert");
-       ppspac();
-       rvalue(s[2], NIL);
-}