SETRACE() -> kill()

SCCS-vsn: usr.bin/pascal/libpc/ERROR.c 1.10
SCCS-vsn: usr.bin/pascal/libpc/PERROR.c 1.2

diff --git a/usr/src/usr.bin/pascal/libpc/ERROR.c b/usr/src/usr.bin/pascal/libpc/ERROR.c
index 89276af..9fc3cea 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/ERROR.c
+++ b/usr/src/usr.bin/pascal/libpc/ERROR.c
@@ -1,8 +1,9 @@
 /* Copyright (c) 1979 Regents of the University of California */
 
 /* Copyright (c) 1979 Regents of the University of California */
 

-static char sccsid[] = "@(#)ERROR.c 1.9 %G%";
+static char sccsid[] = "@(#)ERROR.c 1.10 %G%";

 
 #include       <stdio.h>
 
 #include       <stdio.h>

+#include       <signal.h>

 
 /*
  * Routine ERROR is called from the runtime library when a runtime
 
 /*
  * Routine ERROR is called from the runtime library when a runtime


@@ -18,6 +19,6 @@ ERROR(msg, d1, d2)
        PFLUSH();
        fputc('\n',stderr);
        fprintf(stderr, msg, d1, d2);
        PFLUSH();
        fputc('\n',stderr);
        fprintf(stderr, msg, d1, d2);

-       SETRACE();
+       kill(getpid(), SIGTRAP);

        return d1;
 }
        return d1;
 }

diff --git a/usr/src/usr.bin/pascal/libpc/PERROR.c b/usr/src/usr.bin/pascal/libpc/PERROR.c
index cb84f41..c0c1fcf 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/PERROR.c
+++ b/usr/src/usr.bin/pascal/libpc/PERROR.c
@@ -1,10 +1,9 @@
 /* Copyright (c) 1979 Regents of the University of California */
 
 /* Copyright (c) 1979 Regents of the University of California */
 

-static char sccsid[] = "@(#)PERROR.c 1.1 %G%";
+static char sccsid[] = "@(#)PERROR.c 1.2 %G%";

 
 #include       <stdio.h>
 #include       <signal.h>
 
 #include       <stdio.h>
 #include       <signal.h>

-#include       "h00vars.h"

 
 /*
  * Routine PERROR is called from the runtime library when a runtime
 
 /*
  * Routine PERROR is called from the runtime library when a runtime


@@ -18,8 +17,8 @@ PERROR(msg, fname)
 {
        PFLUSH();
        fputc('\n',stderr);
 {
        PFLUSH();
        fputc('\n',stderr);

-       SETRACE();

        fputs(msg, stderr);
        perror(fname);
        fputs(msg, stderr);
        perror(fname);

+       kill(getpid(), SIGTRAP);

        return 0;
 }
        return 0;
 }