diff options
author | Joel Sherrill <joel.sherrill@OARcorp.com> | 1997-07-10 20:23:27 +0000 |
---|---|---|
committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 1997-07-10 20:23:27 +0000 |
commit | 0b172df9f0ad61e6876111d887ed86c8c0899f37 (patch) | |
tree | f4b57dc92ba8a3811187f059eb6ff7f84e49ef3d /c | |
parent | Added information on different MVME162 models. (diff) | |
download | rtems-0b172df9f0ad61e6876111d887ed86c8c0899f37.tar.bz2 |
fixed milliseconds and microseconds to tick conversion routines.
Diffstat (limited to 'c')
-rw-r--r-- | c/src/ada/rtems.adb | 21 |
1 files changed, 10 insertions, 11 deletions
diff --git a/c/src/ada/rtems.adb b/c/src/ada/rtems.adb index 311fe57827..3071a79ecb 100644 --- a/c/src/ada/rtems.adb +++ b/c/src/ada/rtems.adb @@ -66,26 +66,25 @@ package body RTEMS is end Milliseconds_To_Microseconds; - function Milliseconds_To_Ticks ( - Milliseconds : RTEMS.Unsigned32 + function Microseconds_To_Ticks ( + Microseconds : RTEMS.Unsigned32 ) return RTEMS.Interval is - Ticks_Per_Second : RTEMS.Interval; - pragma Import (C, Ticks_Per_Second, "_TOD_Ticks_per_second"); - + Microseconds_Per_Tick : RTEMS.Interval; + pragma Import (C, Microseconds_Per_Tick, "_TOD_Microseconds_per_tick"); begin - return Milliseconds / Ticks_Per_Second; + return Microseconds / Microseconds_Per_Tick; - end Milliseconds_To_Ticks; + end Microseconds_To_Ticks; - function Microseconds_To_Ticks ( - Microseconds : RTEMS.Unsigned32 + function Milliseconds_To_Ticks ( + Milliseconds : RTEMS.Unsigned32 ) return RTEMS.Interval is begin - return Milliseconds_To_Ticks( Microseconds / 1000 ); + return Microseconds_To_Ticks(Milliseconds_To_Microseconds(Milliseconds)); - end Microseconds_To_Ticks; + end Milliseconds_To_Ticks; function Build_Name ( C1 : in Character; |