gforth/prim - diff

Return to prim CVS log

Up to [gforth] / gforth

version 1.217, 2007/08/21 10:33:52	version 1.219, 2007/09/29 22:20:02
Line 109	Line 109
\E store-optimization on	\E store-optimization on
\E ' noop tail-nextp2 ! \ now INST_TAIL just stores, but does not jump	\E ' noop tail-nextp2 ! \ now INST_TAIL just stores, but does not jump
\E	\E
\E include-skipped-insts on \ static superinsts include cells for components	\E `include-skipped-insts' on \ static superinsts include cells for components
\E \ useful for dynamic programming and	\E \ useful for dynamic programming and
\E \ superinsts across entry points	\E \ superinsts across entry points

\	\
\	\
Line 201 n2 = n1 + (Cell )PFA(CFA);	Line 201 n2 = n1 + (Cell )PFA(CFA);
#ifdef NO_IP	#ifdef NO_IP
INST_TAIL;	INST_TAIL;
goto *next_code;	goto *next_code;
	#endif /* defined(NO_IP) */

	(dovalue) ( -- w ) gforth-internal paren_doval
	""run-time routine for constants""
	w = (Cell )PFA(CFA);
	#ifdef NO_IP
	INST_TAIL;
	goto *next_code;
#endif /* defined(NO_IP) */	#endif /* defined(NO_IP) */

(dodoes) ( -- a_body R:a_retaddr ) gforth-internal paren_dodoes	(dodoes) ( -- a_body R:a_retaddr ) gforth-internal paren_dodoes