From 1e3e81fdb69fc820576a3d088e4afae7b049a76f Mon Sep 17 00:00:00 2001
From: Joel Sherrill <joel.sherrill@OARcorp.com>
Date: Thu, 7 Oct 1999 16:17:41 +0000
Subject: Added Is_Suspended method.

---
 c/src/ada/rtems.adb | 15 +++++++++++++++
 c/src/ada/rtems.ads |  5 +++++
 2 files changed, 20 insertions(+)

(limited to 'c')

diff --git a/c/src/ada/rtems.adb b/c/src/ada/rtems.adb
index 9bd7432be1..7a58956617 100644
--- a/c/src/ada/rtems.adb
+++ b/c/src/ada/rtems.adb
@@ -429,6 +429,21 @@ package body RTEMS is
       Result := Task_Resume_Base ( ID );
 
    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 (
       ID           : in     RTEMS.ID;
diff --git a/c/src/ada/rtems.ads b/c/src/ada/rtems.ads
index 508f24046f..6c8ce3e5d4 100644
--- a/c/src/ada/rtems.ads
+++ b/c/src/ada/rtems.ads
@@ -864,6 +864,11 @@ package RTEMS is
       Result :    out RTEMS.Status_Codes
    );
 
+   procedure Task_Is_Suspended (
+      ID     : in     RTEMS.ID;
+      Result :    out RTEMS.Status_Codes
+   );
+
    procedure Task_Set_Priority (
       ID           : in     RTEMS.ID;
       New_Priority : in     RTEMS.Task_Priority;
-- 
cgit v1.2.3