From ff056b2cff1261d7449537677675966aefa9b433 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Tue, 7 May 1991 17:54:14 +0000 Subject: [PATCH] Forgot to add the rule for INVOCATION:GLOBAL-LINK. --- v7/src/compiler/machines/spectrum/rules3.scm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/v7/src/compiler/machines/spectrum/rules3.scm b/v7/src/compiler/machines/spectrum/rules3.scm index fcc710fb7..955c9ab7b 100644 --- a/v7/src/compiler/machines/spectrum/rules3.scm +++ b/v7/src/compiler/machines/spectrum/rules3.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/spectrum/rules3.scm,v 4.29 1991/05/07 17:44:51 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/spectrum/rules3.scm,v 4.30 1991/05/07 17:54:14 jinx Exp $ $MC68020-Header: /scheme/compiler/bobcat/RCS/rules3.scm,v 4.30 1991/05/07 13:45:31 jinx Exp $ Copyright (c) 1988-1991 Massachusetts Institute of Technology @@ -100,6 +100,12 @@ MIT in each case. |# (LAP ,@(clear-map!) (B (N) (@PCR ,(free-uuo-link-label name frame-size))))) +(define-rule statement + (INVOCATION:GLOBAL-LINK (? frame-size) (? continuation) (? name)) + continuation ;ignore + (LAP ,@(clear-map!) + (B (N) (@PCR ,(global-uuo-link-label name frame-size))))) + (define-rule statement (INVOCATION:CACHE-REFERENCE (? frame-size) (? continuation) -- 2.25.1