Changeset 0b172df9 in rtems for c/src/ada

Timestamp:

07/10/97 20:23:27 (26 years ago)

Author:

Joel Sherrill <joel.sherrill@…>

Branches:

4.10, 4.11, 4.8, 4.9, 5, master

Children:

bb566a02

Parents:

bf3a7a5a

Message:

fixed milliseconds and microseconds to tick conversion routines.

File:

• c/src/ada/rtems.adb (modified) (1 diff)

c/src/ada/rtems.adb

@@ -67 +67 @@
    end Milliseconds_To_Microseconds;
 
+   function Microseconds_To_Ticks (
+      Microseconds : RTEMS.Unsigned32
+   ) return RTEMS.Interval is
+      Microseconds_Per_Tick : RTEMS.Interval;
+      pragma Import (C, Microseconds_Per_Tick, "_TOD_Microseconds_per_tick");
+   begin
+
+      return Microseconds / Microseconds_Per_Tick; 
+
+   end Microseconds_To_Ticks;
+
    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;
+   begin
+
+      return Microseconds_To_Ticks(Milliseconds_To_Microseconds(Milliseconds));
 
    end Milliseconds_To_Ticks;
-
-   function Microseconds_To_Ticks (
-      Microseconds : RTEMS.Unsigned32
-   ) return RTEMS.Interval is
-   begin
-
-      return Milliseconds_To_Ticks( Microseconds / 1000 );
-
-   end Microseconds_To_Ticks;
 
    function Build_Name (