paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 17:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* also export the mangled RTTI name from a package

Browse Source 
git-svn-id: trunk@34178 -
This commit is contained in:
svenbarth 2016-07-22 13:39:51 +00:00
parent 971d05c898
commit 6cc7539208
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/pkgutil.pas
View File

@ -139,12 +139,22 @@ implementation
if df_generic in def.defoptions then
exit;
def.symtable.SymList.ForEachCall(@exportabstractrecordsymproc,def.symtable);
if (def.typ=objectdef) and (oo_has_vmt in tobjectdef(def).objectoptions) then
if def.typ=objectdef then
begin
hp:=texported_item.create;
hp.name:=stringdup(tobjectdef(def).vmt_mangledname);
hp.options:=hp.options+[eo_name];
exportlib.exportvar(hp);
if (oo_has_vmt in tobjectdef(def).objectoptions) then
begin
hp:=texported_item.create;
hp.name:=stringdup(tobjectdef(def).vmt_mangledname);
hp.options:=hp.options+[eo_name];
exportlib.exportvar(hp);
end;
if is_class(def) then
begin
hp:=texported_item.create;
hp.name:=stringdup(tobjectdef(def).rtti_mangledname(fullrtti));
hp.options:=hp.options+[eo_name];
exportlib.exportvar(hp);
end;
end;
end;