Changeset 182e9f8 in rtems for cpukit/ada


Ignore:
Timestamp:
Aug 30, 2002, 12:07:54 PM (18 years ago)
Author:
Joel Sherrill <joel.sherrill@…>
Branches:
4.10, 4.11, 4.8, 4.9, 5, master
Children:
b83fd620
Parents:
af16d17d
Message:

2002-08-30 Joel Sherrill <joel@…>

  • rtems.adb (IO_Initialize): Make this match the C prototype.
Location:
cpukit/ada
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • cpukit/ada/ChangeLog

    raf16d17d r182e9f8  
     12002-08-30      Joel Sherrill <joel@OARcorp.com>
     2
     3        * rtems.adb (IO_Initialize): Make this match the C prototype.
     4
    152002-08-27      Joel Sherrill <joel@OARcorp.com>
    26
  • cpukit/ada/rtems.adb

    raf16d17d r182e9f8  
    16161616      Minor        : in     RTEMS.Device_Minor_Number;
    16171617      Argument     : in     RTEMS.Address;
    1618       Return_Value :    out RTEMS.Unsigned32;
    16191618      Result       :    out RTEMS.Status_Codes
    16201619   ) is
     
    16221621         Major        : RTEMS.Device_Major_Number;
    16231622         Minor        : RTEMS.Device_Minor_Number;
    1624          Argument     : RTEMS.Address;
    1625          Return_Value : access RTEMS.Unsigned32
     1623         Argument     : RTEMS.Address
    16261624      )  return RTEMS.Status_Codes;
    16271625      pragma Import (C, IO_Initialize_Base, "rtems_io_initialize");
    1628       Return_Value_Base : aliased RTEMS.Unsigned32 := Return_Value;
    1629    begin
    1630  
    1631       Result := IO_Initialize_Base (
    1632          Major,
    1633          Minor,
    1634          Argument,
    1635          Return_Value_Base'Unchecked_Access
    1636       );
    1637       Return_Value := Return_Value_Base;
     1626   begin
     1627 
     1628      Result := IO_Initialize_Base ( Major, Minor, Argument );
    16381629
    16391630   end IO_Initialize;
Note: See TracChangeset for help on using the changeset viewer.