Fix bug in assignment to compiler cached variables.

diff --git a/v7/src/microcode/interp.c b/v7/src/microcode/interp.c
index e1c3a56fa9afbd5ef056686d9fd1c61ca3083dad..84fd162568f1d03f020c420cefe2974df8fa0a29 100644 (file)
--- 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 93ea90d7f91506ffae8078a46f70b9c595c30af5..82536f7ba75cec5c2297f56ee0a8a29dc14305b3 100644 (file)
--- 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. */
 \f
@@ -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 3e53348bd617dfb533b42a328a6923bd67201702..326dd3312a7daf13f11d6ff18e75208e6a14b6a5 100644 (file)
--- 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 168226449ab34eb8fcc81d9a469f345047112e0c..f8a3e7c4c49f75a6a84e96ea785e69727cfb72af 100644 (file)
--- 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. */
 \f
@@ -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