From 59c58ea553d79ddb588c5998bd3d8e6419135297 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 5 Jan 1989 19:02:31 +0000
Subject: [PATCH] `stack-address-offset' primitive had sign bug.

---
 v7/src/microcode/comutl.c  | 4 ++--
 v7/src/microcode/version.h | 4 ++--
 v8/src/microcode/version.h | 4 ++--
 3 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/v7/src/microcode/comutl.c b/v7/src/microcode/comutl.c
index f4c59522d..3d79ba5ab 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.16 1988/12/23 04:50:23 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/comutl.c,v 1.17 1989/01/05 19:02:19 cph Exp $
 
 Copyright (c) 1987, 1988 Massachusetts Institute of Technology
 
@@ -91,7 +91,7 @@ DEFINE_PRIMITIVE ("STACK-ADDRESS-OFFSET", Prim_stack_address_offset, 1, 1, 0)
   PRIMITIVE_RETURN
     (C_Integer_To_Scheme_Integer
      ((STACK_LOCATIVE_DIFFERENCE
-       ((OBJECT_DATUM (ARG_REF (1))), ((long) (Stack_Top))))
+       (((long) (Stack_Top)), (OBJECT_DATUM (ARG_REF (1)))))
       / (sizeof (Pointer))));
 }
 
diff --git a/v7/src/microcode/version.h b/v7/src/microcode/version.h
index d24a31953..d198a9f83 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.66 1988/12/29 07:33:57 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 10.67 1989/01/05 19:02:31 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	66
+#define SUBVERSION	67
 #endif
 
 #ifndef UCODE_TABLES_FILENAME
diff --git a/v8/src/microcode/version.h b/v8/src/microcode/version.h
index c96f87cf9..c100e3829 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.66 1988/12/29 07:33:57 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 10.67 1989/01/05 19:02:31 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	66
+#define SUBVERSION	67
 #endif
 
 #ifndef UCODE_TABLES_FILENAME
-- 
2.25.1