RTOS/rtems
1
0
Fork 0
forked from Imagelibrary/rtems
Code Pull Requests Activity

Added Is_Suspended method.

Browse Source
This commit is contained in:
Joel Sherrill
1999-10-07 16:17:41 +00:00
parent 4267b4bfd5
commit 1e3e81fdb6
4 changed files with 40 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
c/src/ada/rtems.adb
View File

@@ -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;

5
c/src/ada/rtems.ads
View File

@@ -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;

15
cpukit/ada/rtems.adb
View File

@@ -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;

5
cpukit/ada/rtems.ads
View File

@@ -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;