mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 14:48:14 +02:00

interface of a unit, or forward declared, and then the implementation turns out to be external. We now properly generate a wrapper routine at the Pascal level for the original declaration that calls through to the external routine git-svn-id: trunk@31285 -
183 lines
3.7 KiB
ObjectPascal
183 lines
3.7 KiB
ObjectPascal
{
|
|
Copyright (c) 2014 by Florian Klaempfl
|
|
|
|
Symbol table overrides for LLVM
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 2 of the License, or
|
|
(at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT 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
|
|
along with this program; if not, write to the Free Software
|
|
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
|
|
****************************************************************************
|
|
}
|
|
unit symllvm;
|
|
|
|
{$i fpcdefs.inc}
|
|
|
|
interface
|
|
|
|
uses
|
|
globtype,
|
|
symcpu;
|
|
|
|
type
|
|
{ defs }
|
|
tllvmfiledef = class(tcpufiledef)
|
|
end;
|
|
|
|
tllvmvariantdef = class(tcpuvariantdef)
|
|
end;
|
|
|
|
tllvmformaldef = class(tcpuformaldef)
|
|
end;
|
|
|
|
tllvmforwarddef = class(tcpuforwarddef)
|
|
end;
|
|
|
|
tllvmundefineddef = class(tcpuundefineddef)
|
|
end;
|
|
|
|
tllvmerrordef = class(tcpuerrordef)
|
|
end;
|
|
|
|
tllvmpointerdef = class(tcpupointerdef)
|
|
end;
|
|
|
|
tllvmrecorddef = class(tcpurecorddef)
|
|
end;
|
|
|
|
tllvmimplementedinterface = class(tcpuimplementedinterface)
|
|
end;
|
|
|
|
tllvmobjectdef = class(tcpuobjectdef)
|
|
end;
|
|
|
|
tllvmclassrefdef = class(tcpuclassrefdef)
|
|
end;
|
|
|
|
tllvmarraydef = class(tcpuarraydef)
|
|
end;
|
|
|
|
tllvmorddef = class(tcpuorddef)
|
|
end;
|
|
|
|
tllvmfloatdef = class(tcpufloatdef)
|
|
end;
|
|
|
|
tllvmprocvardef = class(tcpuprocvardef)
|
|
end;
|
|
|
|
tllvmprocdef = class(tcpuprocdef)
|
|
end;
|
|
|
|
tllvmstringdef = class(tcpustringdef)
|
|
end;
|
|
|
|
tllvmenumdef = class(tcpuenumdef)
|
|
end;
|
|
|
|
tllvmsetdef = class(tcpusetdef)
|
|
end;
|
|
|
|
{ syms }
|
|
tllvmlabelsym = class(tcpulabelsym)
|
|
end;
|
|
|
|
tllvmunitsym = class(tcpuunitsym)
|
|
end;
|
|
|
|
tllvmprogramparasym = class(tcpuprogramparasym)
|
|
end;
|
|
|
|
tllvmnamespacesym = class(tcpunamespacesym)
|
|
end;
|
|
|
|
tllvmprocsym = class(tcpuprocsym)
|
|
end;
|
|
|
|
tllvmtypesym = class(tcputypesym)
|
|
end;
|
|
|
|
tllvmfieldvarsym = class(tcpufieldvarsym)
|
|
end;
|
|
|
|
tllvmlocalvarsym = class(tcpulocalvarsym)
|
|
end;
|
|
|
|
tllvmparavarsym = class(tcpuparavarsym)
|
|
end;
|
|
|
|
tllvmstaticvarsym = class(tcpustaticvarsym)
|
|
end;
|
|
|
|
tllvmabsolutevarsym = class(tcpuabsolutevarsym)
|
|
end;
|
|
|
|
tllvmpropertysym = class(tcpupropertysym)
|
|
end;
|
|
|
|
tllvmconstsym = class(tcpuconstsym)
|
|
end;
|
|
|
|
tllvmenumsym = class(tcpuenumsym)
|
|
end;
|
|
|
|
tllvmsyssym = class(tcpusyssym)
|
|
end;
|
|
|
|
|
|
implementation
|
|
|
|
uses
|
|
symconst,symdef,symsym;
|
|
|
|
begin
|
|
{ used tdef classes }
|
|
cfiledef:=tllvmfiledef;
|
|
cvariantdef:=tllvmvariantdef;
|
|
cformaldef:=tllvmformaldef;
|
|
cforwarddef:=tllvmforwarddef;
|
|
cundefineddef:=tllvmundefineddef;
|
|
cerrordef:=tllvmerrordef;
|
|
cpointerdef:=tllvmpointerdef;
|
|
crecorddef:=tllvmrecorddef;
|
|
cimplementedinterface:=tllvmimplementedinterface;
|
|
cobjectdef:=tllvmobjectdef;
|
|
cclassrefdef:=tllvmclassrefdef;
|
|
carraydef:=tllvmarraydef;
|
|
corddef:=tllvmorddef;
|
|
cfloatdef:=tllvmfloatdef;
|
|
cprocvardef:=tllvmprocvardef;
|
|
cprocdef:=tllvmprocdef;
|
|
cstringdef:=tllvmstringdef;
|
|
cenumdef:=tllvmenumdef;
|
|
csetdef:=tllvmsetdef;
|
|
|
|
{ used tsym classes }
|
|
clabelsym:=tllvmlabelsym;
|
|
cunitsym:=tllvmunitsym;
|
|
cprogramparasym:=tllvmprogramparasym;
|
|
cnamespacesym:=tllvmnamespacesym;
|
|
cprocsym:=tllvmprocsym;
|
|
ctypesym:=tllvmtypesym;
|
|
cfieldvarsym:=tllvmfieldvarsym;
|
|
clocalvarsym:=tllvmlocalvarsym;
|
|
cparavarsym:=tllvmparavarsym;
|
|
cstaticvarsym:=tllvmstaticvarsym;
|
|
cabsolutevarsym:=tllvmabsolutevarsym;
|
|
cpropertysym:=tllvmpropertysym;
|
|
cconstsym:=tllvmconstsym;
|
|
cenumsym:=tllvmenumsym;
|
|
csyssym:=tllvmsyssym;
|
|
end.
|
|
|