2008-11-20 Joel Sherrill <joel.sherrill@OARcorp.com>

PR 1339/Ada
	* user/io.t: Re-add IO Manager to Ada binding.
This commit is contained in:
Joel Sherrill
2008-11-20 15:22:29 +00:00
parent f040148763
commit 21b1d51d58
2 changed files with 60 additions and 12 deletions

View File

@@ -1,3 +1,8 @@
2008-11-20 Joel Sherrill <joel.sherrill@OARcorp.com>
PR 1339/Ada
* user/io.t: Re-add IO Manager to Ada binding.
2008-11-13 Joel Sherrill <joel.sherrill@OARcorp.com>
PR 1336/cpukit

View File

@@ -1,5 +1,5 @@
@c
@c COPYRIGHT (c) 1988-2007.
@c COPYRIGHT (c) 1988-2008.
@c On-Line Applications Research Corporation (OAR).
@c All rights reserved.
@c
@@ -169,7 +169,11 @@ rtems_device_driver io_entry(
@ifset is-Ada
@example
NOT SUPPORTED FROM Ada BINDING
function IO_Entry (
Major : in RTEMS.Device_Major_Number;
Minor : in RTEMS.Device_Major_Number;
Argument_Block : in RTEMS.Address
) return RTEMS.Status_Code;
@end example
@end ifset
@@ -266,7 +270,7 @@ rtems_status_code rtems_io_register_driver(
@ifset is-Ada
@example
NOT SUPPORTED FROM Ada BINDING
No Ada implementation.
@end example
@end ifset
@@ -323,7 +327,7 @@ rtems_status_code rtems_io_unregister_driver(
@ifset is-Ada
@example
NOT SUPPORTED FROM Ada BINDING
No Ada implementation.
@end example
@end ifset
@@ -363,7 +367,12 @@ rtems_status_code rtems_io_initialize(
@ifset is-Ada
@example
NOT SUPPORTED FROM Ada BINDING
procedure IO_Initialize (
Major : in RTEMS.Device_Major_Number;
Minor : in RTEMS.Device_Minor_Number;
Argument : in RTEMS.Address;
Result : out RTEMS.Status_Codes
);
@end example
@end ifset
@@ -413,7 +422,12 @@ rtems_status_code rtems_io_register_name(
@ifset is-Ada
@example
NOT SUPPORTED FROM Ada BINDING
procedure IO_Register_Name (
Name : in String;
Major : in RTEMS.Device_Major_Number;
Minor : in RTEMS.Device_Minor_Number;
Result : out RTEMS.Status_Codes
);
@end example
@end ifset
@@ -453,7 +467,11 @@ rtems_status_code rtems_io_lookup_name(
@ifset is-Ada
@example
NOT SUPPORTED FROM Ada BINDING
procedure IO_Lookup_Name (
Name : in String;
Device_Info : out RTEMS.Driver_Name_t_Pointer;
Result : out RTEMS.Status_Codes
);
@end example
@end ifset
@@ -494,7 +512,12 @@ rtems_status_code rtems_io_open(
@ifset is-Ada
@example
NOT SUPPORTED FROM Ada BINDING
procedure IO_Open (
Major : in RTEMS.Device_Major_Number;
Minor : in RTEMS.Device_Minor_Number;
Argument : in RTEMS.Address;
Result : out RTEMS.Status_Codes
);
@end example
@end ifset
@@ -538,7 +561,12 @@ rtems_status_code rtems_io_close(
@ifset is-Ada
@example
NOT SUPPORTED FROM Ada BINDING
procedure IO_Close (
Major : in RTEMS.Device_Major_Number;
Minor : in RTEMS.Device_Minor_Number;
Argument : in RTEMS.Address;
Result : out RTEMS.Status_Codes
);
@end example
@end ifset
@@ -582,7 +610,12 @@ rtems_status_code rtems_io_read(
@ifset is-Ada
@example
NOT SUPPORTED FROM Ada BINDING
procedure IO_Read (
Major : in RTEMS.Device_Major_Number;
Minor : in RTEMS.Device_Minor_Number;
Argument : in RTEMS.Address;
Result : out RTEMS.Status_Codes
);
@end example
@end ifset
@@ -627,7 +660,12 @@ rtems_status_code rtems_io_write(
@ifset is-Ada
@example
NOT SUPPORTED FROM Ada BINDING
procedure IO_Write (
Major : in RTEMS.Device_Major_Number;
Minor : in RTEMS.Device_Minor_Number;
Argument : in RTEMS.Address;
Result : out RTEMS.Status_Codes
);
@end example
@end ifset
@@ -673,7 +711,12 @@ rtems_status_code rtems_io_control(
@ifset is-Ada
@example
NOT SUPPORTED FROM Ada BINDING
procedure IO_Control (
Major : in RTEMS.Device_Major_Number;
Minor : in RTEMS.Device_Minor_Number;
Argument : in RTEMS.Address;
Result : out RTEMS.Status_Codes
);
@end example
@end ifset