From 182e9f8e3d5d1aff3f399327456a1b219fd20453 Mon Sep 17 00:00:00 2001 From: Joel Sherrill Date: Fri, 30 Aug 2002 12:07:54 +0000 Subject: 2002-08-30 Joel Sherrill * rtems.adb (IO_Initialize): Make this match the C prototype. --- c/src/ada/ChangeLog | 4 ++++ c/src/ada/rtems.adb | 13 ++----------- 2 files changed, 6 insertions(+), 11 deletions(-) (limited to 'c') 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 + + * rtems.adb (IO_Initialize): Make this match the C prototype. + 2002-08-27 Joel Sherrill * 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; -- cgit v1.2.3