diff options
| author | Joel Sherrill <joel.sherrill@OARcorp.com> | 1999-10-07 16:17:41 +0000 |
|---|---|---|
| committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 1999-10-07 16:17:41 +0000 |
| commit | 1e3e81fdb69fc820576a3d088e4afae7b049a76f (patch) | |
| tree | d072d0324c330d8b312d350cd9ac6f28f6b0d96d /c | |
| parent | Removed targets and configurations that are no longer functional (diff) | |
| download | rtems-1e3e81fdb69fc820576a3d088e4afae7b049a76f.tar.bz2 | |
Added Is_Suspended method.
Diffstat (limited to 'c')
| -rw-r--r-- | c/src/ada/rtems.adb | 15 | ||||
| -rw-r--r-- | c/src/ada/rtems.ads | 5 |
2 files changed, 20 insertions, 0 deletions
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; |