From 37e32193e8830b26513e1a0f5eae8ffd3f4a6a3f Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 26 Oct 1988 03:52:13 +0000 Subject: [PATCH] (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. --- v7/src/microcode/version.h | 4 ++-- v8/src/microcode/version.h | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) 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 -- 2.25.1