File : g-intpri.ads


   1 ------------------------------------------------------------------------------
   2 --                                                                          --
   3 --                         GNAT RUN-TIME COMPONENTS                         --
   4 --                                                                          --
   5 --            G N A T . I N T E R R U P T S _ P R I O R I T I E S           --
   6 --                                                                          --
   7 --                                 S p e c                                  --
   8 --                                                                          --
   9 --                       Copyright (C) 2013, AdaCore                        --
  10 --                                                                          --
  11 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
  12 -- terms of the  GNU General Public License as published  by the Free Soft- --
  13 -- ware  Foundation;  either version 3,  or (at your option) any later ver- --
  14 -- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --
  15 -- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --
  16 -- or FITNESS FOR A PARTICULAR PURPOSE.                                     --
  17 --                                                                          --
  18 --                                                                          --
  19 --                                                                          --
  20 --                                                                          --
  21 --                                                                          --
  22 -- You should have received a copy of the GNU General Public License and    --
  23 -- a copy of the GCC Runtime Library Exception along with this program;     --
  24 -- see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see    --
  25 -- <http://www.gnu.org/licenses/>.                                          --
  26 --                                                                          --
  27 -- GNAT was originally developed  by the GNAT team at  New York University. --
  28 -- Extensive contributions were provided by Ada Core Technologies Inc.      --
  29 --                                                                          --
  30 ------------------------------------------------------------------------------
  31 
  32 --  This package is specific to the ravenscar-minimal runtime for
  33 --  PowerPC 8321/8349.
  34 
  35 with System;
  36 with Ada.Interrupts;
  37 
  38 with System.BB.Board_Support;
  39 pragma Unreferenced (System.BB.Board_Support);
  40 --  Ensure that BB.Board_Support is elaborated before this package
  41 
  42 package GNAT.Interrupt_Priorities is
  43 
  44    procedure Define_Interrupt_Priority
  45      (Interrupt : Ada.Interrupts.Interrupt_ID;
  46       Priority : System.Interrupt_Priority;
  47       Mask_Bit : Natural);
  48    --  Define the priority and the mask for Interrupt.
  49    --
  50    --  Mask_Bit is the bit number in the SIMSR_H/SIMSR_L/SEMSR registers.
  51    --  Bit numbers 0 to 31 means bit 0 (MSB) to 31 (LSB) of SIMSR_H,
  52    --  bit numbers 32 to 63 means bit 0 (MSB) to 31 (LSB) of SIMSR_L,
  53    --  and bit numbers 64 to 95 means bit 0 (MSB) to 31 (LSB) of SEMSR.
  54 
  55 private
  56    pragma Import (Ada, Define_Interrupt_Priority,
  57                   "__gnat_define_interrupt_priority");
  58 end GNAT.Interrupt_Priorities;