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

5
c/src/ada/ChangeLog
View File

@@ -1,3 +1,8 @@
2008-02-01 Joel Sherrill <joel.sherrill@oarcorp.com>
* rtems.adb, rtems.ads: Object_Get_Name now has a proper implementation
thanks to a binding tip from Laurent Guerby.
2008-02-01 Joel Sherrill <joel.sherrill@oarcorp.com> 2008-02-01 Joel Sherrill <joel.sherrill@oarcorp.com>
* rtems.adb, rtems.ads: Add Ada binding for Object Services. * rtems.adb, rtems.ads: Add Ada binding for Object Services.

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

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

@@ -1279,7 +1279,6 @@ pragma Elaborate_Body (RTEMS);
procedure Object_Get_Name( procedure Object_Get_Name(
ID : in RTEMS.ID; ID : in RTEMS.ID;
Length : in RTEMS.Unsigned32;
Name : out String; Name : out String;
Result : out RTEMS.Status_Codes Result : out RTEMS.Status_Codes
); );