[gforth] / gforth / environ.fs  

gforth: gforth/environ.fs

Diff for /gforth/environ.fs between version 1.10 and 1.11

version 1.10, Tue Jan 14 16:30:50 1997 UTC version 1.11, Fri Mar 21 12:21:12 1997 UTC
Line 60 
Line 60 
     [ forthstart 4 cells + ] literal @ cell / ;      [ forthstart 4 cells + ] literal @ cell / ;
   
 : floating-stack ( -- n )  : floating-stack ( -- n )
     [ forthstart 5 cells + ] literal @ float / ;      [ forthstart 5 cells + ] literal @
       [IFDEF] float  float  [ELSE]  [ 1 floats ] Literal [THEN] / ;
   
 \ !! max-float  \ !! max-float
 15 constant #locals \ 1000 64 /  15 constant #locals \ 1000 64 /

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help