Update to match latest changes to the linearizer.

diff --git a/v7/src/compiler/machines/C/compiler.pkg b/v7/src/compiler/machines/C/compiler.pkg
index be17dd9413ee29ffbcd751b7d54ed5857e0cbd67..4a89f9afa4ac1723dc0de4eff6381002e4ed4fe9 100644 (file)
--- a/v7/src/compiler/machines/C/compiler.pkg
+++ b/v7/src/compiler/machines/C/compiler.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: compiler.pkg,v 1.6 1993/11/13 03:32:25 gjr Exp $
+$Id: compiler.pkg,v 1.7 1993/12/09 03:23:53 gjr Exp $
 
 Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
@@ -638,9 +638,14 @@ MIT in each case. |#
   (parent (compiler lap-syntaxer))
   (export (compiler lap-syntaxer)
          add-end-of-block-code!
+         add-extra-code!
          bblock-linearize-lap
+         extra-code-block/xtra
+         declare-extra-code-block!
+         find-extra-code-block
          linearize-lap
-         set-current-branches!)
+         set-current-branches!
+         set-extra-code-block/xtra!)
   (export (compiler top-level)
          *end-of-block-code*
          linearize-lap))
\ No newline at end of file

diff --git a/v7/src/compiler/machines/alpha/compiler.pkg b/v7/src/compiler/machines/alpha/compiler.pkg
index 8efe44dc4713428efd9d81543c2a4ccebbb17d23..e27d99b7e6426900493b881b26ea0f989f32c8a0 100644 (file)
--- a/v7/src/compiler/machines/alpha/compiler.pkg
+++ b/v7/src/compiler/machines/alpha/compiler.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: compiler.pkg,v 1.10 1993/11/12 20:49:05 jmiller Exp $
+$Id: compiler.pkg,v 1.11 1993/12/09 03:23:04 gjr Exp $
 
 Copyright (c) 1992-1993 Digital Equipment Corporation (D.E.C.)
 
@@ -623,9 +623,14 @@ case.
   (parent (compiler lap-syntaxer))
   (export (compiler lap-syntaxer)
          add-end-of-block-code!
+         add-extra-code!
          bblock-linearize-lap
+         extra-code-block/xtra
+         declare-extra-code-block!
+         find-extra-code-block
          linearize-lap
-         set-current-branches!)
+         set-current-branches!
+         set-extra-code-block/xtra!)
   (export (compiler top-level)
          *end-of-block-code*
          linearize-lap))

diff --git a/v7/src/compiler/machines/bobcat/compiler.pkg b/v7/src/compiler/machines/bobcat/compiler.pkg
index e22541ab66a1b6d701bb3795929aab9588a95d70..e3f043b08d4bb5fbf6f906893a96e0d8e8a6e3d8 100644 (file)
--- a/v7/src/compiler/machines/bobcat/compiler.pkg
+++ b/v7/src/compiler/machines/bobcat/compiler.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: compiler.pkg,v 1.47 1993/10/12 07:29:31 cph Exp $
+$Id: compiler.pkg,v 1.48 1993/12/09 03:22:28 gjr Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -627,9 +627,14 @@ MIT in each case. |#
   (parent (compiler lap-syntaxer))
   (export (compiler lap-syntaxer)
          add-end-of-block-code!
+         add-extra-code!
          bblock-linearize-lap
+         extra-code-block/xtra
+         declare-extra-code-block!
+         find-extra-code-block
          linearize-lap
-         set-current-branches!)
+         set-current-branches!
+         set-extra-code-block/xtra!)
   (export (compiler top-level)
          *end-of-block-code*
          linearize-lap))

diff --git a/v7/src/compiler/machines/i386/compiler.pkg b/v7/src/compiler/machines/i386/compiler.pkg
index a701976ed5e6c10333e1c5c208cd7b58459af4b0..322e906e121bc564b2cbd29a06babbe3f3f87cb6 100644 (file)
--- a/v7/src/compiler/machines/i386/compiler.pkg
+++ b/v7/src/compiler/machines/i386/compiler.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: compiler.pkg,v 1.19 1993/10/12 07:29:42 cph Exp $
+$Id: compiler.pkg,v 1.20 1993/12/09 03:22:08 gjr Exp $
 
 Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
@@ -624,9 +624,14 @@ MIT in each case. |#
   (parent (compiler lap-syntaxer))
   (export (compiler lap-syntaxer)
          add-end-of-block-code!
+         add-extra-code!
          bblock-linearize-lap
+         extra-code-block/xtra
+         declare-extra-code-block!
+         find-extra-code-block
          linearize-lap
-         set-current-branches!)
+         set-current-branches!
+         set-extra-code-block/xtra!)
   (export (compiler top-level)
          *end-of-block-code*
          linearize-lap))

diff --git a/v7/src/compiler/machines/mips/compiler.pkg b/v7/src/compiler/machines/mips/compiler.pkg
index 252a7c619338143dc419d164a0570fedfd43efb0..c54c6dacc24836a47e41ca78a00ad3a3c68452d2 100644 (file)
--- a/v7/src/compiler/machines/mips/compiler.pkg
+++ b/v7/src/compiler/machines/mips/compiler.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: compiler.pkg,v 1.17 1993/10/12 07:29:53 cph Exp $
+$Id: compiler.pkg,v 1.18 1993/12/09 03:22:45 gjr Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -628,9 +628,14 @@ MIT in each case. |#
   (parent (compiler lap-syntaxer))
   (export (compiler lap-syntaxer)
          add-end-of-block-code!
+         add-extra-code!
          bblock-linearize-lap
+         extra-code-block/xtra
+         declare-extra-code-block!
+         find-extra-code-block
          linearize-lap
-         set-current-branches!)
+         set-current-branches!
+         set-extra-code-block/xtra!)
   (export (compiler top-level)
          *end-of-block-code*
          linearize-lap))

diff --git a/v7/src/compiler/machines/vax/compiler.pkg b/v7/src/compiler/machines/vax/compiler.pkg
index fc77ff6e3a0455d10a30d755a3d547be3b8707a9..d26941a353728b1177f399be63cdf57426dfde77 100644 (file)
--- a/v7/src/compiler/machines/vax/compiler.pkg
+++ b/v7/src/compiler/machines/vax/compiler.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: compiler.pkg,v 1.19 1993/10/12 07:30:28 cph Exp $
+$Id: compiler.pkg,v 1.20 1993/12/09 03:23:25 gjr Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -618,9 +618,14 @@ MIT in each case. |#
   (parent (compiler lap-syntaxer))
   (export (compiler lap-syntaxer)
          add-end-of-block-code!
+         add-extra-code!
          bblock-linearize-lap
+         extra-code-block/xtra
+         declare-extra-code-block!
+         find-extra-code-block
          linearize-lap
-         set-current-branches!)
+         set-current-branches!
+         set-extra-code-block/xtra!)
   (export (compiler top-level)
          *end-of-block-code*
          linearize-lap))