move text of error messages from ERROR to functions which gen them

SCCS-vsn: usr.bin/pascal/libpc/HALT.c 1.3

diff --git a/usr/src/usr.bin/pascal/libpc/HALT.c b/usr/src/usr.bin/pascal/libpc/HALT.c
index a655172..79000ba 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/HALT.c
+++ b/usr/src/usr.bin/pascal/libpc/HALT.c
@@ -2,9 +2,11 @@
 
 static char sccsid[] = "@(#)HALT.c 1.3 %G%";
 
 
 static char sccsid[] = "@(#)HALT.c 1.3 %G%";
 

+#include "h00vars.h"

 
 HALT()
 {
 
 HALT()
 {

-               ERROR("Call to procedure halt\n", 0);
+               PFLUSH();
+               fputs("Call to procedure halt\n", stderr);

                PCEXIT(0);
 }
                PCEXIT(0);
 }