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 90eaad730a9cc1cdcaaa85c6b23c956cee0fed17..e81b7adc7b49c58d0c6c28bbd95fddbfa74afca0 100644 (file)
--- 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))
 \f
 ;;;; Transfers to Registers
 

diff --git a/v7/src/microcode/version.h b/v7/src/microcode/version.h
index 2ee22d6d75bd0b20a79dc40c9bc0e6124b748e57..6a7bdd20742afb397ef637d182b063313d46c18a 100644 (file)
--- 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. */
 \f
@@ -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 ed417459ad2c6d8e7b59f9bf07f597a5ea2cf087..0baf5409fd8b7456bc565a6307cc03c2d9a1126a 100644 (file)
--- 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. */
 \f
@@ -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