Add new slots to descriptor lists of basic blocks.

diff --git a/v7/src/compiler/rtlbase/rtlcfg.scm b/v7/src/compiler/rtlbase/rtlcfg.scm
index fe500d8067e14e83b7661b39efecdc056bc17caf..0e223648b7d6c0b4a8458f7dec3a48d5cf5d3e42 100644 (file)
--- a/v7/src/compiler/rtlbase/rtlcfg.scm
+++ b/v7/src/compiler/rtlbase/rtlcfg.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlbase/rtlcfg.scm,v 4.3 1988/08/31 10:12:14 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlbase/rtlcfg.scm,v 4.4 1988/09/07 06:20:33 cph Exp $
 
 Copyright (c) 1987, 1988 Massachusetts Institute of Technology
 
@@ -81,12 +81,15 @@ MIT in each case. |#
                          live-at-entry
                          live-at-exit
                          register-map
-                         label))))
+                         label
+                         continuations))))
   (set-vector-tag-description!
    sblock-tag
    (lambda (sblock)
      (append! ((vector-tag-description snode-tag) sblock)
-             (bblock-describe sblock))))
+             (bblock-describe sblock)
+             (descriptor-list sblock
+                              continuation))))
   (set-vector-tag-description!
    pblock-tag
    (lambda (pblock)