Changeset 444d048 in rtems

Timestamp:

11/25/03 14:15:24 (20 years ago)

Author:

Joel Sherrill <joel.sherrill@…>

Branches:

4.10, 4.11, 4.8, 4.9, 5, master

Children:

ba77fe60

Parents:

09196757

Message:

2003-11-25 Joel Sherrill <joel@…>

PR 528/rtems_misc

• task.t: Fix Ada binding for task variable calls.

Location:

doc/user

Files:

• ChangeLog (modified) (1 diff)
• task.t (modified) (3 diffs)

doc/user/ChangeLog

@@ +1 @@
+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>
 

doc/user/task.t

@@ -1627 +1627 @@
 @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
@@ -1685 +1690 @@
 @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
@@ -1735 +1740 @@
 @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