diff options
| author | Joel Sherrill <joel.sherrill@OARcorp.com> | 1997-06-03 00:33:48 +0000 |
|---|---|---|
| committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 1997-06-03 00:33:48 +0000 |
| commit | 7e3dcbc175607f9de3ab3dbde734571a0001d48f (patch) | |
| tree | a2dafcd5c87f81cff89167db06b7766115f491f8 /c/src/ada | |
| parent | updated to run (diff) | |
| download | rtems-7e3dcbc175607f9de3ab3dbde734571a0001d48f.tar.bz2 | |
added rtems_interrupt_level_attribute routien to return a properly
shifted interrupt_level attribute field and RTEMS_INTERRUPT_MASK.
Diffstat (limited to 'c/src/ada')
| -rw-r--r-- | c/src/ada/rtems.adb | 11 | ||||
| -rw-r--r-- | c/src/ada/rtems.ads | 11 |
2 files changed, 6 insertions, 16 deletions
diff --git a/c/src/ada/rtems.adb b/c/src/ada/rtems.adb index 8e6a78da82..f8803426df 100644 --- a/c/src/ada/rtems.adb +++ b/c/src/ada/rtems.adb @@ -21,17 +21,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 -- diff --git a/c/src/ada/rtems.ads b/c/src/ada/rtems.ads index 0e7aa51ae8..c983912d5d 100644 --- a/c/src/ada/rtems.ads +++ b/c/src/ada/rtems.ads @@ -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; -- |