Changeset 1e3e81f in rtems for cpukit/ada/rtems.adb


Ignore:
Timestamp:
Oct 7, 1999, 4:17:41 PM (21 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.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • cpukit/ada/rtems.adb

    r4267b4b r1e3e81f  
    430430
    431431   end Task_Resume;
     432
     433   procedure Task_Is_Suspended (
     434      ID     : in     RTEMS.ID;
     435      Result :    out RTEMS.Status_Codes
     436   ) is
     437      function Task_Is_Suspended (
     438         ID : RTEMS.ID
     439      )  return RTEMS.Status_Codes;
     440      pragma Import (C, Task_Is_Suspended_Base, "rtems_task_is_suspended");
     441   begin
     442
     443      Result := Task_Is_Suspended_Base ( ID );
     444
     445   end Task_Is_Suspended;
     446
    432447 
    433448   procedure Task_Set_Priority (
Note: See TracChangeset for help on using the changeset viewer.