Mirrors_Framework/rtems
1
0
Fork 0
mirror of https://gitlab.rtems.org/rtems/rtos/rtems.git synced 2025-12-20 20:12:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

added Signal constants, Is_Status_Successful, and Attribute constants.

Browse Source
This commit is contained in:
Joel Sherrill
1997-06-03 00:55:42 +00:00
parent d0f426a1bf
commit a6b44a8a63
4 changed files with 148 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
c/src/ada/rtems.adb
View File

@@ -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

66
c/src/ada/rtems.ads
View File

@@ -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
@@ -464,6 +478,44 @@ package RTEMS is
Event_30 : constant RTEMS.Event_Set := 16#40000000#;
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
--

13
cpukit/ada/rtems.adb
View File

@@ -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

66
cpukit/ada/rtems.ads
View File

@@ -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
@@ -464,6 +478,44 @@ package RTEMS is
Event_30 : constant RTEMS.Event_Set := 16#40000000#;
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
--