Add invocation:global-link rtl type.

diff --git a/v7/src/compiler/rtlbase/rtlexp.scm b/v7/src/compiler/rtlbase/rtlexp.scm
index a59060c7142c696d2c67d225087f2b399c3073f7..a55ccaf761325cf90b0a20bed05208cca51f3a1d 100644 (file)
--- a/v7/src/compiler/rtlbase/rtlexp.scm
+++ b/v7/src/compiler/rtlbase/rtlexp.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlbase/rtlexp.scm,v 4.16 1990/05/03 15:10:27 jinx Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlbase/rtlexp.scm,v 4.17 1991/05/06 22:42:58 jinx Exp $
 
-Copyright (c) 1987, 1988, 1989, 1990 Massachusetts Institute of Technology
+Copyright (c) 1987-1991 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -47,6 +47,7 @@ MIT in each case. |#
          INVOCATION:PRIMITIVE
          INVOCATION:SPECIAL-PRIMITIVE
          INVOCATION:UUO-LINK
+         INVOCATION:GLOBAL-LINK
          INVOCATION:CACHE-REFERENCE
          INVOCATION:LOOKUP)))
 

diff --git a/v7/src/compiler/rtlbase/rtlty1.scm b/v7/src/compiler/rtlbase/rtlty1.scm
index 941700a761c88fe5c141f728c3ce427b07ed753a..78a03c9d5463cfa1f4e783557857bbdcaaa434f6 100644 (file)
--- a/v7/src/compiler/rtlbase/rtlty1.scm
+++ b/v7/src/compiler/rtlbase/rtlty1.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlbase/rtlty1.scm,v 4.17 1990/05/03 15:10:31 jinx Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlbase/rtlty1.scm,v 4.18 1991/05/06 22:42:42 jinx Exp $
 
-Copyright (c) 1987, 1988, 1989, 1990 Massachusetts Institute of Technology
+Copyright (c) 1987-1991 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -158,6 +158,7 @@ MIT in each case. |#
 (define-rtl-statement invocation:lexpr rtl: pushed continuation procedure)
 (define-rtl-statement invocation:computed-lexpr rtl: pushed continuation)
 (define-rtl-statement invocation:uuo-link rtl: pushed continuation name)
+(define-rtl-statement invocation:global-link rtl: pushed continuation name)
 (define-rtl-statement invocation:primitive rtl: pushed continuation procedure)
 (define-rtl-statement invocation:special-primitive rtl: pushed continuation
   procedure)

diff --git a/v7/src/compiler/rtlopt/rcse1.scm b/v7/src/compiler/rtlopt/rcse1.scm
index 5b56609824277e59f2679c99e1e9cd7f88b401b9..055aed4b8b66d38e60185f379e6e13c2ef7aee4e 100644 (file)
--- a/v7/src/compiler/rtlopt/rcse1.scm
+++ b/v7/src/compiler/rtlopt/rcse1.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlopt/rcse1.scm,v 4.20 1990/01/18 22:47:43 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlopt/rcse1.scm,v 4.21 1991/05/06 22:44:07 jinx Exp $
 
-Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
+Copyright (c) 1988-1991 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -34,6 +34,7 @@ MIT in each case. |#
 
 ;;;; RTL Common Subexpression Elimination: Codewalker
 ;;;  Based on the GNU C Compiler
+;;; package: (compiler rtl-cse)
 
 (declare (usual-integrations))
 \f
@@ -339,6 +340,7 @@ MIT in each case. |#
 (define-cse-method 'INVOCATION:COMPUTED-JUMP method/unknown-invocation)
 (define-cse-method 'INVOCATION:COMPUTED-LEXPR method/unknown-invocation)
 (define-cse-method 'INVOCATION:UUO-LINK method/unknown-invocation)
+(define-cse-method 'INVOCATION:GLOBAL-LINK method/unknown-invocation)
 (define-cse-method 'INVOCATION:PRIMITIVE method/unknown-invocation)
 (define-cse-method 'INVOCATION:SPECIAL-PRIMITIVE method/unknown-invocation)
 

diff --git a/v7/src/compiler/rtlopt/rinvex.scm b/v7/src/compiler/rtlopt/rinvex.scm
index f60f4658020e2fe719e3eed0c11751cdbce52a54..8d1dfb5a1f3a8f20f6e64b21642a5ca21ba6dd86 100644 (file)
--- a/v7/src/compiler/rtlopt/rinvex.scm
+++ b/v7/src/compiler/rtlopt/rinvex.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlopt/rinvex.scm,v 1.4 1990/05/03 15:22:29 jinx Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlopt/rinvex.scm,v 1.5 1991/05/06 22:44:31 jinx Exp $
 
-Copyright (c) 1989, 1990 Massachusetts Institute of Technology
+Copyright (c) 1989-1991 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -254,6 +254,7 @@ MIT in each case. |#
            INVOCATION:LEXPR
            INVOCATION:PRIMITIVE
            INVOCATION:UUO-LINK
+           INVOCATION:GLOBAL-LINK
            OPEN-PROCEDURE-HEADER
            OVERFLOW-TEST
            POP-RETURN