From: Joe Marshall <eval.apply@gmail.com>
Date: Wed, 18 Jan 2012 04:11:35 +0000 (-0800)
Subject: Use new potential-control-merge slot.
X-Git-Tag: release-9.2.0~334^2~20
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=dd9e8ad11f161e01977a600cf507d53fb43b5a43;p=mit-scheme.git

Use new potential-control-merge slot.
---

diff --git a/src/compiler/rtlgen/rtlgen.scm b/src/compiler/rtlgen/rtlgen.scm
index e551c890f..16bd8b7fb 100644
--- 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]"))
 
 (define (rgraph/compress! rgraph)
   (with-new-node-marks