[gforth] / gforth / kernel / int.fs  

gforth: gforth/kernel/int.fs

Diff for /gforth/kernel/int.fs between version 1.101 and 1.102

version 1.101, Fri Feb 28 10:59:13 2003 UTC version 1.102, Tue Mar 11 16:07:26 2003 UTC
Line 797 
Line 797 
 \G Adjust the string specified by @i{c-addr, u1} to remove all  \G Adjust the string specified by @i{c-addr, u1} to remove all
 \G trailing spaces. @i{u2} is the length of the modified string.  \G trailing spaces. @i{u2} is the length of the modified string.
     BEGIN      BEGIN
         1- 2dup + c@ bl =          dup
     WHILE      WHILE
             dup 0=          1- 2dup + c@ bl <>
         UNTIL      UNTIL  1+  THEN ;
     ELSE  
         1+  
     THEN ;  
   
 DEFER DOERROR  DEFER DOERROR
   

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help