From: Guillermo J. Rozas Date: Tue, 30 Jan 1990 14:44:25 +0000 (+0000) Subject: Fix bug in Prepare_Apply_Interrupt noticed after last set of changes X-Git-Tag: 20090517-FFI~11553 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fb31a2037cff81c83615401c3cecec75bead9864;p=mit-scheme.git Fix bug in Prepare_Apply_Interrupt noticed after last set of changes (addition of RC_INTERNAL_APPLY_VAL). --- diff --git a/v7/src/microcode/interp.c b/v7/src/microcode/interp.c index ef3de0192..7c601d0b2 100644 --- a/v7/src/microcode/interp.c +++ b/v7/src/microcode/interp.c @@ -1,6 +1,6 @@ /* -*-C-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/interp.c,v 9.54 1990/01/29 22:32:57 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/interp.c,v 9.55 1990/01/30 14:44:25 jinx Exp $ Copyright (c) 1988, 1989 Massachusetts Institute of Technology @@ -84,10 +84,13 @@ MIT in each case. */ #define Prepare_Pop_Return_Interrupt(Return_Code, Contents_of_Val) \ { \ + SCHEME_OBJECT temp; \ + \ + temp = (Contents_of_Val); \ Store_Return(Return_Code); \ Save_Cont(); \ Store_Return(RC_RESTORE_VALUE); \ - Store_Expression(Contents_of_Val); \ + Store_Expression(temp); \ Save_Cont(); \ } diff --git a/v8/src/microcode/interp.c b/v8/src/microcode/interp.c index 23b373c3a..d4706847b 100644 --- a/v8/src/microcode/interp.c +++ b/v8/src/microcode/interp.c @@ -1,6 +1,6 @@ /* -*-C-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/interp.c,v 9.54 1990/01/29 22:32:57 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/interp.c,v 9.55 1990/01/30 14:44:25 jinx Exp $ Copyright (c) 1988, 1989 Massachusetts Institute of Technology @@ -84,10 +84,13 @@ MIT in each case. */ #define Prepare_Pop_Return_Interrupt(Return_Code, Contents_of_Val) \ { \ + SCHEME_OBJECT temp; \ + \ + temp = (Contents_of_Val); \ Store_Return(Return_Code); \ Save_Cont(); \ Store_Return(RC_RESTORE_VALUE); \ - Store_Expression(Contents_of_Val); \ + Store_Expression(temp); \ Save_Cont(); \ }