From dd9e8ad11f161e01977a600cf507d53fb43b5a43 Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Tue, 17 Jan 2012 20:11:35 -0800 Subject: [PATCH] Use new potential-control-merge slot. --- src/compiler/rtlgen/rtlgen.scm | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) 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 -- 2.25.1