2002-08-30 Joel Sherrill <joel@OARcorp.com>

	* rtems.adb (IO_Initialize): Make this match the C prototype.

2 files changed, 6 insertions, 11 deletions

diff --git a/cpukit/ada/ChangeLog b/cpukit/ada/ChangeLog
index ba086097f5..edf76f2656 100644
--- a/cpukit/ada/ChangeLog
+++ b/cpukit/ada/ChangeLog
@@ -1,3 +1,7 @@
+2002-08-30	Joel Sherrill <joel@OARcorp.com>
+
+	* rtems.adb (IO_Initialize): Make this match the C prototype.
+
 2002-08-27	Joel Sherrill <joel@OARcorp.com>
 
 	* rtems.ads: Corrected binding for Io_Initialize.
diff --git a/cpukit/ada/rtems.adb b/cpukit/ada/rtems.adb
index 801150e4c1..e7e448ac02 100644
--- a/cpukit/ada/rtems.adb
+++ b/cpukit/ada/rtems.adb
@@ -1615,26 +1615,17 @@ package body RTEMS is
       Major        : in     RTEMS.Device_Major_Number;
       Minor        : in     RTEMS.Device_Minor_Number;
       Argument     : in     RTEMS.Address;
-      Return_Value :    out RTEMS.Unsigned32;
       Result       :    out RTEMS.Status_Codes
    ) is
       function IO_Initialize_Base (
          Major        : RTEMS.Device_Major_Number;
          Minor        : RTEMS.Device_Minor_Number;
-         Argument     : RTEMS.Address;
-         Return_Value : access RTEMS.Unsigned32
+         Argument     : RTEMS.Address
       )  return RTEMS.Status_Codes;
       pragma Import (C, IO_Initialize_Base, "rtems_io_initialize");
-      Return_Value_Base : aliased RTEMS.Unsigned32 := Return_Value;
    begin
  
-      Result := IO_Initialize_Base (
-         Major,
-         Minor,
-         Argument,
-         Return_Value_Base'Unchecked_Access
-      );
-      Return_Value := Return_Value_Base;
+      Result := IO_Initialize_Base ( Major, Minor, Argument );
 
    end IO_Initialize;