[gforth] / gforth / kernel / basics.fs  

gforth: gforth/kernel/basics.fs

Diff for /gforth/kernel/basics.fs between version 1.1 and 1.2

version 1.1, Wed May 21 20:40:13 1997 UTC version 1.2, Fri Jun 6 17:28:15 1997 UTC
Line 48 
Line 48 
 \    here cell allot A! ;  \    here cell allot A! ;
 ' ! alias A! ( addr1 addr2 -- ) \ gforth  ' ! alias A! ( addr1 addr2 -- ) \ gforth
   
   \ UNUSED                                                17may93jaw
   
   : dictionary-end ( -- addr )
       forthstart [ 3 cells ] Aliteral @ + ;
   
   : unused ( -- u ) \ core-ext
       dictionary-end here - [ word-pno-size pad-minsize + ] Literal - ;
   
 \ here is used for pad calculation!  \ here is used for pad calculation!
   
 : dp    ( -- addr ) \ gforth  : dp    ( -- addr ) \ gforth

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help