File : a-intnam-xi-leon.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 LEON targets of this package
33
34 with System;
35 package Ada.Interrupts.Names is
36
37 -- All identifiers in this unit are implementation defined
38
39 pragma Implementation_Defined;
40
41 -------------------------
42 -- External Interrupts --
43 -------------------------
44
45 External_Interrupt_3 : constant Interrupt_ID := 7;
46 External_Interrupt_3_Priority : constant System.Interrupt_Priority
47 := System.Interrupt_Priority'First + 6;
48
49 External_Interrupt_2 : constant Interrupt_ID := 6;
50 External_Interrupt_2_Priority : constant System.Interrupt_Priority
51 := System.Interrupt_Priority'First + 5;
52
53 External_Interrupt_1 : constant Interrupt_ID := 5;
54 External_Interrupt_1_Priority : constant System.Interrupt_Priority
55 := System.Interrupt_Priority'First + 4;
56
57 External_Interrupt_0 : constant Interrupt_ID := 4;
58 External_Interrupt_0_Priority : constant System.Interrupt_Priority
59 := System.Interrupt_Priority'First + 3;
60
61 ----------------------
62 -- Timer Interrupts --
63 ----------------------
64
65 Real_Time_Clock : constant Interrupt_ID := 9;
66 Real_Time_Clock_Priority : constant System.Interrupt_Priority
67 := System.Interrupt_Priority'First + 8;
68
69 General_Purpose_Timer : constant Interrupt_ID := 8;
70 General_Purpose_Timer_Priority : constant System.Interrupt_Priority
71 := System.Interrupt_Priority'First + 7;
72
73 ---------------------
74 -- UART Interrupts --
75 ---------------------
76
77 UART_1_RX_TX : constant Interrupt_ID := 3;
78 UART_1_RX_TX_Priority : constant System.Interrupt_Priority
79 := System.Interrupt_Priority'First + 2;
80
81 UART_2_RX_TX : constant Interrupt_ID := 2;
82 UART_2_RX_TX_Priority : constant System.Interrupt_Priority
83 := System.Interrupt_Priority'First + 1;
84
85 -----------------------
86 -- Unused Interrupts --
87 -----------------------
88
89 Unused_Interrupt_10 : constant Interrupt_ID := 10;
90 Unused_Interrupt_10_Priority : constant System.Interrupt_Priority
91 := System.Interrupt_Priority'First + 9;
92
93 Unused_Interrupt_12 : constant Interrupt_ID := 12;
94 Unused_Interrupt_12_Priority : constant System.Interrupt_Priority
95 := System.Interrupt_Priority'First + 11;
96
97 Unused_Interrupt_13 : constant Interrupt_ID := 13;
98 Unused_Interrupt_13_Priority : constant System.Interrupt_Priority
99 := System.Interrupt_Priority'First + 12;
100
101 -----------------------------
102 -- Miscelaneous Interrupts --
103 -----------------------------
104
105 Internal_Bus_Error : constant Interrupt_ID := 1;
106 Internal_Bus_Error_Priority : constant System.Interrupt_Priority
107 := System.Interrupt_Priority'First;
108
109 DSU : constant Interrupt_ID := 11;
110 DSU_Priority : constant System.Interrupt_Priority
111 := System.Interrupt_Priority'First + 10;
112
113 PCI : constant Interrupt_ID := 14;
114 PCI_Priority : constant System.Interrupt_Priority
115 := System.Interrupt_Priority'First + 13;
116
117 EDAC_Interrupt : constant Interrupt_ID := 15;
118 EDAC_Priority : constant System.Interrupt_Priority
119 := System.Interrupt_Priority'First + 14;
120
121 end Ada.Interrupts.Names;