From 1f774ff0d776c78f82b3e4f0ecb92f00f3f94416 Mon Sep 17 00:00:00 2001 From: "Henry M. Wu" Date: Wed, 15 Jul 1987 21:34:24 +0000 Subject: [PATCH] *** empty log message *** --- v7/src/compiler/machines/bobcat/lapgen.scm | 4 +++- v7/src/compiler/machines/bobcat/rules3.scm | 4 +++- 2 files changed, 6 insertions(+), 2 deletions(-) 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))) -- 2.25.1