From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 30 Jul 1987 14:59:49 +0000 (+0000)
Subject: Change the way 32 bit offsets are implemented.
X-Git-Tag: 20090517-FFI~13202
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e55958cdda51b621627d27cf5f933c659d4a1c0e;p=mit-scheme.git

Change the way 32 bit offsets are implemented.
---

diff --git a/v7/src/microcode/comutl.c b/v7/src/microcode/comutl.c
index 70a24d558..84bd695ef 100644
--- a/v7/src/microcode/comutl.c
+++ b/v7/src/microcode/comutl.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/comutl.c,v 1.7 1987/07/22 21:54:26 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/comutl.c,v 1.8 1987/07/30 14:59:49 jinx Rel $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -69,21 +69,11 @@ long
 compiled_entry_to_block_offset(ce)
      Pointer ce;
 {
-#ifdef Get_Compiled_Offset
-
   Pointer *address;
-  long offset;
 
   address = Get_Pointer(ce);
-  Get_Compiled_Offset(offset, address);
-  return offset;
-
-#else
-
-  error_external_return();
-  /*NOTREACHED*/
-
-#endif
+  return (((unsigned long) address) -
+	  ((unsigned long) compiled_entry_to_block_address(address)));
 }
 
 Built_In_Primitive (Prim_comp_code_address_block, 1,
diff --git a/v7/src/microcode/version.h b/v7/src/microcode/version.h
index 02fd19cf9..9656532d2 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.87 1987/07/29 03:57:02 cph Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 9.88 1987/07/30 14:59:07 jinx 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	87
+#define SUBVERSION	88
 #endif
 
 #ifndef UCODE_TABLES_FILENAME
diff --git a/v8/src/microcode/version.h b/v8/src/microcode/version.h
index 0d6b6a1b4..1ad29fcb8 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.87 1987/07/29 03:57:02 cph Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 9.88 1987/07/30 14:59:07 jinx 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	87
+#define SUBVERSION	88
 #endif
 
 #ifndef UCODE_TABLES_FILENAME