new copyright; att/bsd/shared

[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..96c26ec 100644 (file)
--- a/usr/src/usr.bin/pascal/pxp/rmothers.c
+++ b/usr/src/usr.bin/pascal/pxp/rmothers.c
@@ -1,5 +1,14 @@
-static char *sccsid = "@(#)rmothers.c  1.1 (Berkeley) %G%";
-/* Copyright (c) 1983 Regents of the University of California */
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#)rmothers.c 5.2 (Berkeley) %G%";
+#endif /* not lint */
+

 #ifdef RMOTHERS
     /* and the rest of the file */
 
 #ifdef RMOTHERS
     /* and the rest of the file */
 


@@ -161,6 +170,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();