diff options
Diffstat (limited to 'doc')
-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 |