steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix PowerPC callstack traces

release
Slava Pestov 2007-09-25 20:31:45 -04:00
parent d40b52f4ef
commit 6529e17067
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
vm/stack.c
View File

@ -407,13 +407,12 @@ void stack_frame_to_array(F_STACK_FRAME *frame)
offset = F; offset = F;
#ifdef CALLSTACK_UP_P #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 #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 #endif
set_array_nth(array,I(frame_index++),frame_executing(frame));
set_array_nth(array,I(frame_index++),offset);
} }
DEFINE_PRIMITIVE(callstack_to_array) DEFINE_PRIMITIVE(callstack_to_array)
@ -429,7 +428,12 @@ DEFINE_PRIMITIVE(callstack_to_array)
/* frame_count is equal to the total length now */ /* frame_count is equal to the total length now */
#ifdef CALLSTACK_UP_P
frame_index = 0; frame_index = 0;
#else
frame_index = frame_count - 1;
#endif
iterate_callstack_object(stack,stack_frame_to_array); iterate_callstack_object(stack,stack_frame_to_array);
dpush(tag_object(array)); dpush(tag_object(array));