[gforth] / gforth / prim  

gforth: gforth/prim

Diff for /gforth/prim between version 1.136 and 1.137

version 1.136, Sun Aug 17 12:21:05 2003 UTC version 1.137, Sun Aug 17 22:52:33 2003 UTC
Line 793 
Line 793 
 ud = (UDCell)u1 * (UDCell)u2;  ud = (UDCell)u1 * (UDCell)u2;
 #endif  #endif
 :  :
    >r >r 0 0 r> r> [ 8 cells ] literal 0     0 -rot dup [ 8 cells ] literal -
    DO     DO
        over >r dup >r 0< and d2*+ drop          dup 0< I' and d2*+ drop
        r> 2* r> swap     LOOP ;
    LOOP 2drop ;  
 : d2*+ ( ud n -- ud+n c )  : d2*+ ( ud n -- ud+n c )
    over MINI     over MINI
    and >r >r 2dup d+ swap r> + swap r> ;     and >r >r 2dup d+ swap r> + swap r> ;

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help