share subr.c and string.c with pi/pc

[unix-history] / usr / src / usr.bin / pascal / pxp / rmothers.c

diff --git a/usr/src/usr.bin/pascal/pxp/rmothers.c b/usr/src/usr.bin/pascal/pxp/rmothers.c
index 2e3aad5..090ec71 100644 (file)
--- a/usr/src/usr.bin/pascal/pxp/rmothers.c
+++ b/usr/src/usr.bin/pascal/pxp/rmothers.c
@@ -1,4 +1,4 @@
-static char *sccsid = "@(#)rmothers.c  1.1 (Berkeley) %G%";
+static char *sccsid = "@(#)rmothers.c  2.1 (Berkeley) %G%";

 /* Copyright (c) 1983 Regents of the University of California */
 #ifdef RMOTHERS
     /* and the rest of the file */
 /* Copyright (c) 1983 Regents of the University of California */
 #ifdef RMOTHERS
     /* and the rest of the file */


@@ -161,6 +161,16 @@ postcaseguard(othersp)
     indent();
     ppkw("else");
     ppgoin(STAT);
     indent();
     ppkw("else");
     ppgoin(STAT);

+    if (othersp == NIL) {
+           /*
+            *  this will print a call to the routine ``null''.
+            *  but it has to be checked first, or we will indirect through
+            *  NIL to check the statement type.
+            */
+       statement(NIL);
+       ppgoout(STAT);
+       return;
+    }

     if (othersp[0] == T_BLOCK) {
        ppnl();
        indent();
     if (othersp[0] == T_BLOCK) {
        ppnl();
        indent();