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-- As a special exception under Section 7 of GPL version 3, you are granted --
19-- additional permissions described in the GCC Runtime Library Exception,   --
20-- version 3.1, as published by the Free Software Foundation.               --
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
34package 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
201end System.Interrupt_Management.Operations;
202