Changeset 3024

Timestamp:

Jun 29, 2012 11:09:12 PM (11 months ago)

Author:

wmb

Message:

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

Files:

• cpu/x86/acpitimer.fth (modified) (1 diff)
• forth/kernel/double.fth (modified) (1 diff)
• ofw/disklabel/gpttools.fth (modified) (1 diff)

cpu/x86/acpitimer.fth

@@ -56 +56 @@
    then                          ( timer.low timer.high )
 ;
-: du*  ( ud.lo ud.hi u -- res.lo res.mid res.hi )  \ Ignores overflow to third cell
-   tuck  um*  2>r           ( ud.lo u      r: res.mid0 res.hi0 )
-   um*                      ( res.lo res.mid1  r: res.mid0 res.hi0 )
-   0  2r> d+                ( res.lo res.mid res.hi )
-;
 : acpi-ticks>usecs  ( d.ticks -- usec )
-   d# 50 du* drop      ( d.product )  \ The scale factor is 1000/3580 == 50/179
+   d# 50 du*           ( d.product )  \ The scale factor is 1000/3580 == 50/179
    d# 179 um/mod nip   ( usecs )
 ;

forth/kernel/double.fth

@@ -66 +66 @@
    r>                                       ( d2 )
 ;
+: du*  ( d1 u -- d2 )  \ Double result
+   tuck u* >r     ( d1.lo u r: d2.hi )
+   um*  r> +      ( d2 )
+;
+: du*t  ( ud.lo ud.hi u -- res.lo res.mid res.hi )  \ Triple result
+   tuck um*  2>r  ( ud.lo u          r: res.mid0 res.hi0 )
+   um*            ( res.lo res.mid1  r: res.mid0 res.hi0 )
+   0  2r> d+      ( res.lo res.mid res.hi )
+;
 
 \ LICENSE_BEGIN

ofw/disklabel/gpttools.fth

@@ -9 +9 @@
 32\ alias xswap 2swap
 32\ : onex 1. ;
-: du*  ( d1 u -- d2 )
-    tuck u* >r     ( d1.lo u r: d2.hi )
-    um*  0 r> d+   ( d2 )
-;
 32\ : xu*d  ( x u -- d )  du*  ;
 64\ alias xu*d um*