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/ChangeLog | 5 +++++ 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 + + PR 528/rtems_misc + * task.t: Fix Ada binding for task variable calls. + 2003-11-21 Joel Sherrill 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 -- cgit v1.2.3