Changeset 3024


Ignore:
Timestamp:
Jun 29, 2012, 11:09:12 PM (2 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.