File : a-interr-raven.adb
1 ------------------------------------------------------------------------------
2 -- --
3 -- GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS --
4 -- --
5 -- A D A . I N T E R R U P T S --
6 -- --
7 -- B o d y --
8 -- --
9 -- Copyright (C) 2001-2015, 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 -- 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 Ravenscar version of this package
33
34 package body Ada.Interrupts is
35
36 --------------------
37 -- Attach_Handler --
38 --------------------
39
40 procedure Attach_Handler
41 (New_Handler : Parameterless_Handler;
42 Interrupt : Interrupt_ID)
43 is
44 begin
45 raise Program_Error;
46 end Attach_Handler;
47
48 ---------------------
49 -- Current_Handler --
50 ---------------------
51
52 function Current_Handler
53 (Interrupt : Interrupt_ID) return Parameterless_Handler
54 is
55 begin
56 raise Program_Error;
57 return null;
58 end Current_Handler;
59
60 --------------------
61 -- Detach_Handler --
62 --------------------
63
64 procedure Detach_Handler (Interrupt : Interrupt_ID) is
65 begin
66 raise Program_Error;
67 end Detach_Handler;
68
69 ----------------------
70 -- Exchange_Handler --
71 ----------------------
72
73 procedure Exchange_Handler
74 (Old_Handler : out Parameterless_Handler;
75 New_Handler : Parameterless_Handler;
76 Interrupt : Interrupt_ID)
77 is
78 begin
79 raise Program_Error;
80 end Exchange_Handler;
81
82 -------------
83 -- Get_CPU --
84 -------------
85
86 function Get_CPU
87 (Interrupt : Interrupt_ID) return System.Multiprocessors.CPU_Range
88 is
89 begin
90 raise Program_Error;
91 return System.Multiprocessors.Not_A_Specific_CPU;
92 end Get_CPU;
93
94 -----------------
95 -- Is_Attached --
96 -----------------
97
98 function Is_Attached (Interrupt : Interrupt_ID) return Boolean is
99 begin
100 raise Program_Error;
101 return False;
102 end Is_Attached;
103
104 -----------------
105 -- Is_Reserved --
106 -----------------
107
108 function Is_Reserved (Interrupt : Interrupt_ID) return Boolean is
109 begin
110 raise Program_Error;
111 return False;
112 end Is_Reserved;
113
114 ---------------
115 -- Reference --
116 ---------------
117
118 function Reference (Interrupt : Interrupt_ID) return System.Address is
119 begin
120 raise Program_Error;
121 return System.Null_Address;
122 end Reference;
123
124 end Ada.Interrupts;