merge lint by thien

SCCS-vsn: usr.bin/pascal/src/tmps.c 1.13

diff --git a/usr/src/usr.bin/pascal/src/tmps.c b/usr/src/usr.bin/pascal/src/tmps.c
index 2050968..6ad496a 100644 (file)
--- a/usr/src/usr.bin/pascal/src/tmps.c
+++ b/usr/src/usr.bin/pascal/src/tmps.c
@@ -1,7 +1,7 @@
 /* Copyright (c) 1979 Regents of the University of California */
 
 #ifndef lint
 /* Copyright (c) 1979 Regents of the University of California */
 
 #ifndef lint

-static char sccsid[] = "@(#)tmps.c 1.9.1.1 %G%";
+static char sccsid[] = "@(#)tmps.c 1.13 %G%";

 #endif
 
 #include "whoami.h"
 #endif
 
 #include "whoami.h"


@@ -101,7 +101,6 @@ tmpalloc(size, type, mode)
                        if (offset < op->low_water[REG_GENERAL]) {
                                op->low_water[REG_GENERAL] = offset;
                        }
                        if (offset < op->low_water[REG_GENERAL]) {
                                op->low_water[REG_GENERAL] = offset;
                        }

-                       nlp = defnl(0, VAR, type, offset );

                        nlp -> extra_flags = NLOCAL | NREGVAR;
                        putlbracket(ftnno, op);
                        return nlp;
                        nlp -> extra_flags = NLOCAL | NREGVAR;
                        putlbracket(ftnno, op);
                        return nlp;