Changeset ad9250cf in rtems for cpukit


Ignore:
Timestamp:
Aug 28, 1997, 10:23:10 PM (23 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.

Location:
cpukit/ada
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • cpukit/ada/rtems.adb

    re9932367 rad9250cf  
    17411741      Minor        : in     RTEMS.Device_Minor_Number;
    17421742      Argument     : in     RTEMS.Address;
    1743       Return_Value :    out RTEMS.Unsigned32;
    17441743      Result       :    out RTEMS.Status_Codes
    17451744   ) is
     
    17471746         Major        : RTEMS.Device_Major_Number;
    17481747         Minor        : RTEMS.Device_Minor_Number;
    1749          Argument     : RTEMS.Address;
    1750          Return_Value : access RTEMS.Unsigned32
     1748         Argument     : RTEMS.Address
    17511749      )  return RTEMS.Status_Codes;
    17521750      pragma Import (C, IO_Open_Base, "rtems_io_open");
    1753       Return_Value_Base : aliased RTEMS.Unsigned32 := Return_Value;
    1754    begin
    1755  
    1756       Result := IO_Open_Base (
    1757          Major,
    1758          Minor,
    1759          Argument,
    1760          Return_Value_Base'Unchecked_Access
    1761       );
    1762  
    1763       Return_Value := Return_Value_Base;
    1764 
     1751   begin
     1752 
     1753      Result := IO_Open_Base (Major, Minor, Argument);
     1754 
    17651755   end IO_Open;
    17661756 
     
    17691759      Minor        : in     RTEMS.Device_Minor_Number;
    17701760      Argument     : in     RTEMS.Address;
    1771       Return_Value :    out RTEMS.Unsigned32;
    17721761      Result       :    out RTEMS.Status_Codes
    17731762   ) is
     
    17751764         Major        : RTEMS.Device_Major_Number;
    17761765         Minor        : RTEMS.Device_Minor_Number;
    1777          Argument     : RTEMS.Address;
    1778          Return_Value : access RTEMS.Unsigned32
     1766         Argument     : RTEMS.Address
    17791767      )  return RTEMS.Status_Codes;
    17801768      pragma Import (C, IO_Close_Base, "rtems_io_close");
    1781       Return_Value_Base : aliased RTEMS.Unsigned32 := Return_Value;
    1782    begin
    1783  
    1784       Result := IO_Close_Base (
    1785          Major,
    1786          Minor,
    1787          Argument,
    1788          Return_Value_Base'Unchecked_Access
    1789       );
    1790  
    1791       Return_Value := Return_Value_Base;
    1792 
     1769   begin
     1770 
     1771      Result := IO_Close_Base (Major, Minor, Argument);
     1772 
    17931773   end IO_Close;
    17941774 
     
    17971777      Minor        : in     RTEMS.Device_Minor_Number;
    17981778      Argument     : in     RTEMS.Address;
    1799       Return_Value :    out RTEMS.Unsigned32;
    18001779      Result       :    out RTEMS.Status_Codes
    18011780   ) is
     
    18041783         Minor        : RTEMS.Device_Minor_Number;
    18051784         Argument     : RTEMS.Address;
    1806          Return_Value : access RTEMS.Unsigned32
    18071785      )  return RTEMS.Status_Codes;
    18081786      pragma Import (C, IO_Read_Base, "rtems_io_read");
    1809       Return_Value_Base : aliased RTEMS.Unsigned32 := Return_Value;
    1810    begin
    1811  
    1812       Result := IO_Read_Base (
    1813          Major,
    1814          Minor,
    1815          Argument,
    1816          Return_Value_Base'Unchecked_Access
    1817       );
    1818  
    1819       Return_Value := Return_Value_Base;
    1820 
     1787   begin
     1788 
     1789      Result := IO_Read_Base (Major, Minor, Argument);
     1790 
    18211791   end IO_Read;
    18221792 
     
    18251795      Minor        : in     RTEMS.Device_Minor_Number;
    18261796      Argument     : in     RTEMS.Address;
    1827       Return_Value :    out RTEMS.Unsigned32;
    18281797      Result       :    out RTEMS.Status_Codes
    18291798   ) is
     
    18311800         Major        : RTEMS.Device_Major_Number;
    18321801         Minor        : RTEMS.Device_Minor_Number;
    1833          Argument     : RTEMS.Address;
    1834          Return_Value : access RTEMS.Unsigned32
     1802         Argument     : RTEMS.Address
    18351803      )  return RTEMS.Status_Codes;
    18361804      pragma Import (C, IO_Write_Base, "rtems_io_write");
    1837       Return_Value_Base : aliased RTEMS.Unsigned32 := Return_Value;
    1838    begin
    1839  
    1840       Result := IO_Write_Base (
    1841          Major,
    1842          Minor,
    1843          Argument,
    1844          Return_Value_Base'Unchecked_Access
    1845       );
    1846  
    1847       Return_Value := Return_Value_Base;
    1848 
     1805   begin
     1806 
     1807      Result := IO_Write_Base (Major, Minor, Argument);
     1808 
    18491809   end IO_Write;
    18501810 
     
    18531813      Minor        : in     RTEMS.Device_Minor_Number;
    18541814      Argument     : in     RTEMS.Address;
    1855       Return_Value :    out RTEMS.Unsigned32;
    18561815      Result       :    out RTEMS.Status_Codes
    18571816   ) is
     
    18591818         Major        : RTEMS.Device_Major_Number;
    18601819         Minor        : RTEMS.Device_Minor_Number;
    1861          Argument     : RTEMS.Address;
    1862          Return_Value : access RTEMS.Unsigned32
     1820         Argument     : RTEMS.Address
    18631821      )  return RTEMS.Status_Codes;
    18641822      pragma Import (C, IO_Control_Base, "rtems_io_control");
    1865       Return_Value_Base : aliased RTEMS.Unsigned32 := Return_Value;
    1866    begin
    1867  
    1868       Result := IO_Control_Base (
    1869          Major,
    1870          Minor,
    1871          Argument,
    1872          Return_Value_Base'Unchecked_Access
    1873       );
    1874  
    1875       Return_Value := Return_Value_Base;
    1876 
     1823   begin
     1824 
     1825      Result := IO_Control_Base (Major, Minor, Argument);
     1826 
    18771827   end IO_Control;
    18781828 
  • cpukit/ada/rtems.ads

    re9932367 rad9250cf  
    13131313      Minor        : in     RTEMS.Device_Minor_Number;
    13141314      Argument     : in     RTEMS.Address;
    1315       Return_Value :    out RTEMS.Unsigned32;
    13161315      Result       :    out RTEMS.Status_Codes
    13171316   );
     
    13211320      Minor        : in     RTEMS.Device_Minor_Number;
    13221321      Argument     : in     RTEMS.Address;
    1323       Return_Value :    out RTEMS.Unsigned32;
    13241322      Result       :    out RTEMS.Status_Codes
    13251323   );
     
    13291327      Minor        : in     RTEMS.Device_Minor_Number;
    13301328      Argument     : in     RTEMS.Address;
    1331       Return_Value :    out RTEMS.Unsigned32;
    13321329      Result       :    out RTEMS.Status_Codes
    13331330   );
     
    13371334      Minor        : in     RTEMS.Device_Minor_Number;
    13381335      Argument     : in     RTEMS.Address;
    1339       Return_Value :    out RTEMS.Unsigned32;
    13401336      Result       :    out RTEMS.Status_Codes
    13411337   );
     
    13451341      Minor        : in     RTEMS.Device_Minor_Number;
    13461342      Argument     : in     RTEMS.Address;
    1347       Return_Value :    out RTEMS.Unsigned32;
    13481343      Result       :    out RTEMS.Status_Codes
    13491344   );
Note: See TracChangeset for help on using the changeset viewer.