From f1036435007d892c761ffbfd3b7bce0e9d893ddf Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 9 Jun 1987 18:50:05 +0000 Subject: [PATCH] Fix bug in assignment to compiler cached variables. --- v7/src/microcode/interp.c | 8 ++++---- v7/src/microcode/version.h | 4 ++-- v8/src/microcode/interp.c | 8 ++++---- v8/src/microcode/version.h | 4 ++-- 4 files changed, 12 insertions(+), 12 deletions(-) diff --git a/v7/src/microcode/interp.c b/v7/src/microcode/interp.c index e1c3a56fa..84fd16256 100644 --- a/v7/src/microcode/interp.c +++ b/v7/src/microcode/interp.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/interp.c,v 9.26 1987/05/31 16:36:05 cph Exp $ +/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/interp.c,v 9.27 1987/06/09 18:48:44 cph Exp $ * * This file contains the heart of the Scheme Scode * interpreter @@ -979,11 +979,11 @@ assignment_end_before_lock: assignment_end_after_lock: + Val = *cell; + if (Type_Code(*cell) != TC_REFERENCE_TRAP) { - Val = *cell; - - normal_assignment_done: +normal_assignment_done: *cell = value; remove_lock(set_serializer); Set_Time_Zone(Zone_Working); diff --git a/v7/src/microcode/version.h b/v7/src/microcode/version.h index 93ea90d7f..82536f7ba 100644 --- a/v7/src/microcode/version.h +++ b/v7/src/microcode/version.h @@ -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/Attic/version.h,v 9.65 1987/06/05 18:04:01 cph Exp $ +/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 9.66 1987/06/09 18:50:05 cph Exp $ This file contains version information for the microcode. */ @@ -46,7 +46,7 @@ This file contains version information for the microcode. */ #define VERSION 9 #endif #ifndef SUBVERSION -#define SUBVERSION 65 +#define SUBVERSION 66 #endif #ifndef UCODE_TABLES_FILENAME diff --git a/v8/src/microcode/interp.c b/v8/src/microcode/interp.c index 3e53348bd..326dd3312 100644 --- a/v8/src/microcode/interp.c +++ b/v8/src/microcode/interp.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/interp.c,v 9.26 1987/05/31 16:36:05 cph Exp $ +/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/interp.c,v 9.27 1987/06/09 18:48:44 cph Exp $ * * This file contains the heart of the Scheme Scode * interpreter @@ -979,11 +979,11 @@ assignment_end_before_lock: assignment_end_after_lock: + Val = *cell; + if (Type_Code(*cell) != TC_REFERENCE_TRAP) { - Val = *cell; - - normal_assignment_done: +normal_assignment_done: *cell = value; remove_lock(set_serializer); Set_Time_Zone(Zone_Working); diff --git a/v8/src/microcode/version.h b/v8/src/microcode/version.h index 168226449..f8a3e7c4c 100644 --- a/v8/src/microcode/version.h +++ b/v8/src/microcode/version.h @@ -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/version.h,v 9.65 1987/06/05 18:04:01 cph Exp $ +/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 9.66 1987/06/09 18:50:05 cph Exp $ This file contains version information for the microcode. */ @@ -46,7 +46,7 @@ This file contains version information for the microcode. */ #define VERSION 9 #endif #ifndef SUBVERSION -#define SUBVERSION 65 +#define SUBVERSION 66 #endif #ifndef UCODE_TABLES_FILENAME -- 2.25.1