From: Henry M. Wu Date: Wed, 15 Jul 1987 21:34:24 +0000 (+0000) Subject: *** empty log message *** X-Git-Tag: 20090517-FFI~13255 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1f774ff0d776c78f82b3e4f0ecb92f00f3f94416;p=mit-scheme.git *** empty log message *** --- diff --git a/v7/src/compiler/machines/bobcat/lapgen.scm b/v7/src/compiler/machines/bobcat/lapgen.scm index 0e0684449..5e23f6e4e 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.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 d21c70d94..d1e73f228 100644 --- 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)))