blob: 1312f64f575b8bc9219f2d485af478ff3972c2a6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
|
/****************************************************************************
* *
* GNAT COMPILER COMPONENTS *
* *
* S N A M E S *
* *
* C Header File *
* *
* $Revision$
* *
* Copyright (C) 1992-2001 Free Software Foundation, Inc. *
* *
* GNAT is free software; you can redistribute it and/or modify it under *
* terms of the GNU General Public License as published by the Free Soft- *
* ware Foundation; either version 2, or (at your option) any later ver- *
* sion. GNAT is distributed in the hope that it will be useful, but WITH- *
* OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY *
* or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License *
* for more details. You should have received a copy of the GNU General *
* Public License distributed with GNAT; see file COPYING. If not, write *
* to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, *
* MA 02111-1307, USA. *
* *
* GNAT was originally developed by the GNAT team at New York University. *
* It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). *
* *
****************************************************************************/
/* This is the C file that corresponds to the Ada package specification
Snames. It was created manually from the file snames.ads. */
/* Name_Id values */
#define Name_uParent (First_Name_Id + 256 + 0)
#define Name_uTag (First_Name_Id + 256 + 1)
#define Name_Off (First_Name_Id + 256 + 2)
#define Name_Space (First_Name_Id + 256 + 3)
#define Name_Time (First_Name_Id + 256 + 4)
#define Name_uInit_Proc (First_Name_Id + 256 + 5)
#define Name_uSize (First_Name_Id + 256 + 6)
/* Define the function to return one of the numeric values below. Note
that it actually returns a char since an enumeration value of less
than 256 entries is represented that way in Ada. The operand is a Chars
field value. */
#define Get_Attribute_Id snames__get_attribute_id
extern char Get_Attribute_Id PARAMS ((int));
/* Define the numeric values for the attributes. */
#define Attr_Abort_Signal 0
#define Attr_Access 1
#define Attr_Address 2
#define Attr_Address_Size 3
#define Attr_Aft 4
#define Attr_Alignment 5
#define Attr_Asm_Input 6
#define Attr_Asm_Output 7
#define Attr_AST_Entry 8
#define Attr_Bit 9
#define Attr_Bit_Order 10
#define Attr_Bit_Position 11
#define Attr_Body_Version 12
#define Attr_Callable 13
#define Attr_Caller 14
#define Attr_Code_Address 15
#define Attr_Component_Size 16
#define Attr_Compose 17
#define Attr_Constrained 18
#define Attr_Count 19
#define Attr_Default_Bit_Order 20
#define Attr_Definite 21
#define Attr_Delta 22
#define Attr_Denorm 23
#define Attr_Digits 24
#define Attr_Elaborated 25
#define Attr_Emax 26
#define Attr_Enum_Rep 27
#define Attr_Epsilon 28
#define Attr_Exponent 29
#define Attr_External_Tag 30
#define Attr_First 31
#define Attr_First_Bit 32
#define Attr_Fixed_Value 33
#define Attr_Fore 34
#define Attr_Has_Discriminants 35
#define Attr_Identity 36
#define Attr_Img 37
#define Attr_Integer_Value 38
#define Attr_Large 39
#define Attr_Last 40
#define Attr_Last_Bit 41
#define Attr_Leading_Part 42
#define Attr_Length 43
#define Attr_Machine_Emax 44
#define Attr_Machine_Emin 45
#define Attr_Machine_Mantissa 46
#define Attr_Machine_Overflows 47
#define Attr_Machine_Radix 48
#define Attr_Machine_Rounds 49
#define Attr_Machine_Size 50
#define Attr_Mantissa 51
#define Attr_Max_Interrupt_Priority 52
#define Attr_Max_Priority 53
#define Attr_Max_Size_In_Storage_Elements 54
#define Attr_Maximum_Alignment 55
#define Attr_Mechanism_Code 56
#define Attr_Model_Emin 57
#define Attr_Model_Epsilon 58
#define Attr_Model_Mantissa 59
#define Attr_Model_Small 60
#define Attr_Modulus 61
#define Attr_Null_Parameter 62
#define Attr_Object_Size 63
#define Attr_Partition_ID 64
#define Attr_Passed_By_Reference 65
#define Attr_Pos 66
#define Attr_Position 67
#define Attr_Range 68
#define Attr_Range_Length 69
#define Attr_Round 70
#define Attr_Safe_Emax 71
#define Attr_Safe_First 72
#define Attr_Safe_Large 73
#define Attr_Safe_Last 74
#define Attr_Safe_Small 75
#define Attr_Scale 76
#define Attr_Scaling 77
#define Attr_Signed_Zeros 78
#define Attr_Size 79
#define Attr_Small 80
#define Attr_Storage_Size 81
#define Attr_Storage_Unit 82
#define Attr_Tag 83
#define Attr_Terminated 84
#define Attr_Tick 85
#define Attr_To_Address 86
#define Attr_Type_Class 87
#define Attr_UET_Address 88
#define Attr_Unbiased_Rounding 89
#define Attr_Unchecked_Access 90
#define Attr_Universal_Literal_String 91
#define Attr_Unrestricted_Access 92
#define Attr_VADS_Size 93
#define Attr_Val 94
#define Attr_Valid 95
#define Attr_Value_Size 96
#define Attr_Version 97
#define Attr_Wide_Character_Size 98
#define Attr_Wide_Width 99
#define Attr_Width 100
#define Attr_Word_Size 101
#define Attr_Adjacent 102
#define Attr_Ceiling 103
#define Attr_Copy_Sign 104
#define Attr_Floor 105
#define Attr_Fraction 106
#define Attr_Image 107
#define Attr_Input 108
#define Attr_Machine 109
#define Attr_Max 110
#define Attr_Min 111
#define Attr_Model 112
#define Attr_Pred 113
#define Attr_Remainder 114
#define Attr_Rounding 115
#define Attr_Succ 116
#define Attr_Truncation 117
#define Attr_Value 118
#define Attr_Wide_Image 119
#define Attr_Wide_Value 120
#define Attr_Output 121
#define Attr_Read 122
#define Attr_Write 123
#define Attr_Elab_Body 124
#define Attr_Elab_Spec 125
#define Attr_Storage_Pool 126
#define Attr_Base 127
#define Attr_Class 128
/* Define the function to check if a Name_Id value is a valid pragma */
#define Is_Pragma_Name snames__is_pragma_name
extern Boolean Is_Pragma_Name PARAMS ((Name_Id));
/* Define the function to return one of the numeric values below. Note
that it actually returns a char since an enumeration value of less
than 256 entries is represented that way in Ada. The operand is a Chars
field value. */
#define Get_Pragma_Id snames__get_pragma_id
extern char Get_Pragma_Id PARAMS ((int));
/* Define the numeric values for the pragmas. */
/* Configuration pragmas first */
#define Pragma_Ada_83 0
#define Pragma_Ada_95 1
#define Pragma_C_Pass_By_Copy 2
#define Pragma_Component_Alignment 3
#define Pragma_Discard_Names 4
#define Pragma_Elaboration_Checking 5
#define Pragma_Eliminate 6
#define Pragma_Extend_System 7
#define Pragma_Extensions_Allowed 8
#define Pragma_External_Name_Casing 9
#define Pragma_Float_Representation 10
#define Pragma_Initialize 11
#define Pragma_License 12
#define Pragma_Locking_Policy 13
#define Pragma_Long_Float 14
#define Pragma_No_Run_Time 15
#define Pragma_Normalize_Scalars 16
#define Pragma_Polling 17
#define Pragma_Propagate_Exceptions 18
#define Pragma_Queuing_Policy 19
#define Pragma_Ravenscar 20
#define Pragma_Restricted_Run_Time 21
#define Pragma_Restrictions 22
#define Pragma_Reviewable 23
#define Pragma_Source_File_Name 24
#define Pragma_Style_Checks 25
#define Pragma_Suppress 26
#define Pragma_Task_Dispatching_Policy 27
#define Pragma_Unsuppress 28
#define Pragma_Use_VADS_Size 29
#define Pragma_Validity_Checks 30
#define Pragma_Warnings 31
/* Remaining pragmas */
#define Pragma_Abort_Defer 32
#define Pragma_All_Calls_Remote 33
#define Pragma_Annotate 34
#define Pragma_Assert 35
#define Pragma_Asynchronous 36
#define Pragma_Atomic 37
#define Pragma_Atomic_Components 38
#define Pragma_Attach_Handler 39
#define Pragma_Comment 40
#define Pragma_Common_Object 41
#define Pragma_Complex_Representation 42
#define Pragma_Controlled 43
#define Pragma_Convention 44
#define Pragma_CPP_Class 45
#define Pragma_CPP_Constructor 46
#define Pragma_CPP_Virtual 47
#define Pragma_CPP_Vtable 48
#define Pragma_Debug 49
#define Pragma_Elaborate 50
#define Pragma_Elaborate_All 51
#define Pragma_Elaborate_Body 52
#define Pragma_Export 53
#define Pragma_Export_Exception 54
#define Pragma_Export_Function 55
#define Pragma_Export_Object 56
#define Pragma_Export_Procedure 57
#define Pragma_Export_Valued_Procedure 58
#define Pragma_External 59
#define Pragma_Finalize_Storage_Only 60
#define Pragma_Ident 61
#define Pragma_Import 62
#define Pragma_Import_Exception 63
#define Pragma_Import_Function 64
#define Pragma_Import_Object 65
#define Pragma_Import_Procedure 66
#define Pragma_Import_Valued_Procedure 67
#define Pragma_Inline 68
#define Pragma_Inline_Always 69
#define Pragma_Inline_Generic 70
#define Pragma_Inspection_Point 71
#define Pragma_Interface 72
#define Pragma_Interface_Name 73
#define Pragma_Interrupt_Handler 74
#define Pragma_Interrupt_Priority 75
#define Pragma_Java_Constructor 76
#define Pragma_Java_Interface 77
#define Pragma_Link_With 78
#define Pragma_Linker_Alias 79
#define Pragma_Linker_Options 80
#define Pragma_Linker_Section 81
#define Pragma_List 82
#define Pragma_Machine_Attribute 83
#define Pragma_Main 84
#define Pragma_Main_Storage 85
#define Pragma_Memory_Size 86
#define Pragma_No_Return 87
#define Pragma_Optimize 88
#define Pragma_Pack 89
#define Pragma_Page 90
#define Pragma_Passive 91
#define Pragma_Preelaborate 92
#define Pragma_Priority 93
#define Pragma_Psect_Object 94
#define Pragma_Pure 95
#define Pragma_Pure_Function 96
#define Pragma_Remote_Call_Interface 97
#define Pragma_Remote_Types 98
#define Pragma_Share_Generic 99
#define Pragma_Shared 100
#define Pragma_Shared_Passive 101
#define Pragma_Source_Reference 102
#define Pragma_Stream_Convert 103
#define Pragma_Subtitle 104
#define Pragma_Suppress_All 105
#define Pragma_Suppress_Debug_Info 106
#define Pragma_Suppress_Initialization 107
#define Pragma_System_Name 108
#define Pragma_Task_Info 109
#define Pragma_Task_Name 110
#define Pragma_Task_Storage 111
#define Pragma_Time_Slice 112
#define Pragma_Title 113
#define Pragma_Unchecked_Union 114
#define Pragma_Unimplemented_Unit 115
#define Pragma_Unreserve_All_Interrupts 116
#define Pragma_Volatile 117
#define Pragma_Volatile_Components 118
#define Pragma_Weak_External 119
/* The following are deliberately out of alphabetical order, see Snames */
#define Pragma_AST_Entry 120
#define Pragma_Storage_Size 121
#define Pragma_Storage_Unit 122
/* Define the numeric values for the conventions. */
#define Convention_Ada 0
#define Convention_Intrinsic 1
#define Convention_Entry 2
#define Convention_Protected 3
#define Convention_Assembler 4
#define Convention_C 5
#define Convention_COBOL 6
#define Convention_CPP 7
#define Convention_Fortran 8
#define Convention_Java 9
#define Convention_Stdcall 10
#define Convention_Stubbed 11
|
