Fixed SIG

diff --git a/util/int/ChangeLog b/util/int/ChangeLog
index 41b5cae..8415e9a 100644 (file)
--- a/util/int/ChangeLog
+++ b/util/int/ChangeLog
@@ -1,3 +1,6 @@
+26-Jan-90  Ceriel Jacobs (ceriel) at ceriel
+       Fixed so that two consecutive SIG's have no effect.
+
  8-Dec-89  Ceriel Jacobs (ceriel) at ceriel
        Bug fix: one of the many ZRL encodings was decoded wrong.
 

diff --git a/util/int/do_misc.c b/util/int/do_misc.c
index d0eb420..6bd9aa7 100644 (file)
--- a/util/int/do_misc.c
+++ b/util/int/do_misc.c
@@ -570,7 +570,10 @@ DoSIGz()
 
        LOG(("@M6 DoSIGz()"));
        spoilFRA();
-       npush(TrapPI, psize);
+       if (OnTrap == TR_HALT) {
+               npush(-2L, psize);
+       }
+       else    npush(TrapPI, psize);
        if (tpi == -2) {
                OnTrap = TR_HALT;
                TrapPI = 0;