diff options
| author | Joel Sherrill <joel.sherrill@OARcorp.com> | 2008-11-20 15:11:26 +0000 |
|---|---|---|
| committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 2008-11-20 15:11:26 +0000 |
| commit | 20b921b451118aae9cb978acbf178a15376c79b5 (patch) | |
| tree | f34220410a09dcd8af9b45e80bc0062a6b73808d /doc | |
| parent | Regenerate. (diff) | |
| download | rtems-20b921b451118aae9cb978acbf178a15376c79b5.tar.bz2 | |
2008-11-20 Joel Sherrill <joel.sherrill@OARcorp.com>
PR 1339/Ada
* user/io.t: Re-add IO Manager to Ada binding.
Diffstat (limited to 'doc')
| -rw-r--r-- | doc/ChangeLog | 5 | ||||
| -rw-r--r-- | doc/user/io.t | 67 |
2 files changed, 60 insertions, 12 deletions
diff --git a/doc/ChangeLog b/doc/ChangeLog index 2d5944db39..00f45167e3 100644 --- a/doc/ChangeLog +++ b/doc/ChangeLog @@ -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 diff --git a/doc/user/io.t b/doc/user/io.t index 722bdc9691..5fc91fe858 100644 --- a/doc/user/io.t +++ b/doc/user/io.t @@ -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 |