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