signal EXCEPT() on SIGFPE if runtime tests are enabled

SCCS-vsn: usr.bin/pascal/libpc/PCSTART.c 1.6

diff --git a/usr/src/usr.bin/pascal/libpc/PCSTART.c b/usr/src/usr.bin/pascal/libpc/PCSTART.c
index 5faee77..655f123 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/PCSTART.c
+++ b/usr/src/usr.bin/pascal/libpc/PCSTART.c
@@ -1,8 +1,10 @@
 /* Copyright (c) 1979 Regents of the University of California */
 
 /* Copyright (c) 1979 Regents of the University of California */
 

-static char sccsid[] = "@(#)PCSTART.c 1.5 %G%";
+static char sccsid[] = "@(#)PCSTART.c 1.6 %G%";

 
 

+#include <signal.h>

 #include "h00vars.h"
 #include "h00vars.h"

+#include "libpc.h"

 
 /*
  * program variables
 
 /*
  * program variables


@@ -75,7 +77,8 @@ struct iorechd        _err = {
        1                       /* fsize   */
 };
 
        1                       /* fsize   */
 };
 

-PCSTART()
+PCSTART(mode)
+       int mode;

 {
        /*
         * necessary only on systems which do not initialize
 {
        /*
         * necessary only on systems which do not initialize


@@ -84,5 +87,12 @@ PCSTART()
 
        struct iorec    **ip;
 
 
        struct iorec    **ip;
 

+       /*
+        * if running with runtime tests enabled, give more
+        * coherent error messages for FPEs
+        */
+       if (mode) {
+               signal(SIGFPE, EXCEPT);
+       }

        for (ip = &_actfile[3]; ip < &_actfile[MAXFILES]; *ip++ = FILNIL);
 }
        for (ip = &_actfile[3]; ip < &_actfile[MAXFILES]; *ip++ = FILNIL);
 }