diff options
author | Joel Sherrill <joel.sherrill@OARcorp.com> | 2008-11-20 15:22:29 +0000 |
---|---|---|
committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 2008-11-20 15:22:29 +0000 |
commit | 21b1d51d58568112c9e4cbbd325941c3c57c91df (patch) | |
tree | 16a9825ae482cd6194f7ea7db3eeda73581f266d /doc | |
parent | 2008-11-20 Joel Sherrill <joel.sherrill@OARcorp.com> (diff) | |
download | rtems-21b1d51d58568112c9e4cbbd325941c3c57c91df.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 aaa40acd86..55de2a6707 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 |