convert namelist structure to use unions

SCCS-vsn: usr.bin/pascal/src/yyid.c 1.4
SCCS-vsn: usr.bin/pascal/src/yyid.c 1.4

diff --git a/usr/src/usr.bin/pascal/src/yyid.c b/usr/src/usr.bin/pascal/src/yyid.c
index 3a865e3..bbb144e 100644 (file)
--- a/usr/src/usr.bin/pascal/src/yyid.c
+++ b/usr/src/usr.bin/pascal/src/yyid.c
@@ -1,6 +1,6 @@
 /* Copyright (c) 1979 Regents of the University of California */
 
 /* Copyright (c) 1979 Regents of the University of California */
 

-static char sccsid[] = "@(#)yyid.c 1.3 %G%";
+static char sccsid[] = "@(#)yyid.c 1.4 %G%";

 
 #include "whoami.h"
 #include "0.h"
 
 #include "whoami.h"
 #include "0.h"


@@ -160,9 +160,9 @@ yyidok1(p, kind)
        }
 }
 
        }
 }
 

-yyisvar(p, class)
+yyisvar(p, varclass)

        register struct nl *p;
        register struct nl *p;

-       int class;
+       int varclass;

 {
 
        switch (p->class) {
 {
 
        switch (p->class) {


@@ -176,10 +176,10 @@ yyisvar(p, class)
                 */
                case FUNC:
                case FFUNC:
                 */
                case FUNC:
                case FFUNC:

-                       return (class == NIL || (p->type != NIL && p->type->class == class));
+                       return (varclass == NIL || (p->type != NIL && p->type->class == varclass));

                case PROC:
                case FPROC:
                case PROC:
                case FPROC:

-                       return ( class == NIL );
+                       return ( varclass == NIL );

        }
        return (0);
 }
        }
        return (0);
 }