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

Merged revision(s) 32500 from branches/svenbarth/packages:

Browse Source 
Use indirect references for "on".

ncgflw.pas, tcgonnode:
  * pass_generate_code: if the target supports packages then we need to load the VMT using an indirect symbol

........

git-svn-id: trunk@34228 -
This commit is contained in:
svenbarth 2016-07-29 14:58:40 +00:00
parent 1228b043c0
commit 7dadd44ba7
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ncgflw.pas
View File

@ -1218,6 +1218,7 @@ implementation
pd : tprocdef;
fpc_catches_res: TCGPara;
fpc_catches_resloc: tlocation;
indirect : boolean;
begin
paraloc1.init;
location_reset(location,LOC_VOID,OS_NO);
@ -1230,9 +1231,14 @@ implementation
flowcontrol:=[fc_inflowcontrol];
current_asmdata.getjumplabel(nextonlabel);
indirect:=(tf_supports_packages in target_info.flags) and
(target_info.system in systems_indirect_var_imports) and
(cs_imported_data in current_settings.localswitches) and
(excepttype.owner.moduleid<>current_procinfo.procdef.owner.moduleid);
{ send the vmt parameter }
pd:=search_system_proc('fpc_catches');
reference_reset_symbol(href2,current_asmdata.RefAsmSymbol(excepttype.vmt_mangledname,AT_DATA),0,sizeof(pint));
reference_reset_symbol(href2,current_asmdata.RefAsmSymbol(excepttype.vmt_mangledname,AT_DATA,indirect),0,sizeof(pint));
paramanager.getintparaloc(current_asmdata.CurrAsmList,pd,1,paraloc1);
hlcg.a_loadaddr_ref_cgpara(current_asmdata.CurrAsmList,excepttype.vmt_def,href2,paraloc1);
paramanager.freecgpara(current_asmdata.CurrAsmList,paraloc1);