[gforth] / gforth / kernel / comp-ec.fs  

gforth: gforth/kernel/comp-ec.fs

Diff for /gforth/kernel/comp-ec.fs between version 1.2 and 1.3

version 1.2, Sat Dec 31 15:29:26 2011 UTC version 1.3, Mon Jun 11 21:58:59 2012 UTC
Line 350 
Line 350 
 : Variable ( "name" -- ) \ core  : Variable ( "name" -- ) \ core
     (Variable) 0 , dpp ! ;      (Variable) 0 , dpp ! ;
   
 : AVariable ( "name" -- ) \ gforth  
     (Variable) 0 A, dpp ! ;  
   
 : 2Variable ( "name" -- ) \ double two-variable  : 2Variable ( "name" -- ) \ double two-variable
     (Variable) 0 , 0 , dpp ! ;      (Variable) 0 , 0 , dpp ! ;
 [ELSE]  [ELSE]
 : Variable ( "name" -- ) \ core  : Variable ( "name" -- ) \ core
     Create 0 , ;      Create 0 , ;
   
 : AVariable ( "name" -- ) \ gforth  
     Create 0 A, ;  
   
 : 2Variable ( "name" -- ) \ double two-variable  : 2Variable ( "name" -- ) \ double two-variable
     Create 0 , 0 , ;      Create 0 , 0 , ;
 [THEN]  [THEN]
Line 374 
Line 368 
   
 : User ( "name" -- ) \ gforth  : User ( "name" -- ) \ gforth
     Header reveal douser: cfa, cell uallot , ;      Header reveal douser: cfa, cell uallot , ;
   
 : AUser ( "name" -- ) \ gforth  
     User ;  
 [ELSE]  [ELSE]
   
 : User Create cell uallot , DOES> @ up @ + ;  : User Create cell uallot , DOES> @ up @ + ;
   
 : AUser User ;  
 [THEN]  [THEN]
 [THEN]  [THEN]
   
Line 419 
Line 408 
 [ELSE]  [ELSE]
 : Value ( w "name" -- ) \ core-ext  : Value ( w "name" -- ) \ core-ext
     (Value) , ;      (Value) , ;
   
 : AValue ( w "name" -- ) \ core-ext  
     (Value) A, ;  
 [THEN]  [THEN]
   
 : 2Constant ( w1 w2 "name" -- ) \ double two-constant  : 2Constant ( w1 w2 "name" -- ) \ double two-constant

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help