[gforth] / gforth / cache-fast1.vmg

gforth: gforth/cache-fast1.vmg

-version 1.4, Sun Dec 31 13:39:11 2006 UTC
+version 1.5, Sat Jul  7 21:46:05 2007 UTC
  Line 28
  Line 28
  Line 28
  \E register spg Cell
  \E register sph Cell
+ \E register fpTOS Float
  \E create IPregs IPTOS ,
  \E create regs sph , spg , spf , spe , spd , spc , spb , spTOS ,
  \ \E create regs spTOS ,
+ \E create fpregs fpTOS ,
  \E IPregs 1 0 stack-state IPss1
  \E regs 8 cells + 0  -1 stack-state ss0
- Line 44
+ Line 47
  Line 44
  Line 47
  \E regs 0 cells + 8  7 stack-state ss8
  \ \E regs 1 cells + 0 -1 stack-state ss0
  \ \E regs           1  0 stack-state ss1
+ \E fpregs 0 cells + 1 0 stack-state fpss1
  \ the first of these is the default state (for now)
  \E state S1
- Line 83
+ Line 87
  Line 83
  Line 87
  \E IPss1 inst-stream S7 set-ss
  \E IPss1 inst-stream S8 set-ss
+ \E fpss1 fp-stack S0 set-ss
+ \E fpss1 fp-stack S1 set-ss
+ \E fpss1 fp-stack S2 set-ss
+ \E fpss1 fp-stack S3 set-ss
+ \E fpss1 fp-stack S4 set-ss
+ \E fpss1 fp-stack S5 set-ss
+ \E fpss1 fp-stack S6 set-ss
+ \E fpss1 fp-stack S7 set-ss
+ \E fpss1 fp-stack S8 set-ss
  \E data-stack to cache-stack
  \E here 9 cache-states 2! s0 , s1 , s2 , s3 , s4 , s5 , s6 , s7 , s8 ,
  \ \E here 2 cache-states 2! s0 , s1 ,

-Generate output suitable for use with a patch program
+Legend:



Removed from v.1.4
 


changed lines


 
Added in v.1.5
 Legend:



Removed from v.1.4
 


changed lines


 
Added in v.1.5
-Removed from v.1.4
+Added in v.1.5