From 6bec4b5aa33ce09fd777eea81a1b187f2bcfc744 Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Mon, 1 May 1995 03:36:18 +0000 Subject: [PATCH] Moved call to GRAPH/INTERESTING to before call to GRAPH/CLEANUP! --- v8/src/compiler/midend/dataflow.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/v8/src/compiler/midend/dataflow.scm b/v8/src/compiler/midend/dataflow.scm index 9aef63d1b..0afa63d34 100644 --- a/v8/src/compiler/midend/dataflow.scm +++ b/v8/src/compiler/midend/dataflow.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: dataflow.scm,v 1.13 1995/04/30 17:22:37 adams Exp $ +$Id: dataflow.scm,v 1.14 1995/05/01 03:36:18 adams Exp $ Copyright (c) 1994 Massachusetts Institute of Technology @@ -91,6 +91,8 @@ MIT in each case. |# (lambda () (graph/initialize-links! graph) (graph/dataflow! graph) + (if (graph/interesting? graph) + (graph/display-statistics! graph)) (graph/cleanup! graph))) (graph/substitite-simple-constants @@ -98,8 +100,6 @@ MIT in each case. |# ;;(if compiler:guru? ;; (graph/look-for-interesting-nodes graph)) (graph/compiled-procedure-reductions graph) - (if (graph/interesting? graph) - (graph/display-statistics! graph)) graph))))) -- 2.25.1