Add sanity check

vm/code_heap.c

@@ -70,6 +70,11 @@ INLINE void reloc_set_2_2(CELL cell, CELL value)
 /* Store a value into a bitfield of a PowerPC instruction */
 INLINE void reloc_set_masked(CELL cell, F_FIXNUM value, CELL mask, F_FIXNUM shift)
 {
+	/* This is unaccurate but good enough */
+	F_FIXNUM test = (F_FIXNUM)mask >> 1;
+	if(value <= -test || value >= test)
+		critical_error("Value does not fit inside relocation",0);
+
 	u32 original = *(u32*)cell;
 	original &= ~mask;
 	*(u32*)cell = (original | ((value >> shift) & mask));

vm/debug.c

@@ -111,6 +111,7 @@ void print_stack_frame(F_STACK_FRAME *frame)
 	printf("\n");
 	print_obj(frame_scan(frame));
 	printf("\n");
+	printf("%lx\n",(CELL)frame->xt);
 }
 
 void print_callstack(void)