summaryrefslogtreecommitdiffstats
path: root/doc/user/task.t
diff options
context:
space:
mode:
authorJoel Sherrill <joel.sherrill@OARcorp.com>2003-11-25 14:15:24 +0000
committerJoel Sherrill <joel.sherrill@OARcorp.com>2003-11-25 14:15:24 +0000
commit444d0489d32b4af21990f3a551dfd9790a2f1777 (patch)
treee40adf71873836a84d99cf5072a7b5f8b3aaf1c3 /doc/user/task.t
parent091967571c9b9112aee6b6824602d486b68db161 (diff)
downloadrtems-444d0489d32b4af21990f3a551dfd9790a2f1777.tar.bz2
2003-11-25 Joel Sherrill <joel@OARcorp.com>
PR 528/rtems_misc * task.t: Fix Ada binding for task variable calls.
Diffstat (limited to 'doc/user/task.t')
-rw-r--r--doc/user/task.t25
1 files changed, 15 insertions, 10 deletions
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