From 3644e584087d5da21565b066d89e12bec4c53081 Mon Sep 17 00:00:00 2001 From: devans Date: Thu, 27 Aug 2009 02:47:11 +0000 Subject: [PATCH] * rtl-traverse.scm (estate-new-env): Rename arg state -> estate. (estate-push-env, estate-with-modifiers): Ditto. (estate-deepen): New function. --- cgen/ChangeLog | 6 ++++++ cgen/rtl-traverse.scm | 26 +++++++++++++++++--------- 2 files changed, 23 insertions(+), 9 deletions(-) diff --git a/cgen/ChangeLog b/cgen/ChangeLog index 4c33781eb3..2a3284c504 100644 --- a/cgen/ChangeLog +++ b/cgen/ChangeLog @@ -1,3 +1,9 @@ +2009-08-26 Doug Evans + + * rtl-traverse.scm (estate-new-env): Rename arg state -> estate. + (estate-push-env, estate-with-modifiers): Ditto. + (estate-deepen): New function. + 2009-08-25 Dave Korn * sim-model.scm (-gen-mach-defns): Use @PREFIX@_INSN__MAX instead of diff --git a/cgen/rtl-traverse.scm b/cgen/rtl-traverse.scm index dc542aaea0..ae8fb1b098 100644 --- a/cgen/rtl-traverse.scm +++ b/cgen/rtl-traverse.scm @@ -940,29 +940,37 @@ (object-copy-top estate) ) -; Create a copy of STATE with a new environment ENV. +; Create a copy of ESTATE with a new environment ENV. -(define (estate-new-env state env) - (let ((result (estate-copy state))) +(define (estate-new-env estate env) + (let ((result (estate-copy estate))) (estate-set-env! result env) result) ) -; Create a copy of STATE with environment ENV pushed onto the existing +; Create a copy of ESTATE with environment ENV pushed onto the existing ; environment list. ; There's no routine to pop the environment list as there's no current ; need for it: we make a copy of the state when we push. -(define (estate-push-env state env) - (let ((result (estate-copy state))) +(define (estate-push-env estate env) + (let ((result (estate-copy estate))) (estate-set-env! result (cons env (estate-env result))) result) ) -; Create a copy of STATE with modifiers MODS. +; Create a copy of ESTATE with the depth incremented by one. + +(define (estate-deepen estate) + (let ((result (estate-copy estate))) + (estate-set-depth! result (1+ (estate-depth estate))) + result) +) + +; Create a copy of ESTATE with modifiers MODS. -(define (estate-with-modifiers state mods) - (let ((result (estate-copy state))) +(define (estate-with-modifiers estate mods) + (let ((result (estate-copy estate))) (estate-set-modifiers! result (append mods (estate-modifiers result))) result) ) -- 2.11.0