From 6529e170677b9255186a334c49db601827c3967f Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Tue, 25 Sep 2007 20:31:45 -0400
Subject: [PATCH] Fix PowerPC callstack traces

---
 vm/stack.c | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/vm/stack.c b/vm/stack.c
index cf3c1df00a..b2a05b9181 100644
--- a/vm/stack.c
+++ b/vm/stack.c
@@ -407,13 +407,12 @@ void stack_frame_to_array(F_STACK_FRAME *frame)
 		offset = F;
 
 #ifdef CALLSTACK_UP_P
-	#define I(n) (n)
+	set_array_nth(array,frame_index++,frame_executing(frame));
+	set_array_nth(array,frame_index++,offset);
 #else
-	#define I(n) (array_capacity(array) - (n) - 1)
+	set_array_nth(array,frame_index--,offset);
+	set_array_nth(array,frame_index--,frame_executing(frame));
 #endif
-
-	set_array_nth(array,I(frame_index++),frame_executing(frame));
-	set_array_nth(array,I(frame_index++),offset);
 }
 
 DEFINE_PRIMITIVE(callstack_to_array)
@@ -429,7 +428,12 @@ DEFINE_PRIMITIVE(callstack_to_array)
 
 	/* frame_count is equal to the total length now */
 
+#ifdef CALLSTACK_UP_P
 	frame_index = 0;
+#else
+	frame_index = frame_count - 1;
+#endif
+
 	iterate_callstack_object(stack,stack_frame_to_array);
 
 	dpush(tag_object(array));