Changeset 0ae745c in rtems

Timestamp:

11/25/03 14:07:32 (20 years ago)

Author:

Joel Sherrill <joel.sherrill@…>

Children:

f1fcb459

Parents:

106942b

Message:

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

PR 528/rtems_misc

• rtems.ads: Add task variables to Ada binding.

Location:

cpukit/ada

Files:

• ChangeLog (modified) (1 diff)
• rtems.ads (modified) (1 diff)

cpukit/ada/ChangeLog

@@ +1 @@
+2003-11-25      Joel Sherrill <joel@OARcorp.com>
+
+        PR 528/rtems_misc
+        * rtems.ads: Add task variables to Ada binding.
+
 2003-09-04      Joel Sherrill <joel@OARcorp.com>
 

cpukit/ada/rtems.ads

@@ -898 +898 @@
       Result  :    out RTEMS.Status_Codes
    );
+   
+   type Task_Variable_Dtor is access procedure (
+      Argument : in     RTEMS.Address;
+   );
+
+   procedure Task_Variable_Add (
+      ID            : in     RTEMS.ID;
+      Task_Variable : in     RTEMS.Address;
+      Dtor          : in     RTEMS.Task_Variable_Dtor;
+      Result        :    out RTEMS.Status_Codes
+   );
+
+   procedure Task_Variable_Get (
+      ID                  : in     RTEMS.ID;
+      Task_Variable       :    out RTEMS.Address;
+      Task_Variable_Value :    out RTEMS.Address;
+      Result              :    out RTEMS.Status_Codes
+   );
+
+   procedure Task_Variable_Delete (
+      ID                  : in     RTEMS.ID;
+      Task_Variable       :    out RTEMS.Address;
+      Result              :    out RTEMS.Status_Codes
+   );
 
    procedure Task_Wake_When (