diff options
Diffstat (limited to 'c/src/ada')
-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; |