*** empty log message ***

diff --git a/v7/src/compiler/machines/bobcat/lapgen.scm b/v7/src/compiler/machines/bobcat/lapgen.scm
index 0e06844492fda2f8a4b4eee47316c4091d5455a8..5e23f6e4e63b9b8f5208341697cb2073bd0f0c93 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.184 1987/07/08 22:07:44 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 1.185 1987/07/15 21:33:38 mhwu Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -257,6 +257,8 @@ MIT in each case. |#
   (INST (BRA L (@PCR ,label))))
 
 (define-export (lap:make-entry-point label block-start-label)
+  (set! compiler:external-labels
+       (cons label compiler:external-labels))
   (LAP (ENTRY-POINT ,label)
        (DC W (- ,label ,block-start-label))
        (LABEL ,label)))

diff --git a/v7/src/compiler/machines/bobcat/rules3.scm b/v7/src/compiler/machines/bobcat/rules3.scm
index d21c70d947476f68bde7f6ca285bb3adbb027846..d1e73f2280bd516f9182c1ce803ca5e30480ff29 100644 (file)
--- a/v7/src/compiler/machines/bobcat/rules3.scm
+++ b/v7/src/compiler/machines/bobcat/rules3.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/rules3.scm,v 1.7 1987/07/08 22:08:57 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/rules3.scm,v 1.8 1987/07/15 21:34:24 mhwu Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -314,5 +314,7 @@ MIT in each case. |#
         ,@(make-external-label internal-label))))
 
 (define (make-external-label label)
+  (set! compiler:external-labels 
+       (cons label compiler:external-labels))
   (LAP (DC W (- ,label ,*block-start-label*))
        (LABEL ,label)))