1 {
2     Copyright (c) 2014 by Florian Klaempfl
3 
4     Symbol table overrides for <generic>
5 
6     This program is free software; you can redistribute it and/or modify
7     it under the terms of the GNU General Public License as published by
8     the Free Software Foundation; either version 2 of the License, or
9     (at your option) any later version.
10 
11     This program is distributed in the hope that it will be useful,
12     but WITHOUT ANY WARRANTY; without even the implied warranty of
13     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14     GNU General Public License for more details.
15 
16     You should have received a copy of the GNU General Public License
17     along with this program; if not, write to the Free Software
18     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
19 
20  ****************************************************************************
21 }
22 unit symcpu;
23 
24 {$i fpcdefs.inc}
25 
26 interface
27 
28 uses
29   symtype,symdef,symsym;
30 
31 type
32   { defs }
33   tcpufiledef = class(tfiledef)
34   end;
35   tcpufiledefclass = class of tcpufiledef;
36 
37   tcpuvariantdef = class(tvariantdef)
38   end;
39   tcpuvariantdefclass = class of tcpuvariantdef;
40 
41   tcpuformaldef = class(tformaldef)
42   end;
43   tcpuformaldefclass = class of tcpuformaldef;
44 
45   tcpuforwarddef = class(tforwarddef)
46   end;
47   tcpuforwarddefclass = class of tcpuforwarddef;
48 
49   tcpuundefineddef = class(tundefineddef)
50   end;
51   tcpuundefineddefclass = class of tcpuundefineddef;
52 
53   tcpuerrordef = class(terrordef)
54   end;
55   tcpuerrordefclass = class of tcpuerrordef;
56 
57   tcpupointerdef = class(tpointerdef)
58   end;
59   tcpupointerdefclass = class of tcpupointerdef;
60 
61   tcpurecorddef = class(trecorddef)
62   end;
63   tcpurecorddefclass = class of tcpurecorddef;
64 
65   tcpuimplementedinterface = class(timplementedinterface)
66   end;
67   tcpuimplementedinterfaceclass = class of tcpuimplementedinterface;
68 
69   tcpuobjectdef = class(tobjectdef)
70   end;
71   tcpuobjectdefclass = class of tcpuobjectdef;
72 
73   tcpuclassrefdef = class(tclassrefdef)
74   end;
75   tcpuclassrefdefclass = class of tcpuclassrefdef;
76 
77   tcpuarraydef = class(tarraydef)
78   end;
79   tcpuarraydefclass = class of tcpuarraydef;
80 
81   tcpuorddef = class(torddef)
82   end;
83   tcpuorddefclass = class of tcpuorddef;
84 
85   tcpufloatdef = class(tfloatdef)
86   end;
87   tcpufloatdefclass = class of tcpufloatdef;
88 
89   tcpuprocvardef = class(tprocvardef)
90   end;
91   tcpuprocvardefclass = class of tcpuprocvardef;
92 
93   tcpuprocdef = class(tprocdef)
94   end;
95   tcpuprocdefclass = class of tcpuprocdef;
96 
97   tcpustringdef = class(tstringdef)
98   end;
99   tcpustringdefclass = class of tcpustringdef;
100 
101   tcpuenumdef = class(tenumdef)
102   end;
103   tcpuenumdefclass = class of tcpuenumdef;
104 
105   tcpusetdef = class(tsetdef)
106   end;
107   tcpusetdefclass = class of tcpusetdef;
108 
109   { syms }
110   tcpulabelsym = class(tlabelsym)
111   end;
112   tcpulabelsymclass = class of tcpulabelsym;
113 
114   tcpuunitsym = class(tunitsym)
115   end;
116   tcpuunitsymclass = class of tcpuunitsym;
117 
118   tcpuprogramparasym = class(tprogramparasym)
119   end;
120   tcpuprogramparasymclass = class(tprogramparasym);
121 
122   tcpunamespacesym = class(tnamespacesym)
123   end;
124   tcpunamespacesymclass = class of tcpunamespacesym;
125 
126   tcpuprocsym = class(tprocsym)
127   end;
128   tcpuprocsymclass = class of tcpuprocsym;
129 
130   tcputypesym = class(ttypesym)
131   end;
132   tcpuypesymclass = class of tcputypesym;
133 
134   tcpufieldvarsym = class(tfieldvarsym)
135   end;
136   tcpufieldvarsymclass = class of tcpufieldvarsym;
137 
138   tcpulocalvarsym = class(tlocalvarsym)
139   end;
140   tcpulocalvarsymclass = class of tcpulocalvarsym;
141 
142   tcpuparavarsym = class(tparavarsym)
143   end;
144   tcpuparavarsymclass = class of tcpuparavarsym;
145 
146   tcpustaticvarsym = class(tstaticvarsym)
147   end;
148   tcpustaticvarsymclass = class of tcpustaticvarsym;
149 
150   tcpuabsolutevarsym = class(tabsolutevarsym)
151   end;
152   tcpuabsolutevarsymclass = class of tcpuabsolutevarsym;
153 
154   tcpupropertysym = class(tpropertysym)
155   end;
156   tcpupropertysymclass = class of tcpupropertysym;
157 
158   tcpuconstsym = class(tconstsym)
159   end;
160   tcpuconstsymclass = class of tcpuconstsym;
161 
162   tcpuenumsym = class(tenumsym)
163   end;
164   tcpuenumsymclass = class of tcpuenumsym;
165 
166   tcpusyssym = class(tsyssym)
167   end;
168   tcpusyssymclass = class of tcpusyssym;
169 
170 
171 const
172   pbestrealtype : ^tdef = @<somestandardfloattype>;
173 
174 
175 implementation
176 
177 begin
178   { used tdef classes }
179   cfiledef:=tcpufiledef;
180   cvariantdef:=tcpuvariantdef;
181   cformaldef:=tcpuformaldef;
182   cforwarddef:=tcpuforwarddef;
183   cundefineddef:=tcpuundefineddef;
184   cerrordef:=tcpuerrordef;
185   cpointerdef:=tcpupointerdef;
186   crecorddef:=tcpurecorddef;
187   cimplementedinterface:=tcpuimplementedinterface;
188   cobjectdef:=tcpuobjectdef;
189   cclassrefdef:=tcpuclassrefdef;
190   carraydef:=tcpuarraydef;
191   corddef:=tcpuorddef;
192   cfloatdef:=tcpufloatdef;
193   cprocvardef:=tcpuprocvardef;
194   cprocdef:=tcpuprocdef;
195   cstringdef:=tcpustringdef;
196   cenumdef:=tcpuenumdef;
197   csetdef:=tcpusetdef;
198 
199   { used tsym classes }
200   clabelsym:=tcpulabelsym;
201   cunitsym:=tcpuunitsym;
202   cprogramparasym:=tcpuprogramparasym;
203   cnamespacesym:=tcpunamespacesym;
204   cprocsym:=tcpuprocsym;
205   ctypesym:=tcputypesym;
206   cfieldvarsym:=tcpufieldvarsym;
207   clocalvarsym:=tcpulocalvarsym;
208   cparavarsym:=tcpuparavarsym;
209   cstaticvarsym:=tcpustaticvarsym;
210   cabsolutevarsym:=tcpuabsolutevarsym;
211   cpropertysym:=tcpupropertysym;
212   cconstsym:=tcpuconstsym;
213   cenumsym:=tcpuenumsym;
214   csyssym:=tcpusyssym;
215 end.
216 
217