Changeset b3a4579e in rtems for c/src/ada/rtems.adb

Timestamp:

12/16/08 15:58:56 (14 years ago)

Author:

Joel Sherrill <joel.sherrill@…>

Branches:

4.10, 4.11, 5, master

Children:

237f4611

Parents:

bbd7ea2

Message:

2008-12-16 Joel Sherrill <joel.sherrill@…>

• rtems.adb: Use public API not _TOD_Microseconds_per_tick.

File:

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

c/src/ada/rtems.adb

@@ -71 +71 @@
       Microseconds : RTEMS.Unsigned32
    ) return RTEMS.Interval is
-      Microseconds_Per_Tick : RTEMS.Interval;
-      pragma Import (C, Microseconds_Per_Tick, "_TOD_Microseconds_per_tick");
+      function Microseconds_Per_Tick return RTEMS.Unsigned32;
+      pragma Import (C, Microseconds_Per_Tick, "_ada_microseconds_per_tick");
    begin