Changeset 3024


Ignore:
Timestamp:
Jun 29, 2012, 9:09:12 PM (3 years ago)
Author:
wmb
Message:

Moved the definition of "du*" into the kernel.

Files:
3 edited

Legend:

Unmodified
Added
Removed
  • cpu/x86/acpitimer.fth

    r2588 r3024  
    5656   then                          ( timer.low timer.high )
    5757;
    58 : du*  ( ud.lo ud.hi u -- res.lo res.mid res.hi )  \ Ignores overflow to third cell
    59    tuck  um*  2>r           ( ud.lo u      r: res.mid0 res.hi0 )
    60    um*                      ( res.lo res.mid1  r: res.mid0 res.hi0 )
    61    0  2r> d+                ( res.lo res.mid res.hi )
    62 ;
    6358: acpi-ticks>usecs  ( d.ticks -- usec )
    64    d# 50 du* drop      ( d.product )  \ The scale factor is 1000/3580 == 50/179
     59   d# 50 du*           ( d.product )  \ The scale factor is 1000/3580 == 50/179
    6560   d# 179 um/mod nip   ( usecs )
    6661;
  • forth/kernel/double.fth

    r2796 r3024  
    6666   r>                                       ( d2 )
    6767;
     68: du*  ( d1 u -- d2 )  \ Double result
     69   tuck u* >r     ( d1.lo u r: d2.hi )
     70   um*  r> +      ( d2 )
     71;
     72: du*t  ( ud.lo ud.hi u -- res.lo res.mid res.hi )  \ Triple result
     73   tuck um*  2>r  ( ud.lo u          r: res.mid0 res.hi0 )
     74   um*            ( res.lo res.mid1  r: res.mid0 res.hi0 )
     75   0  2r> d+      ( res.lo res.mid res.hi )
     76;
    6877
    6978\ LICENSE_BEGIN
  • ofw/disklabel/gpttools.fth

    r2416 r3024  
    9932\ alias xswap 2swap
    101032\ : onex 1. ;
    11 : du*  ( d1 u -- d2 )
    12     tuck u* >r     ( d1.lo u r: d2.hi )
    13     um*  0 r> d+   ( d2 )
    14 ;
    151132\ : xu*d  ( x u -- d )  du*  ;
    161264\ alias xu*d um*
Note: See TracChangeset for help on using the changeset viewer.