From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 26 Oct 1988 03:52:13 +0000 (+0000)
Subject: (compiled_entry_to_block): `suba.w' instruction sign extends its first
X-Git-Tag: 20090517-FFI~12484
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=37e32193e8830b26513e1a0f5eae8ffd3f4a6a3f;p=mit-scheme.git

(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 bf88e286d..62c47da7c 100644
--- 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 77d98d137..770c71b7c 100644
--- 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