(compiled_entry_to_block): `suba.w' instruction sign extends its first

argument, which in this case is exactly the wrong thing.  Rewrite this
to zero extend the 16 bit offset.

diff --git a/v7/src/microcode/version.h b/v7/src/microcode/version.h
index bf88e286d060455e3954c85ec01ead797fcd74e9..62c47da7c20d45e57a902963a0caaaef45b1a8d5 100644 (file)
--- a/v7/src/microcode/version.h
+++ b/v7/src/microcode/version.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 10.56 1988/10/21 18:21:08 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 10.57 1988/10/26 03:52:13 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -46,7 +46,7 @@ MIT in each case. */
 #define VERSION                10
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION     56
+#define SUBVERSION     57
 #endif
 
 #ifndef UCODE_TABLES_FILENAME

diff --git a/v8/src/microcode/version.h b/v8/src/microcode/version.h
index 77d98d1372b0a8cac284aad5aaa5b44e659525a1..770c71b7c6ad8a4a12e302962d9e1d1ad5af1a40 100644 (file)
--- a/v8/src/microcode/version.h
+++ b/v8/src/microcode/version.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 10.56 1988/10/21 18:21:08 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 10.57 1988/10/26 03:52:13 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -46,7 +46,7 @@ MIT in each case. */
 #define VERSION                10
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION     56
+#define SUBVERSION     57
 #endif
 
 #ifndef UCODE_TABLES_FILENAME