RTOS/rtems
1
0
Fork 0
forked from Imagelibrary/rtems
Code Pull Requests Activity

Fixed IO Manager calls to remove an argument which was used in 3.2.1

Browse Source 
but not in newer RTEMS.
This commit is contained in:
Joel Sherrill
1997-08-28 22:23:10 +00:00
parent e9932367e7
commit ad9250cfe3
4 changed files with 18 additions and 128 deletions
Download Patch File Download Diff File Expand all files Collapse all files

68
c/src/ada/rtems.adb
View File

@@ -1740,27 +1740,17 @@ package body RTEMS is
Major : in RTEMS.Device_Major_Number; Major : in RTEMS.Device_Major_Number;
Minor : in RTEMS.Device_Minor_Number; Minor : in RTEMS.Device_Minor_Number;
Argument : in RTEMS.Address; Argument : in RTEMS.Address;
Return_Value : out RTEMS.Unsigned32;
Result : out RTEMS.Status_Codes Result : out RTEMS.Status_Codes
) is ) is
function IO_Open_Base ( function IO_Open_Base (
Major : RTEMS.Device_Major_Number; Major : RTEMS.Device_Major_Number;
Minor : RTEMS.Device_Minor_Number; Minor : RTEMS.Device_Minor_Number;
Argument : RTEMS.Address; Argument : RTEMS.Address
Return_Value : access RTEMS.Unsigned32
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, IO_Open_Base, "rtems_io_open"); pragma Import (C, IO_Open_Base, "rtems_io_open");
Return_Value_Base : aliased RTEMS.Unsigned32 := Return_Value;
begin begin
Result := IO_Open_Base ( Result := IO_Open_Base (Major, Minor, Argument);
Major,
Minor,
Argument,
Return_Value_Base'Unchecked_Access
);
Return_Value := Return_Value_Base;
end IO_Open; end IO_Open;
@@ -1768,27 +1758,17 @@ package body RTEMS is
Major : in RTEMS.Device_Major_Number; Major : in RTEMS.Device_Major_Number;
Minor : in RTEMS.Device_Minor_Number; Minor : in RTEMS.Device_Minor_Number;
Argument : in RTEMS.Address; Argument : in RTEMS.Address;
Return_Value : out RTEMS.Unsigned32;
Result : out RTEMS.Status_Codes Result : out RTEMS.Status_Codes
) is ) is
function IO_Close_Base ( function IO_Close_Base (
Major : RTEMS.Device_Major_Number; Major : RTEMS.Device_Major_Number;
Minor : RTEMS.Device_Minor_Number; Minor : RTEMS.Device_Minor_Number;
Argument : RTEMS.Address; Argument : RTEMS.Address
Return_Value : access RTEMS.Unsigned32
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, IO_Close_Base, "rtems_io_close"); pragma Import (C, IO_Close_Base, "rtems_io_close");
Return_Value_Base : aliased RTEMS.Unsigned32 := Return_Value;
begin begin
Result := IO_Close_Base ( Result := IO_Close_Base (Major, Minor, Argument);
Major,
Minor,
Argument,
Return_Value_Base'Unchecked_Access
);
Return_Value := Return_Value_Base;
end IO_Close; end IO_Close;
@@ -1796,27 +1776,17 @@ package body RTEMS is
Major : in RTEMS.Device_Major_Number; Major : in RTEMS.Device_Major_Number;
Minor : in RTEMS.Device_Minor_Number; Minor : in RTEMS.Device_Minor_Number;
Argument : in RTEMS.Address; Argument : in RTEMS.Address;
Return_Value : out RTEMS.Unsigned32;
Result : out RTEMS.Status_Codes Result : out RTEMS.Status_Codes
) is ) is
function IO_Read_Base ( function IO_Read_Base (
Major : RTEMS.Device_Major_Number; Major : RTEMS.Device_Major_Number;
Minor : RTEMS.Device_Minor_Number; Minor : RTEMS.Device_Minor_Number;
Argument : RTEMS.Address; Argument : RTEMS.Address;
Return_Value : access RTEMS.Unsigned32
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, IO_Read_Base, "rtems_io_read"); pragma Import (C, IO_Read_Base, "rtems_io_read");
Return_Value_Base : aliased RTEMS.Unsigned32 := Return_Value;
begin begin
Result := IO_Read_Base ( Result := IO_Read_Base (Major, Minor, Argument);
Major,
Minor,
Argument,
Return_Value_Base'Unchecked_Access
);
Return_Value := Return_Value_Base;
end IO_Read; end IO_Read;
@@ -1824,27 +1794,17 @@ package body RTEMS is
Major : in RTEMS.Device_Major_Number; Major : in RTEMS.Device_Major_Number;
Minor : in RTEMS.Device_Minor_Number; Minor : in RTEMS.Device_Minor_Number;
Argument : in RTEMS.Address; Argument : in RTEMS.Address;
Return_Value : out RTEMS.Unsigned32;
Result : out RTEMS.Status_Codes Result : out RTEMS.Status_Codes
) is ) is
function IO_Write_Base ( function IO_Write_Base (
Major : RTEMS.Device_Major_Number; Major : RTEMS.Device_Major_Number;
Minor : RTEMS.Device_Minor_Number; Minor : RTEMS.Device_Minor_Number;
Argument : RTEMS.Address; Argument : RTEMS.Address
Return_Value : access RTEMS.Unsigned32
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, IO_Write_Base, "rtems_io_write"); pragma Import (C, IO_Write_Base, "rtems_io_write");
Return_Value_Base : aliased RTEMS.Unsigned32 := Return_Value;
begin begin
Result := IO_Write_Base ( Result := IO_Write_Base (Major, Minor, Argument);
Major,
Minor,
Argument,
Return_Value_Base'Unchecked_Access
);
Return_Value := Return_Value_Base;
end IO_Write; end IO_Write;
@@ -1852,27 +1812,17 @@ package body RTEMS is
Major : in RTEMS.Device_Major_Number; Major : in RTEMS.Device_Major_Number;
Minor : in RTEMS.Device_Minor_Number; Minor : in RTEMS.Device_Minor_Number;
Argument : in RTEMS.Address; Argument : in RTEMS.Address;
Return_Value : out RTEMS.Unsigned32;
Result : out RTEMS.Status_Codes Result : out RTEMS.Status_Codes
) is ) is
function IO_Control_Base ( function IO_Control_Base (
Major : RTEMS.Device_Major_Number; Major : RTEMS.Device_Major_Number;
Minor : RTEMS.Device_Minor_Number; Minor : RTEMS.Device_Minor_Number;
Argument : RTEMS.Address; Argument : RTEMS.Address
Return_Value : access RTEMS.Unsigned32
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, IO_Control_Base, "rtems_io_control"); pragma Import (C, IO_Control_Base, "rtems_io_control");
Return_Value_Base : aliased RTEMS.Unsigned32 := Return_Value;
begin begin
Result := IO_Control_Base ( Result := IO_Control_Base (Major, Minor, Argument);
Major,
Minor,
Argument,
Return_Value_Base'Unchecked_Access
);
Return_Value := Return_Value_Base;
end IO_Control; end IO_Control;

5
c/src/ada/rtems.ads
View File

@@ -1312,7 +1312,6 @@ package RTEMS is
Major : in RTEMS.Device_Major_Number; Major : in RTEMS.Device_Major_Number;
Minor : in RTEMS.Device_Minor_Number; Minor : in RTEMS.Device_Minor_Number;
Argument : in RTEMS.Address; Argument : in RTEMS.Address;
Return_Value : out RTEMS.Unsigned32;
Result : out RTEMS.Status_Codes Result : out RTEMS.Status_Codes
); );
@@ -1320,7 +1319,6 @@ package RTEMS is
Major : in RTEMS.Device_Major_Number; Major : in RTEMS.Device_Major_Number;
Minor : in RTEMS.Device_Minor_Number; Minor : in RTEMS.Device_Minor_Number;
Argument : in RTEMS.Address; Argument : in RTEMS.Address;
Return_Value : out RTEMS.Unsigned32;
Result : out RTEMS.Status_Codes Result : out RTEMS.Status_Codes
); );
@@ -1328,7 +1326,6 @@ package RTEMS is
Major : in RTEMS.Device_Major_Number; Major : in RTEMS.Device_Major_Number;
Minor : in RTEMS.Device_Minor_Number; Minor : in RTEMS.Device_Minor_Number;
Argument : in RTEMS.Address; Argument : in RTEMS.Address;
Return_Value : out RTEMS.Unsigned32;
Result : out RTEMS.Status_Codes Result : out RTEMS.Status_Codes
); );
@@ -1336,7 +1333,6 @@ package RTEMS is
Major : in RTEMS.Device_Major_Number; Major : in RTEMS.Device_Major_Number;
Minor : in RTEMS.Device_Minor_Number; Minor : in RTEMS.Device_Minor_Number;
Argument : in RTEMS.Address; Argument : in RTEMS.Address;
Return_Value : out RTEMS.Unsigned32;
Result : out RTEMS.Status_Codes Result : out RTEMS.Status_Codes
); );
@@ -1344,7 +1340,6 @@ package RTEMS is
Major : in RTEMS.Device_Major_Number; Major : in RTEMS.Device_Major_Number;
Minor : in RTEMS.Device_Minor_Number; Minor : in RTEMS.Device_Minor_Number;
Argument : in RTEMS.Address; Argument : in RTEMS.Address;
Return_Value : out RTEMS.Unsigned32;
Result : out RTEMS.Status_Codes Result : out RTEMS.Status_Codes
); );

68
cpukit/ada/rtems.adb
View File

@@ -1740,27 +1740,17 @@ package body RTEMS is
Major : in RTEMS.Device_Major_Number; Major : in RTEMS.Device_Major_Number;
Minor : in RTEMS.Device_Minor_Number; Minor : in RTEMS.Device_Minor_Number;
Argument : in RTEMS.Address; Argument : in RTEMS.Address;
Return_Value : out RTEMS.Unsigned32;
Result : out RTEMS.Status_Codes Result : out RTEMS.Status_Codes
) is ) is
function IO_Open_Base ( function IO_Open_Base (
Major : RTEMS.Device_Major_Number; Major : RTEMS.Device_Major_Number;
Minor : RTEMS.Device_Minor_Number; Minor : RTEMS.Device_Minor_Number;
Argument : RTEMS.Address; Argument : RTEMS.Address
Return_Value : access RTEMS.Unsigned32
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, IO_Open_Base, "rtems_io_open"); pragma Import (C, IO_Open_Base, "rtems_io_open");
Return_Value_Base : aliased RTEMS.Unsigned32 := Return_Value;
begin begin
Result := IO_Open_Base ( Result := IO_Open_Base (Major, Minor, Argument);
Major,
Minor,
Argument,
Return_Value_Base'Unchecked_Access
);
Return_Value := Return_Value_Base;
end IO_Open; end IO_Open;
@@ -1768,27 +1758,17 @@ package body RTEMS is
Major : in RTEMS.Device_Major_Number; Major : in RTEMS.Device_Major_Number;
Minor : in RTEMS.Device_Minor_Number; Minor : in RTEMS.Device_Minor_Number;
Argument : in RTEMS.Address; Argument : in RTEMS.Address;
Return_Value : out RTEMS.Unsigned32;
Result : out RTEMS.Status_Codes Result : out RTEMS.Status_Codes
) is ) is
function IO_Close_Base ( function IO_Close_Base (
Major : RTEMS.Device_Major_Number; Major : RTEMS.Device_Major_Number;
Minor : RTEMS.Device_Minor_Number; Minor : RTEMS.Device_Minor_Number;
Argument : RTEMS.Address; Argument : RTEMS.Address
Return_Value : access RTEMS.Unsigned32
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, IO_Close_Base, "rtems_io_close"); pragma Import (C, IO_Close_Base, "rtems_io_close");
Return_Value_Base : aliased RTEMS.Unsigned32 := Return_Value;
begin begin
Result := IO_Close_Base ( Result := IO_Close_Base (Major, Minor, Argument);
Major,
Minor,
Argument,
Return_Value_Base'Unchecked_Access
);
Return_Value := Return_Value_Base;
end IO_Close; end IO_Close;
@@ -1796,27 +1776,17 @@ package body RTEMS is
Major : in RTEMS.Device_Major_Number; Major : in RTEMS.Device_Major_Number;
Minor : in RTEMS.Device_Minor_Number; Minor : in RTEMS.Device_Minor_Number;
Argument : in RTEMS.Address; Argument : in RTEMS.Address;
Return_Value : out RTEMS.Unsigned32;
Result : out RTEMS.Status_Codes Result : out RTEMS.Status_Codes
) is ) is
function IO_Read_Base ( function IO_Read_Base (
Major : RTEMS.Device_Major_Number; Major : RTEMS.Device_Major_Number;
Minor : RTEMS.Device_Minor_Number; Minor : RTEMS.Device_Minor_Number;
Argument : RTEMS.Address; Argument : RTEMS.Address;
Return_Value : access RTEMS.Unsigned32
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, IO_Read_Base, "rtems_io_read"); pragma Import (C, IO_Read_Base, "rtems_io_read");
Return_Value_Base : aliased RTEMS.Unsigned32 := Return_Value;
begin begin
Result := IO_Read_Base ( Result := IO_Read_Base (Major, Minor, Argument);
Major,
Minor,
Argument,
Return_Value_Base'Unchecked_Access
);
Return_Value := Return_Value_Base;
end IO_Read; end IO_Read;
@@ -1824,27 +1794,17 @@ package body RTEMS is
Major : in RTEMS.Device_Major_Number; Major : in RTEMS.Device_Major_Number;
Minor : in RTEMS.Device_Minor_Number; Minor : in RTEMS.Device_Minor_Number;
Argument : in RTEMS.Address; Argument : in RTEMS.Address;
Return_Value : out RTEMS.Unsigned32;
Result : out RTEMS.Status_Codes Result : out RTEMS.Status_Codes
) is ) is
function IO_Write_Base ( function IO_Write_Base (
Major : RTEMS.Device_Major_Number; Major : RTEMS.Device_Major_Number;
Minor : RTEMS.Device_Minor_Number; Minor : RTEMS.Device_Minor_Number;
Argument : RTEMS.Address; Argument : RTEMS.Address
Return_Value : access RTEMS.Unsigned32
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, IO_Write_Base, "rtems_io_write"); pragma Import (C, IO_Write_Base, "rtems_io_write");
Return_Value_Base : aliased RTEMS.Unsigned32 := Return_Value;
begin begin
Result := IO_Write_Base ( Result := IO_Write_Base (Major, Minor, Argument);
Major,
Minor,
Argument,
Return_Value_Base'Unchecked_Access
);
Return_Value := Return_Value_Base;
end IO_Write; end IO_Write;
@@ -1852,27 +1812,17 @@ package body RTEMS is
Major : in RTEMS.Device_Major_Number; Major : in RTEMS.Device_Major_Number;
Minor : in RTEMS.Device_Minor_Number; Minor : in RTEMS.Device_Minor_Number;
Argument : in RTEMS.Address; Argument : in RTEMS.Address;
Return_Value : out RTEMS.Unsigned32;
Result : out RTEMS.Status_Codes Result : out RTEMS.Status_Codes
) is ) is
function IO_Control_Base ( function IO_Control_Base (
Major : RTEMS.Device_Major_Number; Major : RTEMS.Device_Major_Number;
Minor : RTEMS.Device_Minor_Number; Minor : RTEMS.Device_Minor_Number;
Argument : RTEMS.Address; Argument : RTEMS.Address
Return_Value : access RTEMS.Unsigned32
) return RTEMS.Status_Codes; ) return RTEMS.Status_Codes;
pragma Import (C, IO_Control_Base, "rtems_io_control"); pragma Import (C, IO_Control_Base, "rtems_io_control");
Return_Value_Base : aliased RTEMS.Unsigned32 := Return_Value;
begin begin
Result := IO_Control_Base ( Result := IO_Control_Base (Major, Minor, Argument);
Major,
Minor,
Argument,
Return_Value_Base'Unchecked_Access
);
Return_Value := Return_Value_Base;
end IO_Control; end IO_Control;

5
cpukit/ada/rtems.ads
View File

@@ -1312,7 +1312,6 @@ package RTEMS is
Major : in RTEMS.Device_Major_Number; Major : in RTEMS.Device_Major_Number;
Minor : in RTEMS.Device_Minor_Number; Minor : in RTEMS.Device_Minor_Number;
Argument : in RTEMS.Address; Argument : in RTEMS.Address;
Return_Value : out RTEMS.Unsigned32;
Result : out RTEMS.Status_Codes Result : out RTEMS.Status_Codes
); );
@@ -1320,7 +1319,6 @@ package RTEMS is
Major : in RTEMS.Device_Major_Number; Major : in RTEMS.Device_Major_Number;
Minor : in RTEMS.Device_Minor_Number; Minor : in RTEMS.Device_Minor_Number;
Argument : in RTEMS.Address; Argument : in RTEMS.Address;
Return_Value : out RTEMS.Unsigned32;
Result : out RTEMS.Status_Codes Result : out RTEMS.Status_Codes
); );
@@ -1328,7 +1326,6 @@ package RTEMS is
Major : in RTEMS.Device_Major_Number; Major : in RTEMS.Device_Major_Number;
Minor : in RTEMS.Device_Minor_Number; Minor : in RTEMS.Device_Minor_Number;
Argument : in RTEMS.Address; Argument : in RTEMS.Address;
Return_Value : out RTEMS.Unsigned32;
Result : out RTEMS.Status_Codes Result : out RTEMS.Status_Codes
); );
@@ -1336,7 +1333,6 @@ package RTEMS is
Major : in RTEMS.Device_Major_Number; Major : in RTEMS.Device_Major_Number;
Minor : in RTEMS.Device_Minor_Number; Minor : in RTEMS.Device_Minor_Number;
Argument : in RTEMS.Address; Argument : in RTEMS.Address;
Return_Value : out RTEMS.Unsigned32;
Result : out RTEMS.Status_Codes Result : out RTEMS.Status_Codes
); );
@@ -1344,7 +1340,6 @@ package RTEMS is
Major : in RTEMS.Device_Major_Number; Major : in RTEMS.Device_Major_Number;
Minor : in RTEMS.Device_Minor_Number; Minor : in RTEMS.Device_Minor_Number;
Argument : in RTEMS.Address; Argument : in RTEMS.Address;
Return_Value : out RTEMS.Unsigned32;
Result : out RTEMS.Status_Codes Result : out RTEMS.Status_Codes
); );