Mercurial > hg > CbC > CbC_gcc

comparison gcc/ada/snames.h-tmpl @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 /****************************************************************************
2 * *
3 * GNAT COMPILER COMPONENTS *
4 * *
5 * S N A M E S *
6 * *
7 * C Header File *
8 * *
9 * Copyright (C) 1992-2008, Free Software Foundation, Inc. *
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. See the GNU General Public License *
17 * for more details. You should have received a copy of the GNU General *
18 * Public License distributed with GNAT; see file COPYING3. If not, go to *
19 * http://www.gnu.org/licenses for a complete copy of the license. *
20 * *
21 * GNAT was originally developed by the GNAT team at New York University. *
22 * Extensive contributions were provided by Ada Core Technologies Inc. *
23 * *
24 ****************************************************************************/
25
26 /* This is the C file that corresponds to the Ada package specification
27 Snames. It was created automatically from the file snames.ads. */
28
29 /* Name_Id values */
30
31 #define Name_ !! TEMPLATE INSERTION POINT
32
33 /* Define the function to return one of the numeric values below. Note
34 that it actually returns a char since an enumeration value of less
35 than 256 entries is represented that way in Ada. The operand is a Chars
36 field value. */
37
38 #define Get_Attribute_Id snames__get_attribute_id
39 extern unsigned char Get_Attribute_Id (int);
40
41 /* Define the numeric values for attributes. */
42
43 #define Attr_ !! TEMPLATE INSERTION POINT
44
45 /* Define the numeric values for the conventions. */
46
47 #define Convention_ !! TEMPLATE INSERTION POINT
48
49 /* Define the function to check if a Name_Id value is a valid pragma */
50
51 #define Is_Pragma_Name snames__is_pragma_name
52 extern Boolean Is_Pragma_Name (Name_Id);
53
54 /* Define the function to return one of the numeric values below. Note
55 that it actually returns a char since an enumeration value of less
56 than 256 entries is represented that way in Ada. The operand is a Chars
57 field value. */
58
59 #define Get_Pragma_Id snames__get_pragma_id
60 extern unsigned char Get_Pragma_Id (int);
61
62 /* Define the numeric values for the pragmas. */
63
64 #define Pragma_ !! TEMPLATE_INSERTION_POINT
65
66 /* End of snames.h (C version of Snames package spec) */