Changeset a6b44a8a in rtems for c/src/ada/rtems.adb


Ignore:
Timestamp:
Jun 3, 1997, 12:55:42 AM (24 years ago)
Author:
Joel Sherrill <joel.sherrill@…>
Branches:
4.10, 4.11, 4.8, 4.9, 5, master
Children:
7d366f1c
Parents:
d0f426a1
Message:

added Signal constants, Is_Status_Successful, and Attribute constants.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • c/src/ada/rtems.adb

    rd0f426a1 ra6b44a8a  
    159159   end Are_Statuses_Equal;
    160160
     161   function Is_Status_Successful (
     162      Status  : in     RTEMS.Status_Codes
     163   ) return Standard.Boolean is
     164   begin
     165
     166      if Status = RTEMS.Successful then
     167         return True;
     168      end if;
     169
     170      return False;
     171
     172   end Is_Status_Successful;
     173
    161174   --
    162175   --
Note: See TracChangeset for help on using the changeset viewer.