[gforth] / gforth / xxxprim  

gforth: gforth/xxxprim

Diff for /gforth/xxxprim between version 1.4 and 1.5

version 1.4, Thu Oct 2 18:58:47 2003 UTC version 1.5, Sun Oct 5 20:14:10 2003 UTC
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           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  \E state S0
 \E state S1  \E state S1
Line 168 
Line 168 
 \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 data-stack to cache-stack
   \E here 4 cache-states 2! s0 , s1 , s2 , s3 ,
   
 \E S1 to state-in  \E S1 to state-in
 \E S1 to state-out  \E S1 to state-out
   
Line 181 
Line 184 
 over ( n1 n2 -- n1 n2 n1 )  over ( n1 n2 -- n1 n2 n1 )
   
 drop ( n -- )  drop ( n -- )
   
   \E prim-states drop
   \E prim-states over

Generate output suitable for use with a patch program
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help