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

added rtems_interrupt_level_attribute routien to return a properly

Browse Source 
shifted interrupt_level attribute field and RTEMS_INTERRUPT_MASK.
This commit is contained in:
Joel Sherrill
1997-06-03 00:33:48 +00:00
parent e56a2ef367
commit 7e3dcbc175
4 changed files with 12 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -20,17 +20,6 @@ with Interfaces.C;
package body RTEMS is
--
-- Mode Building Functions
--
function Interrupt_Level (
Level : in RTEMS.Unsigned32
) return RTEMS.Attribute is
begin
return 0;
end Interrupt_Level;
--
-- Utility Functions
--

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

@@ -189,7 +189,7 @@ package RTEMS is
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;
Interrupt_Mask : RTEMS.Mode;
Preempt : constant RTEMS.Mode := 16#0000_0000#;
No_Preempt : constant RTEMS.Mode := 16#0000_0100#;
No_Timeslice : constant RTEMS.Mode := 16#0000_0000#;
@@ -197,6 +197,8 @@ package RTEMS is
ASR : constant RTEMS.Mode := 16#0000_0000#;
No_ASR : constant RTEMS.Mode := 16#0000_0400#;
pragma Import (C, Interrupt_Mask, "rtems_interrupt_mask");
--
-- Attribute constants
--
@@ -209,6 +211,8 @@ package RTEMS is
function Interrupt_Level (
Level : in RTEMS.Unsigned32
) return RTEMS.Attribute;
pragma Import (C, Interrupt_Level, "rtems_interrupt_level_attribute");
Minimum_Stack_Size : RTEMS.Unsigned32;
pragma Import (C, Minimum_Stack_Size, "rtems_minimum_stack_size");
@@ -291,7 +295,7 @@ package RTEMS is
Error : in RTEMS.Unsigned32
);
type Extensions_Table_Entry is
type Extensions_Table is
record
Thread_Create : RTEMS.Thread_Create_Extension;
Thread_Start : RTEMS.Thread_Start_Extension;
@@ -304,9 +308,6 @@ package RTEMS is
Fatal : RTEMS.Fatal_Error_Extension;
end record;
type Extensions_Table is array ( RTEMS.Unsigned32
range 1 .. RTEMS.Unsigned32'Last ) of RTEMS.Extensions_Table_Entry;
type Extensions_Table_Pointer is access all Extensions_Table;
--

11
cpukit/ada/rtems.adb
View File

@@ -20,17 +20,6 @@ with Interfaces.C;
package body RTEMS is
--
-- Mode Building Functions
--
function Interrupt_Level (
Level : in RTEMS.Unsigned32
) return RTEMS.Attribute is
begin
return 0;
end Interrupt_Level;
--
-- Utility Functions
--

11
cpukit/ada/rtems.ads
View File

@@ -189,7 +189,7 @@ package RTEMS is
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;
Interrupt_Mask : RTEMS.Mode;
Preempt : constant RTEMS.Mode := 16#0000_0000#;
No_Preempt : constant RTEMS.Mode := 16#0000_0100#;
No_Timeslice : constant RTEMS.Mode := 16#0000_0000#;
@@ -197,6 +197,8 @@ package RTEMS is
ASR : constant RTEMS.Mode := 16#0000_0000#;
No_ASR : constant RTEMS.Mode := 16#0000_0400#;
pragma Import (C, Interrupt_Mask, "rtems_interrupt_mask");
--
-- Attribute constants
--
@@ -209,6 +211,8 @@ package RTEMS is
function Interrupt_Level (
Level : in RTEMS.Unsigned32
) return RTEMS.Attribute;
pragma Import (C, Interrupt_Level, "rtems_interrupt_level_attribute");
Minimum_Stack_Size : RTEMS.Unsigned32;
pragma Import (C, Minimum_Stack_Size, "rtems_minimum_stack_size");
@@ -291,7 +295,7 @@ package RTEMS is
Error : in RTEMS.Unsigned32
);
type Extensions_Table_Entry is
type Extensions_Table is
record
Thread_Create : RTEMS.Thread_Create_Extension;
Thread_Start : RTEMS.Thread_Start_Extension;
@@ -304,9 +308,6 @@ package RTEMS is
Fatal : RTEMS.Fatal_Error_Extension;
end record;
type Extensions_Table is array ( RTEMS.Unsigned32
range 1 .. RTEMS.Unsigned32'Last ) of RTEMS.Extensions_Table_Entry;
type Extensions_Table_Pointer is access all Extensions_Table;
--