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

gforth: gforth/kernel/comp-ec.fs

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

version 1.1, Fri Oct 14 13:40:34 2011 UTC version 1.3, Mon Jun 11 21:58:59 2012 UTC
Line 1 
Line 1 
 \ compiler definitions                                          14sep97jaw  \ compiler definitions                                          14sep97jaw
   
 \ Copyright (C) 1995,1996,1997,1998,2000,2003,2004,2005,2006,2007,2008,2009,2010 Free Software Foundation, Inc.  \ Copyright (C) 1995,1996,1997,1998,2000,2003,2004,2005,2006,2007,2008,2009,2010,2011 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
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.1  
changed lines
  Added in v.1.3
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help