diff options
| author | Joel Sherrill <joel.sherrill@OARcorp.com> | 1997-06-03 00:55:42 +0000 |
|---|---|---|
| committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 1997-06-03 00:55:42 +0000 |
| commit | a6b44a8a635abb8f9b0607cd9f08bb0dde7ced25 (patch) | |
| tree | c1f4a72617bea2db74d4822fb2efc5a6c130ee11 /c/src/ada/rtems.adb | |
| parent | *** empty log message *** (diff) | |
| download | rtems-a6b44a8a635abb8f9b0607cd9f08bb0dde7ced25.tar.bz2 | |
added Signal constants, Is_Status_Successful, and Attribute constants.
Diffstat (limited to 'c/src/ada/rtems.adb')
| -rw-r--r-- | c/src/ada/rtems.adb | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/c/src/ada/rtems.adb b/c/src/ada/rtems.adb index f8803426df..e7d8f35c39 100644 --- a/c/src/ada/rtems.adb +++ b/c/src/ada/rtems.adb @@ -158,6 +158,19 @@ package body RTEMS is end Are_Statuses_Equal; + function Is_Status_Successful ( + Status : in RTEMS.Status_Codes + ) return Standard.Boolean is + begin + + if Status = RTEMS.Successful then + return True; + end if; + + return False; + + end Is_Status_Successful; + -- -- -- RTEMS API |