[gforth] / gforth / kernel / comp.fs  

gforth: gforth/kernel/comp.fs

Diff for /gforth/kernel/comp.fs between version 1.86 and 1.87

version 1.86, Sun Mar 5 20:57:41 2006 UTC version 1.87, Sun Mar 26 22:54:20 2006 UTC
Line 217 
Line 217 
 : char   ( '<spaces>ccc' -- c ) \ core  : char   ( '<spaces>ccc' -- c ) \ core
     \G Skip leading spaces. Parse the string @i{ccc} and return @i{c}, the      \G Skip leading spaces. Parse the string @i{ccc} and return @i{c}, the
     \G display code representing the first character of @i{ccc}.      \G display code representing the first character of @i{ccc}.
     bl word count char@ 2drop ;      parse-name char@ 2drop ;
   
 : [char] ( compilation '<spaces>ccc' -- ; run-time -- c ) \ core bracket-char  : [char] ( compilation '<spaces>ccc' -- ; run-time -- c ) \ core bracket-char
     \G Compilation: skip leading spaces. Parse the string      \G Compilation: skip leading spaces. Parse the string
Line 459 
Line 459 
 [THEN]  [THEN]
   
 has? flash [IF]  has? flash [IF]
     : (variable) dpp @ normal-dp = IF  Create      : (variable) dpp @ normal-dp = IF  Create dpp @
         ELSE  normal-dp @ Constant dpp @ ram  THEN ;          ELSE  normal-dp @ Constant dpp @ ram  THEN ;
 : Variable ( "name" -- ) \ core  : Variable ( "name" -- ) \ core
     (Variable) 0 , dpp ! ;      (Variable) 0 , dpp ! ;

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help