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

	* rtems.adb, rtems.ads: Correct binding to Object_Get_Name. Now works.

1 files changed, 3 insertions, 3 deletions

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);