From 54ff7d6bb908ce409cc214a0dbce328ea79ebc3c Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 12 Dec 1988 21:51:48 +0000 Subject: [PATCH] Add new node type: `stack-overwrite' --- v7/src/compiler/fgopt/conect.scm | 14 +++++--------- 1 file changed, 5 insertions(+), 9 deletions(-) diff --git a/v7/src/compiler/fgopt/conect.scm b/v7/src/compiler/fgopt/conect.scm index 160e55b11..a6068795e 100644 --- a/v7/src/compiler/fgopt/conect.scm +++ b/v7/src/compiler/fgopt/conect.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/fgopt/conect.scm,v 4.3 1988/08/18 03:28:41 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/fgopt/conect.scm,v 4.4 1988/12/12 21:51:48 cph Rel $ -Copyright (c) 1987 Massachusetts Institute of Technology +Copyright (c) 1987, 1988 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -36,9 +36,7 @@ MIT in each case. |# (declare (usual-integrations)) -(package (connectivity-analysis) - -(define-export (connectivity-analysis expression procedures) +(define (connectivity-analysis expression procedures) (walk-node (expression-entry-node expression) (make-subgraph-color)) (for-each (lambda (procedure) (if (not (procedure-direct-linked? procedure)) @@ -88,7 +86,7 @@ MIT in each case. |# (walk-node (procedure-entry-node operator) color))))) ((RETURN) (walk-continuation (return/operator node) color)))) - ((VIRTUAL-RETURN POP ASSIGNMENT DEFINITION FG-NOOP) + ((VIRTUAL-RETURN POP ASSIGNMENT DEFINITION FG-NOOP STACK-OVERWRITE) (walk-node (snode-next node) color)) ((TRUE-TEST) (walk-node (pnode-consequent node) color) @@ -97,6 +95,4 @@ MIT in each case. |# (define (walk-continuation continuation color) (let ((rvalue (rvalue-known-value continuation))) (if rvalue - (walk-node (continuation/entry-node rvalue) color)))) - -) \ No newline at end of file + (walk-node (continuation/entry-node rvalue) color)))) \ No newline at end of file -- 2.25.1