From ab46fb60dd4e8e9427cd217d8c8a12beef04721e Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Mon, 20 Nov 1989 23:13:16 +0000 Subject: [PATCH] Fix a small bug in compiler_interrupt_common: state was not being restored when the interrupt was dismissed. --- v7/src/microcode/cmpint.c | 4 +++- v8/src/microcode/cmpint.c | 4 +++- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/v7/src/microcode/cmpint.c b/v7/src/microcode/cmpint.c index 0084b7740..d19604f0b 100644 --- a/v7/src/microcode/cmpint.c +++ b/v7/src/microcode/cmpint.c @@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising, promotional, or sales literature without prior written consent from MIT in each case. */ -/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpint.c,v 1.14 1989/11/07 06:37:27 jinx Exp $ +/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpint.c,v 1.15 1989/11/20 23:13:16 jinx Exp $ * * This file corresponds to * $COMPILER-Header: compiler.c,v 9.37 89/10/25 14:55:45 GMT jinx Exp $ @@ -1377,6 +1377,8 @@ compiler_interrupt_common (entry_point, state) TEST_GC_NEEDED(); if ((PENDING_INTERRUPTS()) == 0) { + Store_Env (state); + Val = state; RETURN_TO_SCHEME (entry_point + ENTRY_SKIPPED_CHECK_OFFSET); } else diff --git a/v8/src/microcode/cmpint.c b/v8/src/microcode/cmpint.c index 6fe7dd096..b8a4fdba9 100644 --- a/v8/src/microcode/cmpint.c +++ b/v8/src/microcode/cmpint.c @@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising, promotional, or sales literature without prior written consent from MIT in each case. */ -/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/cmpint.c,v 1.14 1989/11/07 06:37:27 jinx Exp $ +/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/cmpint.c,v 1.15 1989/11/20 23:13:16 jinx Exp $ * * This file corresponds to * $COMPILER-Header: compiler.c,v 9.37 89/10/25 14:55:45 GMT jinx Exp $ @@ -1377,6 +1377,8 @@ compiler_interrupt_common (entry_point, state) TEST_GC_NEEDED(); if ((PENDING_INTERRUPTS()) == 0) { + Store_Env (state); + Val = state; RETURN_TO_SCHEME (entry_point + ENTRY_SKIPPED_CHECK_OFFSET); } else -- 2.25.1