Changeset 182e9f8 in rtems

Timestamp:

08/30/02 12:07:54 (20 years ago)

Author:

Joel Sherrill <joel.sherrill@…>

Branches:

4.10, 4.11, 4.8, 4.9, 5, master

Children:

b83fd620

Parents:

af16d17d

Message:

2002-08-30 Joel Sherrill <joel@…>

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

Files:

• c/src/ada/ChangeLog (modified) (1 diff)
• c/src/ada/rtems.adb (modified) (2 diffs)
• cpukit/ada/ChangeLog (modified) (1 diff)
• cpukit/ada/rtems.adb (modified) (2 diffs)

c/src/ada/ChangeLog

@@ +1 @@
+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>
 

c/src/ada/rtems.adb

@@ -1616 +1616 @@
       Minor        : in     RTEMS.Device_Minor_Number;
       Argument     : in     RTEMS.Address;
-      Return_Value :    out RTEMS.Unsigned32;
       Result       :    out RTEMS.Status_Codes
    ) is
@@ -1622 +1621 @@
          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;
+   begin
+ 
+      Result := IO_Initialize_Base ( Major, Minor, Argument );
 
    end IO_Initialize;

cpukit/ada/ChangeLog

@@ +1 @@
+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>
 

cpukit/ada/rtems.adb

@@ -1616 +1616 @@
       Minor        : in     RTEMS.Device_Minor_Number;
       Argument     : in     RTEMS.Address;
-      Return_Value :    out RTEMS.Unsigned32;
       Result       :    out RTEMS.Status_Codes
    ) is
@@ -1622 +1621 @@
          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;
+   begin
+ 
+      Result := IO_Initialize_Base ( Major, Minor, Argument );
 
    end IO_Initialize;