diff options
| author | Joel Sherrill <joel.sherrill@OARcorp.com> | 2003-11-25 14:15:24 +0000 |
|---|---|---|
| committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 2003-11-25 14:15:24 +0000 |
| commit | 444d0489d32b4af21990f3a551dfd9790a2f1777 (patch) | |
| tree | e40adf71873836a84d99cf5072a7b5f8b3aaf1c3 | |
| parent | 2003-11-25 Joel Sherrill <joel@OARcorp.com> (diff) | |
| download | rtems-444d0489d32b4af21990f3a551dfd9790a2f1777.tar.bz2 | |
2003-11-25 Joel Sherrill <joel@OARcorp.com>
PR 528/rtems_misc
* task.t: Fix Ada binding for task variable calls.
| -rw-r--r-- | doc/user/ChangeLog | 5 | ||||
| -rw-r--r-- | doc/user/task.t | 25 |
2 files changed, 20 insertions, 10 deletions
diff --git a/doc/user/ChangeLog b/doc/user/ChangeLog index 5810efc641..f718ed9a68 100644 --- a/doc/user/ChangeLog +++ b/doc/user/ChangeLog @@ -1,3 +1,8 @@ +2003-11-25 Joel Sherrill <joel@OARcorp.com> + + PR 528/rtems_misc + * task.t: Fix Ada binding for task variable calls. + 2003-11-21 Joel Sherrill <joel@OARcorp.com> PR 521/doc diff --git a/doc/user/task.t b/doc/user/task.t index 6dbdb56bd1..30344e17d2 100644 --- a/doc/user/task.t +++ b/doc/user/task.t @@ -1626,10 +1626,15 @@ rtems_status_code rtems_task_variable_add( @ifset is-Ada @example +type Task_Variable_Dtor is access procedure ( + Argument : in RTEMS.Address; +); + procedure Task_Variable_Add ( - Id : in RTEMS.ID; - Ptr : in RTEMS.Address; - Result : out RTEMS.Status_Codes + ID : in RTEMS.ID; + Task_Variable : in RTEMS.Address; + Dtor : in RTEMS.Task_Variable_Dtor; + Result : out RTEMS.Status_Codes ); @end example @end ifset @@ -1684,10 +1689,10 @@ rtems_status_code rtems_task_variable_get( @ifset is-Ada @example procedure Task_Variable_Get ( - Id : in RTEMS.ID; - Ptr : in RTEMS.Address; - Value : out RTEMS.Address; - Result : out RTEMS.Status_Codes + ID : in RTEMS.ID; + Task_Variable : out RTEMS.Address; + Task_Variable_Value : out RTEMS.Address; + Result : out RTEMS.Status_Codes ); @end example @end ifset @@ -1734,9 +1739,9 @@ rtems_status_code rtems_task_variable_delete( @ifset is-Ada @example procedure Task_Variable_Delete ( - Id : in RTEMS.ID; - Ptr : in RTEMS.Address; - Result : out RTEMS.Status_Codes + ID : in RTEMS.ID; + Task_Variable : out RTEMS.Address; + Result : out RTEMS.Status_Codes ); @end example @end ifset |