[gforth] / gforth / ans-report.fs  

gforth: gforth/ans-report.fs

Diff for /gforth/ans-report.fs between version 1.11 and 1.12

version 1.11, Sat Mar 22 10:04:06 2003 UTC version 1.12, Sat Sep 3 07:49:02 2005 UTC
Line 140 
Line 140 
     >body ['] branch xt>threaded over !      >body ['] branch xt>threaded over !
     cell+ >r >body r> ! ;      cell+ >r >body r> ! ;
   
   : print-names ( endaddr startaddr -- )
       space 1 -rot
       u+do ( pos )
           i @ name>string nip 1+ { len }
           len + ( newpos )
           dup cols 4 - >= if
               cr space drop len 1+
           endif
           i @ .name
       cell +loop
       drop ;
   
 forth definitions  forth definitions
 ans-report-words  ans-report-words
   
Line 153 
Line 165 
         dup >r name>int >body dup @ swap cell+ 2@ dup          dup >r name>int >body dup @ swap cell+ 2@ dup
         if          if
             ." from " r@ .name ." :" cr              ." from " r@ .name ." :" cr
             bounds              bounds print-names cr
             u+do  
                 i @ .name  
                 cell  
             +loop  
             cr  
         else          else
             2drop              2drop
         endif          endif

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help