gforth/xxxprim - diff

Return to xxxprim CVS log

Up to [gforth] / gforth

version 1.5, 2003/10/05 20:14:10	version 1.7, 2003/10/09 14:15:19
Line 148	Line 148
\E create regs sp2 , sp1 , spTOS ,	\E create regs sp2 , sp1 , spTOS ,

\E IPregs 1 0 stack-state IPss1	\E IPregs 1 0 stack-state IPss1
\E regs 0 -1 stack-state ss0	\E regs 3 cells + 0 -1 stack-state ss0
\E regs 2 cells + 1 0 stack-state ss1	\E regs 2 cells + 1 0 stack-state ss1
\E regs 1 cells + 2 1 stack-state ss2	\E regs 1 cells + 2 1 stack-state ss2
\E regs 0 cells + 3 2 stack-state ss3	\E regs 0 cells + 3 2 stack-state ss3

\E state S0	\ the first of these is the default state
\E state S1	\E state S1
	\E state S0
\E state S2	\E state S2
\E state S3	\E state S3

Line 171	Line 172
\E data-stack to cache-stack	\E data-stack to cache-stack
\E here 4 cache-states 2! s0 , s1 , s2 , s3 ,	\E here 4 cache-states 2! s0 , s1 , s2 , s3 ,

\E S1 to state-in	\E S1 to state-default
\E S1 to state-out	\E state-default to state-in
	\E state-default to state-out

+ ( n1 n2 -- n ) core plus	+ ( n1 n2 -- n ) core plus
n = n1+n2;	n = n1+n2;
Line 185 over ( n1 n2 -- n1 n2 n1 )	Line 187 over ( n1 n2 -- n1 n2 n1 )

drop ( n -- )	drop ( n -- )

	?branch ( #a_target f -- ) f83 question_branch
	if (f==0) {
	SET_IP((Xt *)a_target);
	INST_TAIL; NEXT_P2;
	}
	SUPER_CONTINUE;

	noop ( -- )

\E prim-states drop	\E prim-states drop
\E prim-states over	\E prim-states over

	\E branch-states ?branch

	\E gen-transitions noop