From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 29 May 1987 21:23:28 +0000 (+0000)
Subject: Split entry points block into two sections to make it compatible with
X-Git-Tag: 20090517-FFI~13457
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c25e605d71176118d83ef404d44bc3157ff438b3;p=mit-scheme.git

Split entry points block into two sections to make it compatible with
previous version.
---

diff --git a/v7/src/compiler/machines/bobcat/lapgen.scm b/v7/src/compiler/machines/bobcat/lapgen.scm
index 90eaad730..e81b7adc7 100644
--- a/v7/src/compiler/machines/bobcat/lapgen.scm
+++ b/v7/src/compiler/machines/bobcat/lapgen.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 1.169 1987/05/29 17:45:38 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 1.170 1987/05/29 21:21:02 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -224,7 +224,7 @@ MIT in each case. |#
 ;;;; Registers/Entries
 
 (let-syntax ((define-entries
-	       (macro names
+	       (macro (start . names)
 		 (define (loop names index)
 		   (if (null? names)
 		       '()
@@ -232,20 +232,21 @@ MIT in each case. |#
 						      (car names))
 				'(@AO 6 ,index))
 			     (loop (cdr names) (+ index 6)))))
-		 `(BEGIN ,@(loop names #x00F0)))))
-  (define-entries apply error wrong-number-of-arguments interrupt-procedure
-    interrupt-continuation lookup-apply lookup access unassigned? unbound?
-    set! define primitive-apply enclose setup-lexpr return-to-interpreter
-    safe-lookup cache-variable reference-trap assignment-trap
-    uuo-link uuo-link-trap))
+		 `(BEGIN ,@(loop names start)))))
+  (define-entries #x00F0 apply error wrong-number-of-arguments
+    interrupt-procedure interrupt-continuation lookup-apply lookup access
+    unassigned? unbound? set! define primitive-apply enclose setup-lexpr
+    return-to-interpreter safe-lookup cache-variable reference-trap
+    assignment-trap)
+  (define-entries #x0228 uuo-link uuo-link-trap))
 
 (define reg:temp '(@AO 6 #x0010))
 (define reg:enclose-result '(@AO 6 #x0014))
 (define reg:compiled-memtop '(@A 6))
 
-(define popper:apply-closure '(@AO 6 #x01A4))
-(define popper:apply-stack '(@AO 6 #x01E4))
-(define popper:value '(@AO 6 #x0228))
+(define popper:apply-closure '(@AO 6 #x0168))
+(define popper:apply-stack '(@AO 6 #x01A8))
+(define popper:value '(@AO 6 #x01E8))
 
 ;;;; Transfers to Registers
 
diff --git a/v7/src/microcode/version.h b/v7/src/microcode/version.h
index 2ee22d6d7..6a7bdd207 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.56 1987/05/29 02:25:04 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 9.57 1987/05/29 21:23:28 cph 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	56
+#define SUBVERSION	57
 #endif
 
 #ifndef UCODE_TABLES_FILENAME
diff --git a/v8/src/microcode/version.h b/v8/src/microcode/version.h
index ed417459a..0baf5409f 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.56 1987/05/29 02:25:04 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 9.57 1987/05/29 21:23:28 cph 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	56
+#define SUBVERSION	57
 #endif
 
 #ifndef UCODE_TABLES_FILENAME