[gforth] / gforth / kernel / int.fs  

gforth: gforth/kernel/int.fs

Diff for /gforth/kernel/int.fs between version 1.165 and 1.166

version 1.165, Sat Oct 25 17:18:42 2008 UTC version 1.166, Tue Jan 20 20:09:26 2009 UTC
Line 163 
Line 163 
     over c@ '' = if      over c@ '' = if
         1 /string s'>unumber? exit          1 /string s'>unumber? exit
     endif      endif
     base @ >r  getbase sign? >r      base @ >r  getbase sign?
     0. 2swap      over if
           >r 0. 2swap
     BEGIN ( d addr len )      BEGIN ( d addr len )
         dup >r >number dup          dup >r >number dup
     WHILE \ there are characters left      WHILE \ there are characters left
Line 178 
Line 179 
     ELSE      ELSE
         rdrop 2drop r> ?dnegate true          rdrop 2drop r> ?dnegate true
     THEN      THEN
       ELSE
           drop 2drop 0. false THEN
     r> base ! ;      r> base ! ;
   
 \ ouch, this is complicated; there must be a simpler way - anton  \ ouch, this is complicated; there must be a simpler way - anton

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help