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 /cpukit/ada | |
| parent | *** empty log message *** (diff) | |
| download | rtems-a6b44a8a635abb8f9b0607cd9f08bb0dde7ced25.tar.bz2 | |
added Signal constants, Is_Status_Successful, and Attribute constants.
Diffstat (limited to 'cpukit/ada')
| -rw-r--r-- | cpukit/ada/rtems.adb | 13 | ||||
| -rw-r--r-- | cpukit/ada/rtems.ads | 66 |
2 files changed, 74 insertions, 5 deletions
diff --git a/cpukit/ada/rtems.adb b/cpukit/ada/rtems.adb index f8803426df..e7d8f35c39 100644 --- a/cpukit/ada/rtems.adb +++ b/cpukit/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 diff --git a/cpukit/ada/rtems.ads b/cpukit/ada/rtems.ads index c983912d5d..7eaa2ab584 100644 --- a/cpukit/ada/rtems.ads +++ b/cpukit/ada/rtems.ads @@ -14,11 +14,14 @@ -- with System; +with System.Storage_Elements; use System.Storage_Elements; with Interfaces; with Interfaces.C; package RTEMS is + Structure_Alignment : constant := 16; + -- -- RTEMS Base Types -- @@ -57,7 +60,9 @@ package RTEMS is Single_Units : constant := 4; Double_Units : constant := 8; - -- + Null_Address : constant RTEMS.Address := + System.Storage_Elements.To_Address(0); + -- More Types -- @@ -203,10 +208,19 @@ package RTEMS is -- Attribute constants -- - Default_Attributes : constant RTEMS.Attribute := 16#0000#; - - --Floating_Point : - --No_Floating_Point : + Default_Attributes : constant RTEMS.Attribute := 16#00000000#; + No_Floating_Point : constant RTEMS.Attribute := 16#00000000#; + Floating_Point : constant RTEMS.Attribute := 16#00000001#; + Local : constant RTEMS.Attribute := 16#00000000#; + Global : constant RTEMS.Attribute := 16#00000002#; + FIFO : constant RTEMS.Attribute := 16#00000000#; + Priority : constant RTEMS.Attribute := 16#00000004#; + Counting_Semaphore : constant RTEMS.Attribute := 16#00000000#; + Binary_Semaphore : constant RTEMS.Attribute := 16#00000010#; + No_Inherit_Priority : constant RTEMS.Attribute := 16#00000000#; + Inherit_Priority : constant RTEMS.Attribute := 16#00000020#; + No_Priority_Ceiling : constant RTEMS.Attribute := 16#00000000#; + Priority_Ceiling : constant RTEMS.Attribute := 16#00000040#; function Interrupt_Level ( Level : in RTEMS.Unsigned32 @@ -465,6 +479,44 @@ package RTEMS is Event_31 : constant RTEMS.Event_Set := 16#80000000#; -- + -- RTEMS Signals + -- + + All_Signals : constant RTEMS.Signal_Set := 16#7FFFFFFF#; + Signal_0 : constant RTEMS.Signal_Set := 16#00000001#; + Signal_1 : constant RTEMS.Signal_Set := 16#00000002#; + Signal_2 : constant RTEMS.Signal_Set := 16#00000004#; + Signal_3 : constant RTEMS.Signal_Set := 16#00000008#; + Signal_4 : constant RTEMS.Signal_Set := 16#00000010#; + Signal_5 : constant RTEMS.Signal_Set := 16#00000020#; + Signal_6 : constant RTEMS.Signal_Set := 16#00000040#; + Signal_7 : constant RTEMS.Signal_Set := 16#00000080#; + Signal_8 : constant RTEMS.Signal_Set := 16#00000100#; + Signal_9 : constant RTEMS.Signal_Set := 16#00000200#; + Signal_10 : constant RTEMS.Signal_Set := 16#00000400#; + Signal_11 : constant RTEMS.Signal_Set := 16#00000800#; + Signal_12 : constant RTEMS.Signal_Set := 16#00001000#; + Signal_13 : constant RTEMS.Signal_Set := 16#00002000#; + Signal_14 : constant RTEMS.Signal_Set := 16#00004000#; + Signal_15 : constant RTEMS.Signal_Set := 16#00008000#; + Signal_16 : constant RTEMS.Signal_Set := 16#00010000#; + Signal_17 : constant RTEMS.Signal_Set := 16#00020000#; + Signal_18 : constant RTEMS.Signal_Set := 16#00040000#; + Signal_19 : constant RTEMS.Signal_Set := 16#00080000#; + Signal_20 : constant RTEMS.Signal_Set := 16#00100000#; + Signal_21 : constant RTEMS.Signal_Set := 16#00200000#; + Signal_22 : constant RTEMS.Signal_Set := 16#00400000#; + Signal_23 : constant RTEMS.Signal_Set := 16#00800000#; + Signal_24 : constant RTEMS.Signal_Set := 16#01000000#; + Signal_25 : constant RTEMS.Signal_Set := 16#02000000#; + Signal_26 : constant RTEMS.Signal_Set := 16#04000000#; + Signal_27 : constant RTEMS.Signal_Set := 16#08000000#; + Signal_28 : constant RTEMS.Signal_Set := 16#10000000#; + Signal_29 : constant RTEMS.Signal_Set := 16#20000000#; + Signal_30 : constant RTEMS.Signal_Set := 16#40000000#; + Signal_31 : constant RTEMS.Signal_Set := 16#80000000#; + + -- -- RTEMS API Configuration Information -- @@ -709,6 +761,10 @@ package RTEMS is Desired : in RTEMS.Status_Codes ) return Standard.Boolean; + function Is_Status_Successful ( + Status : in RTEMS.Status_Codes + ) return Standard.Boolean; + -- -- RTEMS API -- |