[gforth] / gforth / kernel / vars.fs  

gforth: gforth/kernel/vars.fs

Diff for /gforth/kernel/vars.fs between version 1.39 and 1.41

version 1.39, Sat Feb 18 13:12:52 2006 UTC version 1.41, Sun Mar 5 14:10:52 2006 UTC
Line 55 
Line 55 
 [THEN]  [THEN]
   
 20 8 2* cells + 2 + cell+ constant word-pno-size ( -- u )  20 8 2* cells + 2 + cell+ constant word-pno-size ( -- u )
   
   has? EC 0= [IF]
 create holdbuf word-pno-size chars allot  create holdbuf word-pno-size chars allot
 holdbuf word-pno-size chars + aconstant holdbuf-end  holdbuf word-pno-size chars + aconstant holdbuf-end
 avariable holdptr holdbuf-end holdptr a!  avariable holdptr holdbuf-end holdptr a!
 avariable holdend holdbuf-end holdend a!  avariable holdend holdbuf-end holdend a!
   [THEN]
   
 84 constant pad-minsize ( -- u )  84 constant pad-minsize ( -- u )
   
Line 199 
Line 202 
 AUser LastCFA  AUser LastCFA
 AUser Last  AUser Last
   
   has? flash [IF]
       AUser flash-dp
       : rom  flash-dp dpp ! ;
       : ram  normal-dp dpp ! ;
   [THEN]
   
 User max-name-length \ maximum length of all names defined yet  User max-name-length \ maximum length of all names defined yet
 32 max-name-length !  32 max-name-length !
   

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help