summaryrefslogtreecommitdiffstats
path: root/doc
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
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')
-rw-r--r--doc/user/ChangeLog5
-rw-r--r--doc/user/task.t25
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