From 209f190f9089803eaecfdc87cb88a05b9298f1ec Mon Sep 17 00:00:00 2001 From: Joel Sherrill Date: Mon, 4 Feb 2008 17:18:23 +0000 Subject: 2008-02-04 Joel Sherrill * rtems.adb, rtems.ads: Correct binding to Object_Get_Name. Now works. --- c/src/ada/ChangeLog | 4 ++++ c/src/ada/rtems.adb | 6 +++--- c/src/ada/rtems.ads | 2 +- 3 files changed, 8 insertions(+), 4 deletions(-) (limited to 'c/src/ada') diff --git a/c/src/ada/ChangeLog b/c/src/ada/ChangeLog index ef66546b05..2f9c52b6de 100644 --- a/c/src/ada/ChangeLog +++ b/c/src/ada/ChangeLog @@ -1,3 +1,7 @@ +2008-02-04 Joel Sherrill + + * rtems.adb, rtems.ads: Correct binding to Object_Get_Name. Now works. + 2008-02-01 Joel Sherrill * rtems.adb, rtems.ads: Object_Get_Name now has a proper implementation diff --git a/c/src/ada/rtems.adb b/c/src/ada/rtems.adb index 35882c651c..012dfa7d2e 100644 --- a/c/src/ada/rtems.adb +++ b/c/src/ada/rtems.adb @@ -2012,13 +2012,13 @@ package body RTEMS is procedure Object_Get_Name( ID : in RTEMS.ID; Name : out String; - Result : out RTEMS.Status_Codes + Result : out RTEMS.Address ) is function Object_Get_Name_Base ( ID : RTEMS.ID; Length : RTEMS.Unsigned32; - Name : System.Address - ) return RTEMS.Status_Codes; + Name : RTEMS.Address + ) return RTEMS.Address; pragma Import (C, Object_Get_Name_Base, "rtems_object_get_name"); begin Name := (others => ASCII.Nul); diff --git a/c/src/ada/rtems.ads b/c/src/ada/rtems.ads index 7fa16eb25e..21fc1563a9 100644 --- a/c/src/ada/rtems.ads +++ b/c/src/ada/rtems.ads @@ -1280,7 +1280,7 @@ pragma Elaborate_Body (RTEMS); procedure Object_Get_Name( ID : in RTEMS.ID; Name : out String; - Result : out RTEMS.Status_Codes + Result : out RTEMS.Address ); procedure Object_Set_Name( -- cgit v1.2.3