From: devans <devans>
Date: Thu, 27 Aug 2009 02:47:11 +0000 (+0000)
Subject: 	* rtl-traverse.scm (estate-new-env): Rename arg state -> estate.
X-Git-Tag: cgen-snapshot-20091101~1008
X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=3644e584087d5da21565b066d89e12bec4c53081;p=pf3gnuchains%2Fpf3gnuchains4x.git

	* rtl-traverse.scm (estate-new-env): Rename arg state -> estate.
	(estate-push-env, estate-with-modifiers): Ditto.
	(estate-deepen): New function.
---

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  <dje@sebabeach.org>
+
+	* 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  <dave.korn.cygwin@googlemail.com>
 
 	* 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)
 )