From fb31a2037cff81c83615401c3cecec75bead9864 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Tue, 30 Jan 1990 14:44:25 +0000 Subject: [PATCH] Fix bug in Prepare_Apply_Interrupt noticed after last set of changes (addition of RC_INTERNAL_APPLY_VAL). --- v7/src/microcode/interp.c | 7 +++++-- v8/src/microcode/interp.c | 7 +++++-- 2 files changed, 10 insertions(+), 4 deletions(-) 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(); \ } -- 2.25.1