diff options
| author | Joel Sherrill <joel.sherrill@OARcorp.com> | 2008-02-04 17:18:23 +0000 |
|---|---|---|
| committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 2008-02-04 17:18:23 +0000 |
| commit | 209f190f9089803eaecfdc87cb88a05b9298f1ec (patch) | |
| tree | 1f027144bf4edcb1dc5080303ca62324a6ac9997 /c/src/ada | |
| parent | 2008-02-04 Joel Sherrill <joel.sherrill@oarcorp.com> (diff) | |
| download | rtems-209f190f9089803eaecfdc87cb88a05b9298f1ec.tar.bz2 | |
2008-02-04 Joel Sherrill <joel.sherrill@oarcorp.com>
* rtems.adb, rtems.ads: Correct binding to Object_Get_Name. Now works.
Diffstat (limited to 'c/src/ada')
| -rw-r--r-- | c/src/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | c/src/ada/rtems.adb | 6 | ||||
| -rw-r--r-- | c/src/ada/rtems.ads | 2 |
3 files changed, 8 insertions, 4 deletions
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 <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> * 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( |