gforth/xxxprim - diff

Return to xxxprim CVS log

Up to [gforth] / gforth

version 1.4, 2003/10/02 18:58:47	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 0 stack-state ss0	\E regs 3 cells + 0 -1 stack-state ss0
\E regs 2 cells + 1 1 stack-state ss1	\E regs 2 cells + 1 0 stack-state ss1
\E regs 1 cells + 2 2 stack-state ss2	\E regs 1 cells + 2 1 stack-state ss2
\E regs 0 cells + 3 3 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 168	Line 169
\E IPss1 inst-stream S2 set-ss	\E IPss1 inst-stream S2 set-ss
\E IPss1 inst-stream S3 set-ss	\E IPss1 inst-stream S3 set-ss

\E S1 to state-in	\E data-stack to cache-stack
\E S1 to state-out	\E here 4 cache-states 2! s0 , s1 , s2 , s3 ,

	\E S1 to state-default
	\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 181 lit ( #w -- w ) gforth	Line 186 lit ( #w -- w ) gforth
over ( n1 n2 -- n1 n2 n1 )	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 over

	\E branch-states ?branch

	\E gen-transitions noop