summaryrefslogtreecommitdiffstats
path: root/cpukit/ada
diff options
context:
space:
mode:
authorJoel Sherrill <joel.sherrill@OARcorp.com>1997-07-10 20:23:27 +0000
committerJoel Sherrill <joel.sherrill@OARcorp.com>1997-07-10 20:23:27 +0000
commit0b172df9f0ad61e6876111d887ed86c8c0899f37 (patch)
treef4b57dc92ba8a3811187f059eb6ff7f84e49ef3d /cpukit/ada
parentAdded information on different MVME162 models. (diff)
downloadrtems-0b172df9f0ad61e6876111d887ed86c8c0899f37.tar.bz2
fixed milliseconds and microseconds to tick conversion routines.
Diffstat (limited to 'cpukit/ada')
-rw-r--r--cpukit/ada/rtems.adb21
1 files changed, 10 insertions, 11 deletions
diff --git a/cpukit/ada/rtems.adb b/cpukit/ada/rtems.adb
index 311fe57827..3071a79ecb 100644
--- a/cpukit/ada/rtems.adb
+++ b/cpukit/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;