add grammar rules to handle separate compilation and parametric routines.

[unix-history] / usr / src / usr.bin / pascal / pxp / error.c

diff --git a/usr/src/usr.bin/pascal/pxp/error.c b/usr/src/usr.bin/pascal/pxp/error.c
index 6e25cff..cf95979 100644 (file)
--- a/usr/src/usr.bin/pascal/pxp/error.c
+++ b/usr/src/usr.bin/pascal/pxp/error.c
@@ -1,4 +1,4 @@
-static char *sccsid = "@(#)error.c     1.1 (Berkeley) %G%";
+static char *sccsid = "@(#)error.c     1.3 (Berkeley) %G%";

 /* Copyright (c) 1979 Regents of the University of California */
 /*
  * pi - Pascal interpreter code translator
 /* Copyright (c) 1979 Regents of the University of California */
 /*
  * pi - Pascal interpreter code translator


@@ -21,7 +21,7 @@ extern        int yyline;
 extern char errout;
 #endif
 
 extern char errout;
 #endif
 

-char   errpfx  'E';
+char   errpfx  = 'E';

 extern int yyline;
 /*
  * Panic is called when impossible
 extern int yyline;
 /*
  * Panic is called when impossible


@@ -68,8 +68,10 @@ error(a1, a2, a3, a4)
 */
 #endif
 
 */
 #endif
 

-       if (errpfx == 'w' && opt('w') != 0)
+       if (errpfx == 'w' && opt('w') != 0) {
+               errpfx == 'E';

                return;
                return;

+       }

 #ifdef PXP
 /*
        flush();
 #ifdef PXP
 /*
        flush();