paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 19:29:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* reference the VMT's assembler symbol if it's from another unit

Browse Source 
git-svn-id: trunk@34342 -
This commit is contained in:
svenbarth 2016-08-19 14:00:24 +00:00
parent 1bd5d030f5
commit 54874cccd6
1 changed files with 8 additions and 6 deletions

14
compiler/ncgmem.pas
View File

@ -106,6 +106,8 @@ implementation
href : treference;
pool : THashSet;
entry : PHashSetItem;
vmtname : tsymstr;
otherunit,
indirect : boolean;
begin
location_reset(location,LOC_REGISTER,def_cgsize(voidpointertype));
@ -118,17 +120,17 @@ implementation
- the target does not support packages
- the target does not use indirect references
- the class is located inside the same unit }
otherunit:=findunitsymtable(left.resultdef.owner).moduleid<>current_module.moduleid;
indirect:=(tf_supports_packages in target_info.flags) and
(target_info.system in systems_indirect_var_imports) and
not sym_is_owned_by(left.resultdef.typesym,current_module.globalsymtable) and
(
(current_module.globalsymtable=current_module.localsymtable) or
not sym_is_owned_by(left.resultdef.typesym,current_module.localsymtable)
);
otherunit;
vmtname:=tobjectdef(tclassrefdef(resultdef).pointeddef).vmt_mangledname;
reference_reset_symbol(href,
current_asmdata.RefAsmSymbol(tobjectdef(tclassrefdef(resultdef).pointeddef).vmt_mangledname,AT_DATA,indirect),0,
current_asmdata.RefAsmSymbol(vmtname,AT_DATA,indirect),0,
voidpointertype.size);
hlcg.a_loadaddr_ref_reg(current_asmdata.CurrAsmList,resultdef,resultdef,href,location.register);
if otherunit then
current_module.add_extern_asmsym(vmtname,AB_EXTERNAL,AT_DATA);
end
else
begin