Imagelibrary/rtems
1
0
Fork 1
mirror of https://gitlab.rtems.org/rtems/rtos/rtems.git synced 2025-12-06 07:33:17 +00:00
Code Issues Packages Projects Releases Wiki 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
); );