blob: 4fb396ca63004232f9dfc8f4abe7ce1f70b5b3e5 (
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
|
/****************************************************************************
* *
* GNAT COMPILER COMPONENTS *
* *
* S C O S *
* *
* C Header File *
* *
* Copyright (C) 2014-2017, 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 3, 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 COPYING3. If not, go to *
* http://www.gnu.org/licenses for a complete copy of the license. *
* *
* GNAT was originally developed by the GNAT team at New York University. *
* Extensive contributions were provided by Ada Core Technologies Inc. *
* *
****************************************************************************/
/* This is the C file that corresponds to the Ada package spec SCOs. It was
created manually from the file scos.ads. */
#ifdef __cplusplus
extern "C" {
#endif
/* Unit table: */
typedef Int SCO_Unit_Index;
struct SCO_Unit_Table_Entry
{
String_Pointer File_Name;
Int File_Index;
Nat Dep_Num;
Nat From, To;
};
typedef struct SCO_Unit_Table_Entry *SCO_Unit_Table_Type;
/* The following depends on the fact that The_Instance.Table
is the first component. */
extern SCO_Unit_Table_Type scos__sco_unit_table__the_instance;
#define SCO_Unit_Table scos__sco_unit_table__the_instance
extern Int scos__sco_unit_table__first(void);
#define SCO_Unit_Table_First scos__sco_unit_table__first
extern Int scos__sco_unit_table__last(void);
#define SCO_Unit_Table_Last scos__sco_unit_table__last
/* SCOs table: */
struct Source_Location
{
Line_Number_Type Line;
Column_Number_Type Col;
};
struct SCO_Table_Entry
{
struct Source_Location From, To;
char C1, C2;
bool Last;
Source_Ptr Pragma_Sloc;
Name_Id Pragma_Aspect_Name;
};
typedef struct SCO_Table_Entry *SCO_Table_Type;
/* The following depends on the fact that The_Instance.Table
is the first component. */
extern SCO_Table_Type scos__sco_table__the_instance;
#define SCO_Table scos__sco_table__the_instance
extern Int scos__sco_table__first(void);
#define SCO_Table_First scos__sco_table__first
extern Int scos__sco_table__last(void);
#define SCO_Table_Last scos__sco_table__last
#ifdef __cplusplus
}
#endif
|
