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;