Fixed SIG

This commit is contained in:
ceriel 1990-01-26 16:43:29 +00:00
parent 7cc9d3b246
commit 7e9b61cbc0
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;