File : s-inmaop-dummy.adb
1 ------------------------------------------------------------------------------
2 -- --
3 -- GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS --
4 -- --
5 -- SYSTEM.INTERRUPT_MANAGEMENT.OPERATIONS --
6 -- --
7 -- B o d y --
8 -- --
9 -- Copyright (C) 1992-2009, Free Software Foundation, Inc. --
10 -- --
11 -- GNARL 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 a NO tasking version of this package
33
34 package body System.Interrupt_Management.Operations is
35
36 -- Turn off warnings since many unused formals
37
38 pragma Warnings (Off);
39
40 ----------------------------
41 -- Thread_Block_Interrupt --
42 ----------------------------
43
44 procedure Thread_Block_Interrupt
45 (Interrupt : Interrupt_ID)
46 is
47 begin
48 null;
49 end Thread_Block_Interrupt;
50
51 ------------------------------
52 -- Thread_Unblock_Interrupt --
53 ------------------------------
54
55 procedure Thread_Unblock_Interrupt
56 (Interrupt : Interrupt_ID)
57 is
58 begin
59 null;
60 end Thread_Unblock_Interrupt;
61
62 ------------------------
63 -- Set_Interrupt_Mask --
64 ------------------------
65
66 procedure Set_Interrupt_Mask (Mask : access Interrupt_Mask) is
67 begin
68 null;
69 end Set_Interrupt_Mask;
70
71 procedure Set_Interrupt_Mask
72 (Mask : access Interrupt_Mask;
73 OMask : access Interrupt_Mask) is
74 begin
75 null;
76 end Set_Interrupt_Mask;
77
78 ------------------------
79 -- Get_Interrupt_Mask --
80 ------------------------
81
82 procedure Get_Interrupt_Mask (Mask : access Interrupt_Mask) is
83 begin
84 null;
85 end Get_Interrupt_Mask;
86
87 --------------------
88 -- Interrupt_Wait --
89 --------------------
90
91 function Interrupt_Wait
92 (Mask : access Interrupt_Mask)
93 return Interrupt_ID
94 is
95 begin
96 return 0;
97 end Interrupt_Wait;
98
99 ----------------------------
100 -- Install_Default_Action --
101 ----------------------------
102
103 procedure Install_Default_Action (Interrupt : Interrupt_ID) is
104 begin
105 null;
106 end Install_Default_Action;
107
108 ---------------------------
109 -- Install_Ignore_Action --
110 ---------------------------
111
112 procedure Install_Ignore_Action (Interrupt : Interrupt_ID) is
113 begin
114 null;
115 end Install_Ignore_Action;
116
117 -------------------------
118 -- Fill_Interrupt_Mask --
119 -------------------------
120
121 procedure Fill_Interrupt_Mask (Mask : access Interrupt_Mask) is
122 begin
123 null;
124 end Fill_Interrupt_Mask;
125
126 --------------------------
127 -- Empty_Interrupt_Mask --
128 --------------------------
129
130 procedure Empty_Interrupt_Mask (Mask : access Interrupt_Mask) is
131 begin
132 null;
133 end Empty_Interrupt_Mask;
134
135 ---------------------------
136 -- Add_To_Interrupt_Mask --
137 ---------------------------
138
139 procedure Add_To_Interrupt_Mask
140 (Mask : access Interrupt_Mask;
141 Interrupt : Interrupt_ID)
142 is
143 begin
144 null;
145 end Add_To_Interrupt_Mask;
146
147 --------------------------------
148 -- Delete_From_Interrupt_Mask --
149 --------------------------------
150
151 procedure Delete_From_Interrupt_Mask
152 (Mask : access Interrupt_Mask;
153 Interrupt : Interrupt_ID)
154 is
155 begin
156 null;
157 end Delete_From_Interrupt_Mask;
158
159 ---------------
160 -- Is_Member --
161 ---------------
162
163 function Is_Member
164 (Mask : access Interrupt_Mask;
165 Interrupt : Interrupt_ID) return Boolean
166 is
167 begin
168 return False;
169 end Is_Member;
170
171 -------------------------
172 -- Copy_Interrupt_Mask --
173 -------------------------
174
175 procedure Copy_Interrupt_Mask
176 (X : out Interrupt_Mask;
177 Y : Interrupt_Mask)
178 is
179 begin
180 X := Y;
181 end Copy_Interrupt_Mask;
182
183 -------------------------
184 -- Interrupt_Self_Process --
185 -------------------------
186
187 procedure Interrupt_Self_Process (Interrupt : Interrupt_ID) is
188 begin
189 null;
190 end Interrupt_Self_Process;
191
192 --------------------------
193 -- Setup_Interrupt_Mask --
194 --------------------------
195
196 procedure Setup_Interrupt_Mask is
197 begin
198 null;
199 end Setup_Interrupt_Mask;
200
201 end System.Interrupt_Management.Operations;