File : a-intnam-xi-erc32.ads


   1 ------------------------------------------------------------------------------
   2 --                                                                          --
   3 --                  GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS                --
   4 --                                                                          --
   5 --                   A D A . I N T E R R U P T S . N A M E S                --
   6 --                                                                          --
   7 --                                  S p e c                                 --
   8 --                                                                          --
   9 --          Copyright (C) 1991-2011, Free Software Foundation, Inc.         --
  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 -- GNARL was developed by the GNARL team at Florida State University.       --
  28 -- Extensive contributions were provided by Ada Core Technologies, Inc.     --
  29 --                                                                          --
  30 ------------------------------------------------------------------------------
  31 
  32 --  This is the version for ERC32 targets of this package
  33 
  34 with Ada.Interrupts;
  35 
  36 with System.OS_Interface;
  37 
  38 package Ada.Interrupts.Names is
  39 
  40    --  All identifiers in this unit are implementation defined
  41 
  42    pragma Implementation_Defined;
  43 
  44    -------------------------
  45    -- External Interrupts --
  46    -------------------------
  47 
  48    External_Interrupt_4            : constant Interrupt_ID := 14;
  49    External_Interrupt_4_Priority   : constant System.Interrupt_Priority
  50                                       := System.Interrupt_Priority'First + 13;
  51 
  52    External_Interrupt_3            : constant Interrupt_ID := 11;
  53    External_Interrupt_3_Priority   : constant System.Interrupt_Priority
  54                                       := System.Interrupt_Priority'First + 10;
  55 
  56    External_Interrupt_2            : constant Interrupt_ID := 10;
  57    External_Interrupt_2_Priority   : constant System.Interrupt_Priority
  58                                       := System.Interrupt_Priority'First + 9;
  59 
  60    External_Interrupt_1            : constant Interrupt_ID := 3;
  61    External_Interrupt_1_Priority   : constant System.Interrupt_Priority
  62                                       := System.Interrupt_Priority'First + 2;
  63 
  64    External_Interrupt_0            : constant Interrupt_ID := 2;
  65    External_Interrupt_0_Priority   : constant System.Interrupt_Priority
  66                                       := System.Interrupt_Priority'First + 1;
  67 
  68    ----------------------
  69    -- Timer Interrupts --
  70    ----------------------
  71 
  72    Watch_Dog_Time_Out              : constant Interrupt_ID := 15;
  73    Watch_Dog_Time_Out_Priority     : constant System.Interrupt_Priority
  74                                       := System.Interrupt_Priority'First + 14;
  75 
  76    Real_Time_Clock                 : constant Interrupt_ID := 13;
  77    Real_Time_Clock_Priority        : constant System.Interrupt_Priority
  78                                       := System.Interrupt_Priority'First + 12;
  79 
  80    General_Purpose_Timer           : constant Interrupt_ID := 12;
  81    General_Purpose_Timer_Priority  : constant System.Interrupt_Priority
  82                                       := System.Interrupt_Priority'First + 11;
  83 
  84    --------------------
  85    -- DMA Interrupts --
  86    --------------------
  87 
  88    DMA_Time_Out                    : constant Interrupt_ID := 9;
  89    DMA_Time_Out_Priority           : constant System.Interrupt_Priority
  90                                       := System.Interrupt_Priority'First + 8;
  91 
  92    DMA_Access_Error                : constant Interrupt_ID := 8;
  93    DMA_Access_Error_Priority       : constant System.Interrupt_Priority
  94                                       := System.Interrupt_Priority'First + 7;
  95 
  96    ---------------------
  97    -- UART Interrupts --
  98    ---------------------
  99 
 100    UART_Error                      : constant Interrupt_ID := 7;
 101    UART_Error_Priority             : constant System.Interrupt_Priority
 102                                      := System.Interrupt_Priority'First + 6;
 103 
 104    UART_B_Ready                    : constant Interrupt_ID := 5;
 105    UART_B_Ready_Priority           : constant System.Interrupt_Priority
 106                                       := System.Interrupt_Priority'First + 4;
 107 
 108    UART_A_Ready                    : constant Interrupt_ID := 4;
 109    UART_A_Ready_Priority           : constant System.Interrupt_Priority
 110                                       := System.Interrupt_Priority'First + 3;
 111 
 112    -----------------------------
 113    -- Miscelaneous Interrupts --
 114    -----------------------------
 115 
 116    Correctable_Error_In_Memory     : constant Interrupt_ID := 6;
 117    Correctable_Error_In_Memory_Priority : constant System.Interrupt_Priority
 118      := System.Interrupt_Priority'First + 5;
 119 
 120    Masked_Hardware_Errors          : constant Interrupt_ID := 1;
 121    Masked_Hardware_Errors_Priority : constant System.Interrupt_Priority
 122                                       := System.Interrupt_Priority'First;
 123 
 124 end Ada.Interrupts.Names;