Imagelibrary/rtems
1
0
Fork 1
mirror of https://gitlab.rtems.org/rtems/rtos/rtems.git synced 2025-12-05 15:15:44 +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,140 +1740,90 @@ 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_Open_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_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
);
Result := IO_Open_Base (Major, Minor, Argument);
Return_Value := Return_Value_Base;
end IO_Open;
procedure IO_Close (
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_Close_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_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
);
Result := IO_Close_Base (Major, Minor, Argument);
Return_Value := Return_Value_Base;
end IO_Close;
procedure IO_Read (
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_Read_Base (
Major : RTEMS.Device_Major_Number;
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
);
Result := IO_Read_Base (Major, Minor, Argument);
Return_Value := Return_Value_Base;
end IO_Read;
procedure IO_Write (
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_Write_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_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
);
Result := IO_Write_Base (Major, Minor, Argument);
Return_Value := Return_Value_Base;
end IO_Write;
procedure IO_Control (
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_Control_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_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
);
Result := IO_Control_Base (Major, Minor, Argument);
Return_Value := Return_Value_Base;
end IO_Control;

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

@@ -1312,7 +1312,6 @@ package 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
);
@@ -1320,7 +1319,6 @@ package 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
);
@@ -1328,7 +1326,6 @@ package 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
);
@@ -1336,7 +1333,6 @@ package 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
);
@@ -1344,7 +1340,6 @@ package 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
);

68
cpukit/ada/rtems.adb
View File

@@ -1740,140 +1740,90 @@ 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_Open_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_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
);
Result := IO_Open_Base (Major, Minor, Argument);
Return_Value := Return_Value_Base;
end IO_Open;
procedure IO_Close (
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_Close_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_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
);
Result := IO_Close_Base (Major, Minor, Argument);
Return_Value := Return_Value_Base;
end IO_Close;
procedure IO_Read (
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_Read_Base (
Major : RTEMS.Device_Major_Number;
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
);
Result := IO_Read_Base (Major, Minor, Argument);
Return_Value := Return_Value_Base;
end IO_Read;
procedure IO_Write (
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_Write_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_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
);
Result := IO_Write_Base (Major, Minor, Argument);
Return_Value := Return_Value_Base;
end IO_Write;
procedure IO_Control (
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_Control_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_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
);
Result := IO_Control_Base (Major, Minor, Argument);
Return_Value := Return_Value_Base;
end IO_Control;

5
cpukit/ada/rtems.ads
View File

@@ -1312,7 +1312,6 @@ package 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
);
@@ -1320,7 +1319,6 @@ package 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
);
@@ -1328,7 +1326,6 @@ package 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
);
@@ -1336,7 +1333,6 @@ package 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
);
@@ -1344,7 +1340,6 @@ package 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
);