RTOS/rtems
1
0
Fork 0
forked from Imagelibrary/rtems
Code Pull Requests Activity

fixed milliseconds and microseconds to tick conversion routines.

Browse Source
This commit is contained in:
Joel Sherrill
1997-07-10 20:23:27 +00:00
parent bf3a7a5a9a
commit 0b172df9f0
2 changed files with 24 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
c/src/ada/rtems.adb
View File

@@ -66,27 +66,26 @@ package body RTEMS is
end Milliseconds_To_Microseconds; end Milliseconds_To_Microseconds;
function Milliseconds_To_Ticks (
Milliseconds : RTEMS.Unsigned32
) return RTEMS.Interval is
Ticks_Per_Second : RTEMS.Interval;
pragma Import (C, Ticks_Per_Second, "_TOD_Ticks_per_second");
begin
return Milliseconds / Ticks_Per_Second;
end Milliseconds_To_Ticks;
function Microseconds_To_Ticks ( function Microseconds_To_Ticks (
Microseconds : RTEMS.Unsigned32 Microseconds : RTEMS.Unsigned32
) return RTEMS.Interval is ) return RTEMS.Interval is
Microseconds_Per_Tick : RTEMS.Interval;
pragma Import (C, Microseconds_Per_Tick, "_TOD_Microseconds_per_tick");
begin begin
return Milliseconds_To_Ticks( Microseconds / 1000 ); return Microseconds / Microseconds_Per_Tick;
end Microseconds_To_Ticks; end Microseconds_To_Ticks;
function Milliseconds_To_Ticks (
Milliseconds : RTEMS.Unsigned32
) return RTEMS.Interval is
begin
return Microseconds_To_Ticks(Milliseconds_To_Microseconds(Milliseconds));
end Milliseconds_To_Ticks;
function Build_Name ( function Build_Name (
C1 : in Character; C1 : in Character;
C2 : in Character; C2 : in Character;

25
cpukit/ada/rtems.adb
View File

@@ -66,27 +66,26 @@ package body RTEMS is
end Milliseconds_To_Microseconds; end Milliseconds_To_Microseconds;
function Milliseconds_To_Ticks (
Milliseconds : RTEMS.Unsigned32
) return RTEMS.Interval is
Ticks_Per_Second : RTEMS.Interval;
pragma Import (C, Ticks_Per_Second, "_TOD_Ticks_per_second");
begin
return Milliseconds / Ticks_Per_Second;
end Milliseconds_To_Ticks;
function Microseconds_To_Ticks ( function Microseconds_To_Ticks (
Microseconds : RTEMS.Unsigned32 Microseconds : RTEMS.Unsigned32
) return RTEMS.Interval is ) return RTEMS.Interval is
Microseconds_Per_Tick : RTEMS.Interval;
pragma Import (C, Microseconds_Per_Tick, "_TOD_Microseconds_per_tick");
begin begin
return Milliseconds_To_Ticks( Microseconds / 1000 ); return Microseconds / Microseconds_Per_Tick;
end Microseconds_To_Ticks; end Microseconds_To_Ticks;
function Milliseconds_To_Ticks (
Milliseconds : RTEMS.Unsigned32
) return RTEMS.Interval is
begin
return Microseconds_To_Ticks(Milliseconds_To_Microseconds(Milliseconds));
end Milliseconds_To_Ticks;
function Build_Name ( function Build_Name (
C1 : in Character; C1 : in Character;
C2 : in Character; C2 : in Character;