From ed4a6d2858b23f76184b2ae6a0638b98fb66f9b2 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 2 Nov 1988 21:51:17 +0000 Subject: [PATCH] Redefine `add-rgraph-entry-node!' to be `add-rgraph-entry-edge!', because the caller needs an edge to that node, and we wish to avoid creation of duplicate edges. --- v7/src/compiler/rtlbase/rgraph.scm | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/v7/src/compiler/rtlbase/rgraph.scm b/v7/src/compiler/rtlbase/rgraph.scm index 387c53823..08e507561 100644 --- a/v7/src/compiler/rtlbase/rgraph.scm +++ b/v7/src/compiler/rtlbase/rgraph.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlbase/rgraph.scm,v 4.3 1988/08/29 23:00:52 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlbase/rgraph.scm,v 4.4 1988/11/02 21:51:17 cph Rel $ Copyright (c) 1987, 1988 Massachusetts Institute of Technology @@ -54,10 +54,8 @@ MIT in each case. |# rgraph (cons register (rgraph-non-object-registers rgraph)))) -(define (add-rgraph-entry-node! rgraph node) - (set-rgraph-entry-edges! rgraph - (cons (node->edge node) - (rgraph-entry-edges rgraph)))) +(define (add-rgraph-entry-edge! rgraph edge) + (set-rgraph-entry-edges! rgraph (cons edge (rgraph-entry-edges rgraph)))) (define-integrable rgraph-register-renumber rgraph-register-bblock) (define-integrable set-rgraph-register-renumber! set-rgraph-register-bblock!) -- 2.25.1