Changeset 1e3e81f in rtems for cpukit/ada


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.

Location:
cpukit/ada
Files:
2 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 (
  • cpukit/ada/rtems.ads

    r4267b4b r1e3e81f  
    865865   );
    866866
     867   procedure Task_Is_Suspended (
     868      ID     : in     RTEMS.ID;
     869      Result :    out RTEMS.Status_Codes
     870   );
     871
    867872   procedure Task_Set_Priority (
    868873      ID           : in     RTEMS.ID;
Note: See TracChangeset for help on using the changeset viewer.