RTOS/rtems
1
0
Fork 0
forked from Imagelibrary/rtems
Code Pull Requests Activity

added Minimum_Stack_Size and Mode constants

Browse Source
This commit is contained in:
Joel Sherrill
1997-06-02 23:46:15 +00:00
parent 529cdccdb2
commit d766b7fd8c
2 changed files with 46 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -184,6 +184,19 @@ package RTEMS is
Default_Modes : constant RTEMS.Mode := 16#0000#; Default_Modes : constant RTEMS.Mode := 16#0000#;
All_Mode_Masks : constant RTEMS.Mode := 16#0000_ffff#;
Current_Mode : constant RTEMS.Mode := 16#0000_0000#;
Preempt_Mask : constant RTEMS.Mode := 16#0000_0100#;
Timeslice_Mask : constant RTEMS.Mode := 16#0000_0200#;
ASR_Mask : constant RTEMS.Mode := 16#0000_0400#;
-- Interrupt_Mask : constant RTEMS.Mode := CPU_Modes_Interrupt_Mask;
Preempt : constant RTEMS.Mode := 16#0000_0000#;
No_Preempt : constant RTEMS.Mode := 16#0000_0100#;
No_Timeslice : constant RTEMS.Mode := 16#0000_0000#;
Timeslice : constant RTEMS.Mode := 16#0000_0200#;
ASR : constant RTEMS.Mode := 16#0000_0000#;
No_ASR : constant RTEMS.Mode := 16#0000_0400#;
-- --
-- Attribute constants -- Attribute constants
-- --
@@ -197,6 +210,10 @@ package RTEMS is
Level : in RTEMS.Unsigned32 Level : in RTEMS.Unsigned32
) return RTEMS.Attribute; ) return RTEMS.Attribute;
Minimum_Stack_Size : RTEMS.Unsigned32;
pragma Import (C, Minimum_Stack_Size, "rtems_minimum_stack_size");
-- --
-- Notepad index constants -- Notepad index constants
-- --
@@ -1328,8 +1345,6 @@ package RTEMS is
Configuration : RTEMS.Configuration_Table_Pointer; Configuration : RTEMS.Configuration_Table_Pointer;
pragma Import (C, Configuration, "_Configuration_Table"); pragma Import (C, Configuration, "_Configuration_Table");
-- function Configuration
-- return RTEMS.Configuration_Table_Pointer;
private private

19
cpukit/ada/rtems.ads
View File

@@ -184,6 +184,19 @@ package RTEMS is
Default_Modes : constant RTEMS.Mode := 16#0000#; Default_Modes : constant RTEMS.Mode := 16#0000#;
All_Mode_Masks : constant RTEMS.Mode := 16#0000_ffff#;
Current_Mode : constant RTEMS.Mode := 16#0000_0000#;
Preempt_Mask : constant RTEMS.Mode := 16#0000_0100#;
Timeslice_Mask : constant RTEMS.Mode := 16#0000_0200#;
ASR_Mask : constant RTEMS.Mode := 16#0000_0400#;
-- Interrupt_Mask : constant RTEMS.Mode := CPU_Modes_Interrupt_Mask;
Preempt : constant RTEMS.Mode := 16#0000_0000#;
No_Preempt : constant RTEMS.Mode := 16#0000_0100#;
No_Timeslice : constant RTEMS.Mode := 16#0000_0000#;
Timeslice : constant RTEMS.Mode := 16#0000_0200#;
ASR : constant RTEMS.Mode := 16#0000_0000#;
No_ASR : constant RTEMS.Mode := 16#0000_0400#;
-- --
-- Attribute constants -- Attribute constants
-- --
@@ -197,6 +210,10 @@ package RTEMS is
Level : in RTEMS.Unsigned32 Level : in RTEMS.Unsigned32
) return RTEMS.Attribute; ) return RTEMS.Attribute;
Minimum_Stack_Size : RTEMS.Unsigned32;
pragma Import (C, Minimum_Stack_Size, "rtems_minimum_stack_size");
-- --
-- Notepad index constants -- Notepad index constants
-- --
@@ -1328,8 +1345,6 @@ package RTEMS is
Configuration : RTEMS.Configuration_Table_Pointer; Configuration : RTEMS.Configuration_Table_Pointer;
pragma Import (C, Configuration, "_Configuration_Table"); pragma Import (C, Configuration, "_Configuration_Table");
-- function Configuration
-- return RTEMS.Configuration_Table_Pointer;
private private