From 444d0489d32b4af21990f3a551dfd9790a2f1777 Mon Sep 17 00:00:00 2001 From: Joel Sherrill Date: Tue, 25 Nov 2003 14:15:24 +0000 Subject: 2003-11-25 Joel Sherrill PR 528/rtems_misc * task.t: Fix Ada binding for task variable calls. --- doc/user/task.t | 25 +++++++++++++++---------- 1 file changed, 15 insertions(+), 10 deletions(-) (limited to 'doc/user/task.t') 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 -- cgit v1.2.3