keep snarks out of error messages by checking for blown type.

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

diff --git a/usr/src/usr.bin/pascal/src/rec.c b/usr/src/usr.bin/pascal/src/rec.c
index e9b6c08..87dd99b 100644 (file)
--- a/usr/src/usr.bin/pascal/src/rec.c
+++ b/usr/src/usr.bin/pascal/src/rec.c
@@ -118,7 +118,7 @@ variants(p, r)
        if (r == NIL)
                return;
        ct = gtype(r[3]);
        if (r == NIL)
                return;
        ct = gtype(r[3]);

-       if ( isnta( ct , "bcsi" ) ) {
+       if ( ( ct != NIL ) && ( isnta( ct , "bcsi" ) ) ) {

            error("Tag fields cannot be %ss" , nameof( ct ) );
        }
        line = r[1];
            error("Tag fields cannot be %ss" , nameof( ct ) );
        }
        line = r[1];