gforth/engine/main.c - diff

Return to main.c CVS log

Up to [gforth] / gforth / engine

version 1.261, 2012/07/23 15:07:23	version 1.262, 2012/08/15 21:51:58
Line 656 Cell gforth_go(Xt* ip0)	Line 656 Cell gforth_go(Xt* ip0)
#ifdef SYSSIGNALS	#ifdef SYSSIGNALS
int throw_code;	int throw_code;
jmp_buf throw_jmp_buf;	jmp_buf throw_jmp_buf;
	jmp_buf* old_handler;
#endif	#endif
Cell signal_data_stack[24];	Cell signal_data_stack[24];
Cell signal_return_stack[16];	Cell signal_return_stack[16];
Float signal_fp_stack[1];	Float signal_fp_stack[1];
	Cell result;

#if defined(SYSSIGNALS) && !defined(STANDALONE)	#if defined(SYSSIGNALS) && !defined(STANDALONE)
	old_handler = throw_jmp_handler;
throw_jmp_handler = &throw_jmp_buf;	throw_jmp_handler = &throw_jmp_buf;

debugp(stderr, "setjmp(%p)\n", *throw_jmp_handler);	debugp(stderr, "setjmp(%p)\n", *throw_jmp_handler);
Line 691 Cell gforth_go(Xt* ip0)	Line 694 Cell gforth_go(Xt* ip0)
}	}
#endif	#endif

return((Cell)gforth_engine(ip0 sr_call));	result=((Cell)gforth_engine(ip0 sr_call));
	throw_jmp_handler = old_handler;
	return result;
}	}

#if !defined(INCLUDE_IMAGE) && !defined(STANDALONE)	#if !defined(INCLUDE_IMAGE) && !defined(STANDALONE)