Fixed SIG

This commit is contained in:
ceriel 1990-01-26 16:43:29 +00:00
parent 933b1de514
commit c4c1e6191b
2 changed files with 7 additions and 1 deletions

View file

@ -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.

View file

@ -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;