Use new potential-control-merge slot.

diff --git a/src/compiler/rtlgen/rtlgen.scm b/src/compiler/rtlgen/rtlgen.scm
index e551c890f04b5005b855fbdbf3fdb1b494a37ddc..16bd8b7fb0c7bf0541b1a4cfd4841eaccd119a11 100644 (file)
--- a/src/compiler/rtlgen/rtlgen.scm
+++ b/src/compiler/rtlgen/rtlgen.scm
@@ -365,10 +365,10 @@ USA.
           (bblock-compress!
            (edge-right-node edge)
            (lambda (bblock)
-             (cfg-node-get bblock potential-control-merge-marker)))))
+             (node-potential-control-merge bblock)))))
        (let ((bblock (edge-right-node edge)))
          (edge-disconnect-right! edge)
-         (cfg-node-put! bblock potential-control-merge-marker true)
+         (set-node-potential-control-merge! bblock true)
          (case (cfg-tag cfg)
            ((SNODE-CFG)
             (make-scfg bblock (scfg-next-hooks cfg)))
@@ -381,11 +381,9 @@ USA.
 
 (define (rgraph/postcompress! rgraph)
   (for-each (lambda (bblock)
-             (cfg-node-remove! bblock potential-control-merge-marker))
+             (set-node-potential-control-merge! bblock #f))
            (rgraph-bblocks rgraph)))
 
-(define potential-control-merge-marker
-  (intern "#[(compiler rtl-generator)potential-control-merge]"))
 \f
 (define (rgraph/compress! rgraph)
   (with-new-node-marks