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

Fix compile error on GCC 4.x

db4
Slava Pestov 2009-05-20 20:01:21 -04:00
parent 610b276c86
commit 6b2192bde0
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
vm/callstack.cpp
View File

@ -110,6 +110,7 @@ cell frame_scan(stack_frame *frame)
switch(frame_type(frame)) switch(frame_type(frame))
{ {
case QUOTATION_TYPE: case QUOTATION_TYPE:
{
cell quot = frame_executing(frame); cell quot = frame_executing(frame);
if(quot == F) if(quot == F)
return F; return F;
@ -121,6 +122,7 @@ cell frame_scan(stack_frame *frame)
return tag_fixnum(quot_code_offset_to_scan( return tag_fixnum(quot_code_offset_to_scan(
quot,(cell)(return_addr - quot_xt))); quot,(cell)(return_addr - quot_xt)));
} }
}
case WORD_TYPE: case WORD_TYPE:
return F; return F;
default: default: