vm: unwind-native-frames is special

jckarter · jckarter · commit 039224424acf · 2011-12-19T16:54:25.000-08:00
Fixes factor#457
diff --git a/vm/quotations.cpp b/vm/quotations.cpp
@@ -89,7 +89,8 @@ bool quotation_jit::special_subprimitive_p(cell obj)
 	return obj == parent->special_objects[SIGNAL_HANDLER_WORD]
 		|| obj == parent->special_objects[LEAF_SIGNAL_HANDLER_WORD]
 		|| obj == parent->special_objects[FFI_SIGNAL_HANDLER_WORD]
-		|| obj == parent->special_objects[FFI_LEAF_SIGNAL_HANDLER_WORD];
+		|| obj == parent->special_objects[FFI_LEAF_SIGNAL_HANDLER_WORD]
+		|| obj == parent->special_objects[UNWIND_NATIVE_FRAMES_WORD];
 }
 
 bool quotation_jit::word_stack_frame_p(cell obj)

Original file line number	Diff line number	Diff line change
`@@ -89,7 +89,8 @@ bool quotation_jit::special_subprimitive_p(cell obj)`
`89`	`89`	`return obj == parent->special_objects[SIGNAL_HANDLER_WORD]`
`90`	`90`	`\|\| obj == parent->special_objects[LEAF_SIGNAL_HANDLER_WORD]`
`91`	`91`	`\|\| obj == parent->special_objects[FFI_SIGNAL_HANDLER_WORD]`
`92`		`- \|\| obj == parent->special_objects[FFI_LEAF_SIGNAL_HANDLER_WORD];`
	`92`	`+ \|\| obj == parent->special_objects[FFI_LEAF_SIGNAL_HANDLER_WORD]`
	`93`	`+ \|\| obj == parent->special_objects[UNWIND_NATIVE_FRAMES_WORD];`
`93`	`94`	`}`
`94`	`95`
`95`	`96`	`bool quotation_jit::word_stack_frame_p(cell obj)`