From 2ca0044dd05a2a2c25c6d343bdd7427741c57071 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 6 Oct 2009 04:57:44 -0500
Subject: [PATCH] vm: tweak

---
 vm/data_gc.cpp | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/vm/data_gc.cpp b/vm/data_gc.cpp
index 748329bfc2..cf84fe0084 100755
--- a/vm/data_gc.cpp
+++ b/vm/data_gc.cpp
@@ -484,15 +484,18 @@ struct nursery_collector : copying_collector<nursery_collector>
 
 struct aging_collector : copying_collector<aging_collector>
 {
+	zone *tenured;
+
 	explicit aging_collector(factor_vm *myvm_, zone *newspace_) :
-		copying_collector<aging_collector>(myvm_,newspace_) {}
+		copying_collector<aging_collector>(myvm_,newspace_),
+		tenured(&myvm->data->generations[myvm->data->tenured()]) {}
 
 	bool should_copy_p(object *untagged)
 	{
 		if(newspace->contains_p(untagged))
 			return false;
 		else
-			return !myvm->data->generations[myvm->data->tenured()].contains_p(untagged);
+			return !tenured->contains_p(untagged);
 	}
 	
 	void copy_reachable_objects(cell scan, cell *end)