Forgot to add the rule for INVOCATION:GLOBAL-LINK.

diff --git a/v7/src/compiler/machines/spectrum/rules3.scm b/v7/src/compiler/machines/spectrum/rules3.scm
index fcc710fb7b2dd223a3e3a088dde828777fd98ccf..955c9ab7b713ed764f0b9c9d4d74e9459ab0d624 100644 (file)
--- 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)