Changeset 1e3e81f in rtems

Timestamp:

10/07/99 16:17:41 (24 years ago)

Author:

Joel Sherrill <joel.sherrill@…>

Branches:

4.10, 4.11, 4.8, 4.9, 5, master

Children:

b9e4815

Parents:

4267b4b

Message:

Added Is_Suspended method.

Files:

• c/src/ada/rtems.adb (modified) (1 diff)
• c/src/ada/rtems.ads (modified) (1 diff)
• cpukit/ada/rtems.adb (modified) (1 diff)
• cpukit/ada/rtems.ads (modified) (1 diff)

c/src/ada/rtems.adb

@@ -430 +430 @@
 
    end Task_Resume;
+
+   procedure Task_Is_Suspended (
+      ID     : in     RTEMS.ID;
+      Result :    out RTEMS.Status_Codes
+   ) is
+      function Task_Is_Suspended (
+         ID : RTEMS.ID
+      )  return RTEMS.Status_Codes;
+      pragma Import (C, Task_Is_Suspended_Base, "rtems_task_is_suspended");
+   begin
+
+      Result := Task_Is_Suspended_Base ( ID );
+
+   end Task_Is_Suspended;
+
  
    procedure Task_Set_Priority (

c/src/ada/rtems.ads

@@ -865 +865 @@
    );
 
+   procedure Task_Is_Suspended (
+      ID     : in     RTEMS.ID;
+      Result :    out RTEMS.Status_Codes
+   );
+
    procedure Task_Set_Priority (
       ID           : in     RTEMS.ID;

cpukit/ada/rtems.adb

@@ -430 +430 @@
 
    end Task_Resume;
+
+   procedure Task_Is_Suspended (
+      ID     : in     RTEMS.ID;
+      Result :    out RTEMS.Status_Codes
+   ) is
+      function Task_Is_Suspended (
+         ID : RTEMS.ID
+      )  return RTEMS.Status_Codes;
+      pragma Import (C, Task_Is_Suspended_Base, "rtems_task_is_suspended");
+   begin
+
+      Result := Task_Is_Suspended_Base ( ID );
+
+   end Task_Is_Suspended;
+
  
    procedure Task_Set_Priority (

cpukit/ada/rtems.ads

@@ -865 +865 @@
    );
 
+   procedure Task_Is_Suspended (
+      ID     : in     RTEMS.ID;
+      Result :    out RTEMS.Status_Codes
+   );
+
    procedure Task_Set_Priority (
       ID           : in     RTEMS.ID;