Added INVOCATION:REGISTER as an invocation that cares about its

continuation now that %internal-apply-unchecked can generate
INVOCATION:REGISTER with a continuation (symmetric to INVOCATION:NEW-APPLY).

diff --git a/v8/src/compiler/rtlopt/rtlcsm.scm b/v8/src/compiler/rtlopt/rtlcsm.scm
index 02bef53d418f37b6c28ba276b0be33fb0d2d3db2..6db124d8d0fc81625e3a5e5328558454d9cabea8 100644 (file)
--- a/v8/src/compiler/rtlopt/rtlcsm.scm
+++ b/v8/src/compiler/rtlopt/rtlcsm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: rtlcsm.scm,v 1.2 1994/11/26 19:02:23 adams Exp $
+$Id: rtlcsm.scm,v 1.3 1995/03/18 15:09:27 adams Exp $
 
 Copyright (c) 1989-1994 Massachusetts Institute of Technology
 
@@ -290,6 +290,7 @@ MIT in each case. |#
   (not (memq (rtl:expression-type expression)
             '(INVOCATION:PROCEDURE
               INVOCATION:NEW-APPLY
+              INVOCATION:REGISTER
               INVOCATION:UUO-LINK
               INVOCATION:GLOBAL-LINK))))