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

2008-02-04 Joel Sherrill <joel.sherrill@oarcorp.com>

Browse Source 
* rtems.adb, rtems.ads: Correct binding to Object_Get_Name. Now works.
This commit is contained in:
Joel Sherrill
2008-02-04 17:18:23 +00:00
parent 3ca942abf8
commit 209f190f90
3 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
c/src/ada/ChangeLog
View File

@@ -1,3 +1,7 @@
2008-02-04 Joel Sherrill <joel.sherrill@oarcorp.com>
* rtems.adb, rtems.ads: Correct binding to Object_Get_Name. Now works.
2008-02-01 Joel Sherrill <joel.sherrill@oarcorp.com> 2008-02-01 Joel Sherrill <joel.sherrill@oarcorp.com>
* rtems.adb, rtems.ads: Object_Get_Name now has a proper implementation * rtems.adb, rtems.ads: Object_Get_Name now has a proper implementation

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

@@ -2012,13 +2012,13 @@ package body RTEMS is
procedure Object_Get_Name( procedure Object_Get_Name(
ID : in RTEMS.ID; ID : in RTEMS.ID;
Name : out String; Name : out String;
Result : out RTEMS.Status_Codes Result : out RTEMS.Address
) is ) is
function Object_Get_Name_Base ( function Object_Get_Name_Base (
ID : RTEMS.ID; ID : RTEMS.ID;
Length : RTEMS.Unsigned32; Length : RTEMS.Unsigned32;
Name : System.Address Name : RTEMS.Address
) return RTEMS.Status_Codes; ) return RTEMS.Address;
pragma Import (C, Object_Get_Name_Base, "rtems_object_get_name"); pragma Import (C, Object_Get_Name_Base, "rtems_object_get_name");
begin begin
Name := (others => ASCII.Nul); Name := (others => ASCII.Nul);

2
c/src/ada/rtems.ads
View File

@@ -1280,7 +1280,7 @@ pragma Elaborate_Body (RTEMS);
procedure Object_Get_Name( procedure Object_Get_Name(
ID : in RTEMS.ID; ID : in RTEMS.ID;
Name : out String; Name : out String;
Result : out RTEMS.Status_Codes Result : out RTEMS.Address
); );
procedure Object_Set_Name( procedure Object_Set_Name(