diff options
Diffstat (limited to 'c/src/ada')
-rw-r--r-- | c/src/ada/ChangeLog | 4 | ||||
-rw-r--r-- | c/src/ada/rtems.adb | 13 |
2 files changed, 6 insertions, 11 deletions
diff --git a/c/src/ada/ChangeLog b/c/src/ada/ChangeLog index ba086097f5..edf76f2656 100644 --- a/c/src/ada/ChangeLog +++ b/c/src/ada/ChangeLog @@ -1,3 +1,7 @@ +2002-08-30 Joel Sherrill <joel@OARcorp.com> + + * rtems.adb (IO_Initialize): Make this match the C prototype. + 2002-08-27 Joel Sherrill <joel@OARcorp.com> * rtems.ads: Corrected binding for Io_Initialize. diff --git a/c/src/ada/rtems.adb b/c/src/ada/rtems.adb index 801150e4c1..e7e448ac02 100644 --- a/c/src/ada/rtems.adb +++ b/c/src/ada/rtems.adb @@ -1615,26 +1615,17 @@ 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_Initialize_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_Initialize_Base, "rtems_io_initialize"); - Return_Value_Base : aliased RTEMS.Unsigned32 := Return_Value; begin - Result := IO_Initialize_Base ( - Major, - Minor, - Argument, - Return_Value_Base'Unchecked_Access - ); - Return_Value := Return_Value_Base; + Result := IO_Initialize_Base ( Major, Minor, Argument ); end IO_Initialize; |