From 459d48c84c5226c73d248caac4ef5f596851170b Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 2 Nov 1988 21:45:03 +0000 Subject: [PATCH] (generate/rgraph): Make only a single edge for the entry of each rgraph. This is important because the linearizer looks at the number of edges to determine when labels are needed. --- v7/src/compiler/rtlgen/rtlgen.scm | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/v7/src/compiler/rtlgen/rtlgen.scm b/v7/src/compiler/rtlgen/rtlgen.scm index 3ef2e8461..b8dd6cb36 100644 --- a/v7/src/compiler/rtlgen/rtlgen.scm +++ b/v7/src/compiler/rtlgen/rtlgen.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rtlgen.scm,v 4.10 1988/10/26 12:33:00 markf Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rtlgen.scm,v 4.11 1988/11/02 21:45:03 cph Exp $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -213,12 +213,13 @@ MIT in each case. |# (define (generate/rgraph node generator) (let ((rgraph (node->rgraph node))) - (let ((entry-node - (cfg-entry-node - (fluid-let ((*current-rgraph* rgraph)) - (with-new-node-marks (lambda () (generator node))))))) - (add-rgraph-entry-node! rgraph entry-node) - (return-2 rgraph (node->edge entry-node))))) + (let ((entry-edge + (node->edge + (cfg-entry-node + (fluid-let ((*current-rgraph* rgraph)) + (with-new-node-marks (lambda () (generator node)))))))) + (add-rgraph-entry-edge! rgraph entry-edge) + (return-2 rgraph entry-edge)))) (define (node->rgraph node) (let ((color -- 2.25.1