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
|
/* file generated by oo2c -- do not edit */
#include "SymbolTable.h"
#include "Error.h"
#include "IntStr.h"
#include "StdPragmas.h"
#include "StdTypes.h"
#include "Strings.h"
#include "Strings2.h"
/* local definitions */
Data__Object SymbolTable__predef;
Data__Object SymbolTable__system;
Data__Object SymbolTable__mod;
Data__Object SymbolTable__currScope;
SymbolTable__StructList SymbolTable__typeConstrList;
static int SymbolTable__tbProcCounter;
Data__Object SymbolTable__importedMods;
Data__Const SymbolTable__constTrue;
Data__Const SymbolTable__constFalse;
Data__Object SymbolTable__mem;
Data__Object SymbolTable__store;
unsigned char(* SymbolTable__paramsMatchExt)(Data__Struct str1, Data__Struct str2);
/* function prototypes */
Data__Object SymbolTable__InsertDecl_InsertInTree(Data__Object *tree, Data__Object *SymbolTable__InsertDecl_obj);
Data__Object SymbolTable__InsertDecl_InsertInList(Data__Object *list, Data__Object *SymbolTable__InsertDecl_obj);
Data__Object SymbolTable__InsertDecl(Data__Addressable scope, Data__Object obj);
void SymbolTable__CloseScope_UnresolvedForward(Data__Object obj);
void SymbolTable__CloseScope_WarnUnused(Data__Object obj);
Data__Object SymbolTable__CloseScope_GetTBProc(Data__Struct record, int index);
void SymbolTable__CloseScope_SetTBProcFlags(Data__Struct record, signed char mode);
void SymbolTable__InitPredef_PredefStruct(const unsigned char* name__ref, int name_0d, signed char form);
void SymbolTable__InitPredef_PredefProc_CreateParam(Data__Object *param, signed char form);
void SymbolTable__InitPredef_PredefProc(const unsigned char* name__ref, int name_0d, signed char id, signed char p0, signed char p1, signed char p2, signed char res);
void SymbolTable__InitPredef(void);
/* module and type descriptors */
static const struct {
int length;
void* pad;
const char name[12];
} _n0 = {12, NULL, {"SymbolTable"}};
static struct _MD SymbolTable_md = {
NULL,
&Kernel__ModuleDesc_td.td,
{
NULL,
(const unsigned char*)_n0.name,
-1,
NULL
}
};
static const struct {
int length;
void* pad;
const char name[15];
} _n1 = {15, NULL, {"StructListDesc"}};
static const struct {
int length;
void* pad;
_Type btypes[1];
} SymbolTable__StructListDesc_tdb = {
1,
NULL,
{
&SymbolTable__StructListDesc_td.td
}
};
static const struct {
int length;
void* pad;
const void* tbprocs[1];
} _tb0 = {0, NULL, {
NULL
}};
struct _TD SymbolTable__StructListDesc_td = {
NULL,
&Types__TypeDesc_td.td,
{
SymbolTable__StructListDesc_tdb.btypes,
_tb0.tbprocs,
(const unsigned char*)_n1.name,
&SymbolTable_md.md,
0,
'0', '1',
sizeof(SymbolTable__StructListDesc),
NULL
}
};
/* local strings */
static const unsigned char _c82[] = "$store";
static const unsigned char _c81[] = "$mem";
static const unsigned char _c80[] = "VAL";
static const unsigned char _c79[] = "ROT";
static const unsigned char _c78[] = "PUT";
static const unsigned char _c77[] = "MOVE";
static const unsigned char _c76[] = "LSH";
static const unsigned char _c75[] = "GET";
static const unsigned char _c74[] = "BIT";
static const unsigned char _c73[] = "ADR";
static const unsigned char _c72[] = "ADDRESS";
static const unsigned char _c71[] = "SET64";
static const unsigned char _c70[] = "SET32";
static const unsigned char _c69[] = "SET16";
static const unsigned char _c68[] = "SET8";
static const unsigned char _c67[] = "PTR";
static const unsigned char _c66[] = "BYTE";
static const unsigned char _c65[] = "SYSTEM";
static const unsigned char _c64[] = "TRUE";
static const unsigned char _c63[] = "FALSE";
static const unsigned char _c62[] = "SIZE";
static const unsigned char _c61[] = "SHORT";
static const unsigned char _c60[] = "ORD";
static const unsigned char _c59[] = "ODD";
static const unsigned char _c58[] = "NEW";
static const unsigned char _c57[] = "MIN";
static const unsigned char _c56[] = "MAX";
static const unsigned char _c55[] = "LONGCHR";
static const unsigned char _c54[] = "LONG";
static const unsigned char _c53[] = "LEN";
static const unsigned char _c52[] = "INCL";
static const unsigned char _c51[] = "INC";
static const unsigned char _c50[] = "HALT";
static const unsigned char _c49[] = "EXCL";
static const unsigned char _c48[] = "ENTIER";
static const unsigned char _c47[] = "DEC";
static const unsigned char _c46[] = "COPY";
static const unsigned char _c45[] = "CHR";
static const unsigned char _c44[] = "CAP";
static const unsigned char _c43[] = "ASSERT";
static const unsigned char _c42[] = "ASH";
static const unsigned char _c41[] = "ABS";
static const unsigned char _c40[] = "SET";
static const unsigned char _c39[] = "LONGREAL";
static const unsigned char _c38[] = "REAL";
static const unsigned char _c37[] = "HUGEINT";
static const unsigned char _c36[] = "LONGINT";
static const unsigned char _c35[] = "INTEGER";
static const unsigned char _c34[] = "SHORTINT";
static const unsigned char _c33[] = "LONGCHAR";
static const unsigned char _c32[] = "CHAR";
static const unsigned char _c31[] = "BOOLEAN";
static const unsigned char _c30[] = "_predef_";
static const unsigned char _c29[] = "any";
static const unsigned char _c28[] = "basic";
static const unsigned char _c27[] = "integer, CHAR, or BYTE";
static const unsigned char _c26[] = "nil compatible";
static const unsigned char _c25[] = "parameter types of SHORT";
static const unsigned char _c24[] = "parameter types of LONG";
static const unsigned char _c23[] = "pointer";
static const unsigned char _c22[] = "character array";
static const unsigned char _c21[] = "array";
static const unsigned char _c20[] = "string";
static const unsigned char _c19[] = "string16";
static const unsigned char _c18[] = "string8";
static const unsigned char _c17[] = "set";
static const unsigned char _c16[] = "complex";
static const unsigned char _c15[] = "numeric";
static const unsigned char _c14[] = "real";
static const unsigned char _c13[] = "integer";
static const unsigned char _c12[] = "character";
static const unsigned char _c11[] = "undef";
static const unsigned char _c10[] = "RECORD";
static const unsigned char _c9[] = "StringConst16";
static const unsigned char _c8[] = "StringConst8";
static const unsigned char _c7[] = "PROCEDURE";
static const unsigned char _c6[] = "POINTER";
static const unsigned char _c5[] = "void";
static const unsigned char _c4[] = "NIL";
static const unsigned char _c3[] = " OF ";
static const unsigned char _c2[] = "ARRAY ";
static const unsigned char _c1[] = "ARRAY OF ";
static const unsigned char _c0[] = "";
|
