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

added more constants and fixed numer

Browse Source
This commit is contained in:
Joel Sherrill
1997-06-03 15:11:39 +00:00
parent 7d366f1c98
commit d348ad96d5
4 changed files with 128 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -9,11 +9,18 @@
--
--
--
-- COPYRIGHT (c) 1989 - 1997.
-- COPYRIGHT (c) 1997.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
-- the file LICENSE in this distribution or at
-- http://www.OARcorp.com/rtems/license.html.
--
-- $Id$
--
with Ada;
with Ada.Unchecked_Conversion;
with System;
with Interfaces; use Interfaces;
with Interfaces.C;
@@ -171,6 +178,17 @@ package body RTEMS is
end Is_Status_Successful;
function Subtract (
Left : in RTEMS.Address;
Right : in RTEMS.Address
) return RTEMS.Unsigned32 is
function To_Unsigned32 is
new Ada.Unchecked_Conversion (System.Address, RTEMS.Unsigned32);
begin
return To_Unsigned32(Left) - To_Unsigned32(Right);
end Subtract;
--
--
-- RTEMS API
@@ -825,6 +843,7 @@ package body RTEMS is
Name : in RTEMS.Name;
Count : in RTEMS.Unsigned32;
Attribute_Set : in RTEMS.Attribute;
Priority_Ceiling : in RTEMS.Task_Priority;
ID : out RTEMS.ID;
Result : out RTEMS.Status_Codes
) is
@@ -832,6 +851,7 @@ package body RTEMS is
Name : RTEMS.Name;
Count : RTEMS.Unsigned32;
Attribute_Set : RTEMS.Attribute;
Priority_Ceiling : RTEMS.Task_Priority;
ID : access RTEMS.ID
) return RTEMS.Status_Codes;
pragma Import (C, Semaphore_Create_Base, "rtems_semaphore_create");
@@ -842,6 +862,7 @@ package body RTEMS is
Name,
Count,
Attribute_Set,
Priority_Ceiling,
ID_Base'Unchecked_Access
);
@@ -936,6 +957,7 @@ package body RTEMS is
function Message_Queue_Create_Base (
Name : RTEMS.Name;
Count : RTEMS.Unsigned32;
Max_Message_Size : RTEMS.Unsigned32;
Attribute_Set : RTEMS.Attribute;
ID : access RTEMS.ID
) return RTEMS.Status_Codes;
@@ -947,6 +969,7 @@ package body RTEMS is
Result := Message_Queue_Create_Base (
Name,
Count,
Max_Message_Size,
Attribute_Set,
ID_Base'Unchecked_Access
);
@@ -1931,13 +1954,14 @@ package body RTEMS is
Result : out RTEMS.Status_Codes
) is
function Rate_Monotonic_Period_Base (
ID : RTEMS.ID
ID : RTEMS.ID;
Length : RTEMS.Interval
) return RTEMS.Status_Codes;
pragma Import (C, Rate_Monotonic_Period_Base,
"rtems_rate_monotonic_period");
begin
Result := Rate_Monotonic_Period_base ( ID );
Result := Rate_Monotonic_Period_base ( ID, Length );
end Rate_Monotonic_Period;

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

@@ -9,9 +9,15 @@
--
--
--
-- COPYRIGHT (c) 1989 - 1997.
-- COPYRIGHT (c) 1997.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
-- the file LICENSE in this distribution or at
-- http://www.OARcorp.com/rtems/license.html.
--
-- $Id$
--
with System;
with System.Storage_Elements; use System.Storage_Elements;
@@ -20,7 +26,7 @@ with Interfaces.C;
package RTEMS is
Structure_Alignment : constant := 16;
Structure_Alignment : constant := 8;
--
-- RTEMS Base Types
@@ -73,7 +79,7 @@ package RTEMS is
subtype Mode is RTEMS.Unsigned32;
subtype Option is RTEMS.Unsigned32;
subtype Task_Priority is RTEMS.Unsigned32;
subtype Notepad_Index is RTEMS.Unsigned32;
subtype Notepad_Index is RTEMS.Unsigned32 range 0 .. 15;
subtype Event_Set is RTEMS.Unsigned32;
subtype Signal_Set is RTEMS.Unsigned32;
@@ -262,6 +268,7 @@ package RTEMS is
Period_Status : constant RTEMS.Interval := 0;
Yield_Processor : constant RTEMS.Interval := 0;
Current_Priority : constant RTEMS.Task_Priority := 0;
No_Priority : constant RTEMS.Task_Priority := 0;
--
@@ -765,6 +772,11 @@ package RTEMS is
Status : in RTEMS.Status_Codes
) return Standard.Boolean;
function Subtract (
Left : in RTEMS.Address;
Right : in RTEMS.Address
) return RTEMS.Unsigned32;
--
-- RTEMS API
--
@@ -1001,6 +1013,7 @@ package RTEMS is
Name : in RTEMS.Name;
Count : in RTEMS.Unsigned32;
Attribute_Set : in RTEMS.Attribute;
Priority_Ceiling : in RTEMS.Task_Priority;
ID : out RTEMS.ID;
Result : out RTEMS.Status_Codes
);
@@ -1384,6 +1397,9 @@ package RTEMS is
-- Debug Manager
--
Debug_All_Mask : constant RTEMS.Debug_Set := 16#ffffffff#;
Debug_Region : constant RTEMS.Debug_Set := 16#00000001#;
procedure Debug_Enable (
To_Be_Enabled : in RTEMS.Debug_Set
);

30
cpukit/ada/rtems.adb
View File

@@ -9,11 +9,18 @@
--
--
--
-- COPYRIGHT (c) 1989 - 1997.
-- COPYRIGHT (c) 1997.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
-- the file LICENSE in this distribution or at
-- http://www.OARcorp.com/rtems/license.html.
--
-- $Id$
--
with Ada;
with Ada.Unchecked_Conversion;
with System;
with Interfaces; use Interfaces;
with Interfaces.C;
@@ -171,6 +178,17 @@ package body RTEMS is
end Is_Status_Successful;
function Subtract (
Left : in RTEMS.Address;
Right : in RTEMS.Address
) return RTEMS.Unsigned32 is
function To_Unsigned32 is
new Ada.Unchecked_Conversion (System.Address, RTEMS.Unsigned32);
begin
return To_Unsigned32(Left) - To_Unsigned32(Right);
end Subtract;
--
--
-- RTEMS API
@@ -825,6 +843,7 @@ package body RTEMS is
Name : in RTEMS.Name;
Count : in RTEMS.Unsigned32;
Attribute_Set : in RTEMS.Attribute;
Priority_Ceiling : in RTEMS.Task_Priority;
ID : out RTEMS.ID;
Result : out RTEMS.Status_Codes
) is
@@ -832,6 +851,7 @@ package body RTEMS is
Name : RTEMS.Name;
Count : RTEMS.Unsigned32;
Attribute_Set : RTEMS.Attribute;
Priority_Ceiling : RTEMS.Task_Priority;
ID : access RTEMS.ID
) return RTEMS.Status_Codes;
pragma Import (C, Semaphore_Create_Base, "rtems_semaphore_create");
@@ -842,6 +862,7 @@ package body RTEMS is
Name,
Count,
Attribute_Set,
Priority_Ceiling,
ID_Base'Unchecked_Access
);
@@ -936,6 +957,7 @@ package body RTEMS is
function Message_Queue_Create_Base (
Name : RTEMS.Name;
Count : RTEMS.Unsigned32;
Max_Message_Size : RTEMS.Unsigned32;
Attribute_Set : RTEMS.Attribute;
ID : access RTEMS.ID
) return RTEMS.Status_Codes;
@@ -947,6 +969,7 @@ package body RTEMS is
Result := Message_Queue_Create_Base (
Name,
Count,
Max_Message_Size,
Attribute_Set,
ID_Base'Unchecked_Access
);
@@ -1931,13 +1954,14 @@ package body RTEMS is
Result : out RTEMS.Status_Codes
) is
function Rate_Monotonic_Period_Base (
ID : RTEMS.ID
ID : RTEMS.ID;
Length : RTEMS.Interval
) return RTEMS.Status_Codes;
pragma Import (C, Rate_Monotonic_Period_Base,
"rtems_rate_monotonic_period");
begin
Result := Rate_Monotonic_Period_base ( ID );
Result := Rate_Monotonic_Period_base ( ID, Length );
end Rate_Monotonic_Period;

22
cpukit/ada/rtems.ads
View File

@@ -9,9 +9,15 @@
--
--
--
-- COPYRIGHT (c) 1989 - 1997.
-- COPYRIGHT (c) 1997.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
-- the file LICENSE in this distribution or at
-- http://www.OARcorp.com/rtems/license.html.
--
-- $Id$
--
with System;
with System.Storage_Elements; use System.Storage_Elements;
@@ -20,7 +26,7 @@ with Interfaces.C;
package RTEMS is
Structure_Alignment : constant := 16;
Structure_Alignment : constant := 8;
--
-- RTEMS Base Types
@@ -73,7 +79,7 @@ package RTEMS is
subtype Mode is RTEMS.Unsigned32;
subtype Option is RTEMS.Unsigned32;
subtype Task_Priority is RTEMS.Unsigned32;
subtype Notepad_Index is RTEMS.Unsigned32;
subtype Notepad_Index is RTEMS.Unsigned32 range 0 .. 15;
subtype Event_Set is RTEMS.Unsigned32;
subtype Signal_Set is RTEMS.Unsigned32;
@@ -262,6 +268,7 @@ package RTEMS is
Period_Status : constant RTEMS.Interval := 0;
Yield_Processor : constant RTEMS.Interval := 0;
Current_Priority : constant RTEMS.Task_Priority := 0;
No_Priority : constant RTEMS.Task_Priority := 0;
--
@@ -765,6 +772,11 @@ package RTEMS is
Status : in RTEMS.Status_Codes
) return Standard.Boolean;
function Subtract (
Left : in RTEMS.Address;
Right : in RTEMS.Address
) return RTEMS.Unsigned32;
--
-- RTEMS API
--
@@ -1001,6 +1013,7 @@ package RTEMS is
Name : in RTEMS.Name;
Count : in RTEMS.Unsigned32;
Attribute_Set : in RTEMS.Attribute;
Priority_Ceiling : in RTEMS.Task_Priority;
ID : out RTEMS.ID;
Result : out RTEMS.Status_Codes
);
@@ -1384,6 +1397,9 @@ package RTEMS is
-- Debug Manager
--
Debug_All_Mask : constant RTEMS.Debug_Set := 16#ffffffff#;
Debug_Region : constant RTEMS.Debug_Set := 16#00000001#;
procedure Debug_Enable (
To_Be_Enabled : in RTEMS.Debug_Set
);