BSD 4 release

[unix-history] / usr / src / cmd / pi / clas.c

diff --git a/usr/src/cmd/pi/clas.c b/usr/src/cmd/pi/clas.c
index 13929cc..c6b3544 100644 (file)
--- a/usr/src/cmd/pi/clas.c
+++ b/usr/src/cmd/pi/clas.c
@@ -1,13 +1,8 @@
 /* Copyright (c) 1979 Regents of the University of California */
 /* Copyright (c) 1979 Regents of the University of California */

-#
-/*
- * pi - Pascal interpreter code translator
- *
- * Charles Haley, Bill Joy UCB
- * Version 1.2 November 1978
- */

 
 

-#include "whoami"
+static char sccsid[] = "@(#)clas.c 1.1 8/27/80";
+
+#include "whoami.h"

 #include "0.h"
 #include "tree.h"
 
 #include "0.h"
 #include "tree.h"
 


@@ -59,6 +54,9 @@ swit:
        }
        if (p == &nl[TSTR])
                return (TSTR);
        }
        if (p == &nl[TSTR])
                return (TSTR);

+       if ( p == &nl[ TSET ] ) {
+           return TSET;
+       }

        switch (p->class) {
                case PTR:
                        return (TPTR);
        switch (p->class) {
                case PTR:
                        return (TPTR);