Mirrors_Framework/rtems
1
0
Fork 0
mirror of https://gitlab.rtems.org/rtems/rtos/rtems.git synced 2026-09-20 23:36:13 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
* rtems.adb: Use public API not _TOD_Microseconds_per_tick.
This commit is contained in:
Joel Sherrill
2008-12-16 15:58:56 +00:00
parent bbd7ea22e1
commit b3a4579e94
2 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
c/src/ada/ChangeLog
+4
View File
@@ -1,3 +1,7 @@
2008-12-16 Joel Sherrill <joel.sherrill@oarcorp.com>
* rtems.adb: Use public API not _TOD_Microseconds_per_tick.
2008-12-03 Joel Sherrill <joel.sherrill@OARcorp.com>
PR 1345/Ada
c/src/ada/rtems.adb
+2 -2
View File
@@ -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;