Diff for /gforth/xxxprim between versions 1.4 and 1.7

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
   

Removed from v.1.4  
changed lines
  Added in v.1.7


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>