X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/blobdiff_plain/2b84abb596f52ab2068d52108adc96838ad4340a..31cef89cb428866f787983e68246030321893df4:/usr/src/cmd/pi/error.c

diff --git a/usr/src/cmd/pi/error.c b/usr/src/cmd/pi/error.c
index 477bc97d27..256ed2b71b 100644
--- a/usr/src/cmd/pi/error.c
+++ b/usr/src/cmd/pi/error.c
@@ -1,13 +1,8 @@
 /* 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[] = "@(#)error.c 1.1 8/27/80";
+
+#include "whoami.h"
 #include "0.h"
 #ifndef PI1
 #include "yy.h"
@@ -60,8 +55,10 @@ error(a1, a2, a3, a4)
 	char errbuf[256]; 		/* was extern. why? ...pbk */
 	register int i;
 
-	if (errpfx == 'w' && opt('w') != 0)
+	if (errpfx == 'w' && opt('w') != 0) {
+		errpfx = 'E';
 		return;
+	}
 	Enocascade = 0;
 	geterr(a1, errbuf);
 	a1 = errbuf;
@@ -84,7 +81,7 @@ error(a1, a2, a3, a4)
 	printf(a1, a2, a3, a4);
 	if (errpfx == 'E')
 #ifndef PI0
-		eflg++, cgenflg++;
+		eflg++, codeoff();
 #else
 		eflg++;
 #endif
@@ -120,6 +117,10 @@ derror(a1, a2, a3, a4)
 
 char	*lastname, printed, hadsome;
 
+    /*
+     *	this yysetfile for PI1 only.
+     *	the real yysetfile is in yyput.c
+     */
 yysetfile(name)
 	char *name;
 {