OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [ada/] [s-inmaop-dummy.adb] - Blame information for rev 281

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 281 jeremybenn
------------------------------------------------------------------------------
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
 
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;

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.