Changeset 7e3dcbc in rtems


Ignore:
Timestamp:
06/03/97 00:33:48 (26 years ago)
Author:
Joel Sherrill <joel.sherrill@…>
Branches:
4.10, 4.11, 4.8, 4.9, 5, master
Children:
d0f426a1
Parents:
e56a2ef
Message:

added rtems_interrupt_level_attribute routien to return a properly
shifted interrupt_level attribute field and RTEMS_INTERRUPT_MASK.

Files:
4 edited

Legend:

Unmodified
Added
Removed

  • c/src/ada/rtems.adb

    re56a2ef r7e3dcbc  
    2222
    2323   --
    24    --  Mode Building Functions
    25    --
    26 
    27    function Interrupt_Level (
    28       Level : in     RTEMS.Unsigned32
    29    ) return RTEMS.Attribute is
    30    begin
    31       return 0;
    32    end Interrupt_Level;
    33 
    34    --
    3524   --  Utility Functions
    3625   --

  • c/src/ada/rtems.ads

    re56a2ef r7e3dcbc  
    190190   Timeslice_Mask     : constant RTEMS.Mode := 16#0000_0200#;
    191191   ASR_Mask           : constant RTEMS.Mode := 16#0000_0400#;
    192    -- Interrupt_Mask  : constant RTEMS.Mode := CPU_Modes_Interrupt_Mask;
     192   Interrupt_Mask     : RTEMS.Mode;
    193193   Preempt            : constant RTEMS.Mode := 16#0000_0000#;
    194194   No_Preempt         : constant RTEMS.Mode := 16#0000_0100#;
    … …  
    198198   No_ASR             : constant RTEMS.Mode := 16#0000_0400#;
    199199
     200   pragma Import (C, Interrupt_Mask, "rtems_interrupt_mask");
     201
    200202   --
    201203   --  Attribute constants
    … …  
    210212      Level : in     RTEMS.Unsigned32
    211213   ) return RTEMS.Attribute;
     214   pragma Import (C, Interrupt_Level, "rtems_interrupt_level_attribute");
     215   
    212216
    213217   Minimum_Stack_Size : RTEMS.Unsigned32;
    … …  
    292296   );
    293297
    294    type Extensions_Table_Entry is
     298   type Extensions_Table is
    295299      record
    296300         Thread_Create      : RTEMS.Thread_Create_Extension;
    … …  
    304308         Fatal              : RTEMS.Fatal_Error_Extension;
    305309      end record;
    306 
    307    type Extensions_Table is array ( RTEMS.Unsigned32
    308      range 1 .. RTEMS.Unsigned32'Last ) of RTEMS.Extensions_Table_Entry;
    309310
    310311   type Extensions_Table_Pointer is access all Extensions_Table;

  • cpukit/ada/rtems.adb

    re56a2ef r7e3dcbc  
    2222
    2323   --
    24    --  Mode Building Functions
    25    --
    26 
    27    function Interrupt_Level (
    28       Level : in     RTEMS.Unsigned32
    29    ) return RTEMS.Attribute is
    30    begin
    31       return 0;
    32    end Interrupt_Level;
    33 
    34    --
    3524   --  Utility Functions
    3625   --

  • cpukit/ada/rtems.ads

    re56a2ef r7e3dcbc  
    190190   Timeslice_Mask     : constant RTEMS.Mode := 16#0000_0200#;
    191191   ASR_Mask           : constant RTEMS.Mode := 16#0000_0400#;
    192    -- Interrupt_Mask  : constant RTEMS.Mode := CPU_Modes_Interrupt_Mask;
     192   Interrupt_Mask     : RTEMS.Mode;
    193193   Preempt            : constant RTEMS.Mode := 16#0000_0000#;
    194194   No_Preempt         : constant RTEMS.Mode := 16#0000_0100#;
    … …  
    198198   No_ASR             : constant RTEMS.Mode := 16#0000_0400#;
    199199
     200   pragma Import (C, Interrupt_Mask, "rtems_interrupt_mask");
     201
    200202   --
    201203   --  Attribute constants
    … …  
    210212      Level : in     RTEMS.Unsigned32
    211213   ) return RTEMS.Attribute;
     214   pragma Import (C, Interrupt_Level, "rtems_interrupt_level_attribute");
     215   
    212216
    213217   Minimum_Stack_Size : RTEMS.Unsigned32;
    … …  
    292296   );
    293297
    294    type Extensions_Table_Entry is
     298   type Extensions_Table is
    295299      record
    296300         Thread_Create      : RTEMS.Thread_Create_Extension;
    … …  
    304308         Fatal              : RTEMS.Fatal_Error_Extension;
    305309      end record;
    306 
    307    type Extensions_Table is array ( RTEMS.Unsigned32
    308      range 1 .. RTEMS.Unsigned32'Last ) of RTEMS.Extensions_Table_Entry;
    309310
    310311   type Extensions_Table_Pointer is access all Extensions_Table;
Note: See TracChangeset for help on using the changeset viewer.