From b3a4579e944386b64359afe940288b8770d541b8 Mon Sep 17 00:00:00 2001 From: Joel Sherrill Date: Tue, 16 Dec 2008 15:58:56 +0000 Subject: 2008-12-16 Joel Sherrill * rtems.adb: Use public API not _TOD_Microseconds_per_tick. --- c/src/ada/ChangeLog | 4 ++++ c/src/ada/rtems.adb | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) (limited to 'c') diff --git a/c/src/ada/ChangeLog b/c/src/ada/ChangeLog index 9357e697f3..fd5a406d56 100644 --- a/c/src/ada/ChangeLog +++ b/c/src/ada/ChangeLog @@ -1,3 +1,7 @@ +2008-12-16 Joel Sherrill + + * rtems.adb: Use public API not _TOD_Microseconds_per_tick. + 2008-12-03 Joel Sherrill PR 1345/Ada diff --git a/c/src/ada/rtems.adb b/c/src/ada/rtems.adb index 80e60cf1b3..f46e23740d 100644 --- a/c/src/ada/rtems.adb +++ b/c/src/ada/rtems.adb @@ -70,8 +70,8 @@ package body RTEMS is 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"); + function Microseconds_Per_Tick return RTEMS.Unsigned32; + pragma Import (C, Microseconds_Per_Tick, "_ada_microseconds_per_tick"); begin return Microseconds / Microseconds_Per_Tick; -- cgit v1.2.3