Changeset ad9250cf in rtems for c/src/ada/rtems.adb

Timestamp:

08/28/97 22:23:10 (26 years ago)

Author:

Joel Sherrill <joel.sherrill@…>

Branches:

4.10, 4.11, 4.8, 4.9, 5, master

Children:

cf5ef6d

Parents:

e9932367

Message:

Fixed IO Manager calls to remove an argument which was used in 3.2.1
but not in newer RTEMS.

File:

• c/src/ada/rtems.adb (modified) (10 diffs)

c/src/ada/rtems.adb

@@ -1741 +1741 @@
       Minor        : in     RTEMS.Device_Minor_Number;
       Argument     : in     RTEMS.Address;
-      Return_Value :    out RTEMS.Unsigned32;
       Result       :    out RTEMS.Status_Codes
    ) is
@@ -1747 +1746 @@
          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_Open_Base, "rtems_io_open");
-      Return_Value_Base : aliased RTEMS.Unsigned32 := Return_Value;
-   begin
- 
-      Result := IO_Open_Base (
-         Major,
-         Minor,
-         Argument,
-         Return_Value_Base'Unchecked_Access
-      );
- 
-      Return_Value := Return_Value_Base;
-
+   begin
+ 
+      Result := IO_Open_Base (Major, Minor, Argument);
+ 
    end IO_Open;
  
@@ -1769 +1759 @@
       Minor        : in     RTEMS.Device_Minor_Number;
       Argument     : in     RTEMS.Address;
-      Return_Value :    out RTEMS.Unsigned32;
       Result       :    out RTEMS.Status_Codes
    ) is
@@ -1775 +1764 @@
          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_Close_Base, "rtems_io_close");
-      Return_Value_Base : aliased RTEMS.Unsigned32 := Return_Value;
-   begin
- 
-      Result := IO_Close_Base (
-         Major,
-         Minor,
-         Argument,
-         Return_Value_Base'Unchecked_Access
-      );
- 
-      Return_Value := Return_Value_Base;
-
+   begin
+ 
+      Result := IO_Close_Base (Major, Minor, Argument);
+ 
    end IO_Close;
  
@@ -1797 +1777 @@
       Minor        : in     RTEMS.Device_Minor_Number;
       Argument     : in     RTEMS.Address;
-      Return_Value :    out RTEMS.Unsigned32;
       Result       :    out RTEMS.Status_Codes
    ) is
@@ -1804 +1783 @@
          Minor        : RTEMS.Device_Minor_Number;
          Argument     : RTEMS.Address;
-         Return_Value : access RTEMS.Unsigned32
       )  return RTEMS.Status_Codes;
       pragma Import (C, IO_Read_Base, "rtems_io_read");
-      Return_Value_Base : aliased RTEMS.Unsigned32 := Return_Value;
-   begin
- 
-      Result := IO_Read_Base (
-         Major,
-         Minor,
-         Argument,
-         Return_Value_Base'Unchecked_Access
-      );
- 
-      Return_Value := Return_Value_Base;
-
+   begin
+ 
+      Result := IO_Read_Base (Major, Minor, Argument);
+ 
    end IO_Read;
  
@@ -1825 +1795 @@
       Minor        : in     RTEMS.Device_Minor_Number;
       Argument     : in     RTEMS.Address;
-      Return_Value :    out RTEMS.Unsigned32;
       Result       :    out RTEMS.Status_Codes
    ) is
@@ -1831 +1800 @@
          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_Write_Base, "rtems_io_write");
-      Return_Value_Base : aliased RTEMS.Unsigned32 := Return_Value;
-   begin
- 
-      Result := IO_Write_Base (
-         Major,
-         Minor,
-         Argument,
-         Return_Value_Base'Unchecked_Access
-      );
- 
-      Return_Value := Return_Value_Base;
-
+   begin
+ 
+      Result := IO_Write_Base (Major, Minor, Argument);
+ 
    end IO_Write;
  
@@ -1853 +1813 @@
       Minor        : in     RTEMS.Device_Minor_Number;
       Argument     : in     RTEMS.Address;
-      Return_Value :    out RTEMS.Unsigned32;
       Result       :    out RTEMS.Status_Codes
    ) is
@@ -1859 +1818 @@
          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_Control_Base, "rtems_io_control");
-      Return_Value_Base : aliased RTEMS.Unsigned32 := Return_Value;
-   begin
- 
-      Result := IO_Control_Base (
-         Major,
-         Minor,
-         Argument,
-         Return_Value_Base'Unchecked_Access
-      );
- 
-      Return_Value := Return_Value_Base;
-
+   begin
+ 
+      Result := IO_Control_Base (Major, Minor, Argument);
+ 
    end IO_Control;