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

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

Browse Source 
* rtems.adb, rtems.ads: Object_Get_Name now has a proper implementation
	thanks to a binding tip from Laurent Guerby.
This commit is contained in:
Joel Sherrill
2008-02-01 22:48:17 +00:00
parent 235fb7ab80
commit 207b35efef
3 changed files with 13 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -2004,7 +2004,6 @@ package body RTEMS is
(C, Object_Get_Classic_Name_Base, "rtems_object_get_classic_name");
Tmp_Name : aliased RTEMS.Name;
begin
-- TBD
Result := Object_Get_Classic_Name_Base (ID, Tmp_Name'Access);
Name := Tmp_Name;
end Object_Get_Classic_Name;
@@ -2012,21 +2011,22 @@ package body RTEMS is
procedure Object_Get_Name(
ID : in RTEMS.ID;
Length : in RTEMS.Unsigned32;
Name : out String;
Result : out RTEMS.Status_Codes
) is
function Object_Get_Name_Base (
ID : RTEMS.ID;
-- Length : RTEMS.Unsigned32:
-- Name : chars_ptr;
Length : RTEMS.Unsigned32
Length : RTEMS.Unsigned32;
Name : System.Address
) return RTEMS.Status_Codes;
pragma Import (C, Object_Get_Name_Base, "rtems_object_get_name");
begin
-- TBD
Name := "";
Result := Object_Get_Name_Base (Id, Length);
Name := (others => ASCII.Nul);
Result := Object_Get_Name_Base (
Id,
Name'Length,
Name(Name'First)'Address
);
end Object_Get_Name;
procedure Object_Set_Name(