From 7e3dcbc175607f9de3ab3dbde734571a0001d48f Mon Sep 17 00:00:00 2001 From: Joel Sherrill Date: Tue, 3 Jun 1997 00:33:48 +0000 Subject: added rtems_interrupt_level_attribute routien to return a properly shifted interrupt_level attribute field and RTEMS_INTERRUPT_MASK. --- cpukit/ada/rtems.adb | 11 ----------- cpukit/ada/rtems.ads | 11 ++++++----- 2 files changed, 6 insertions(+), 16 deletions(-) (limited to 'cpukit/ada') diff --git a/cpukit/ada/rtems.adb b/cpukit/ada/rtems.adb index 8e6a78da82..f8803426df 100644 --- a/cpukit/ada/rtems.adb +++ b/cpukit/ada/rtems.adb @@ -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 -- diff --git a/cpukit/ada/rtems.ads b/cpukit/ada/rtems.ads index 0e7aa51ae8..c983912d5d 100644 --- a/cpukit/ada/rtems.ads +++ b/cpukit/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; -- -- cgit v1.2.3