paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 15:11:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* made Objective-C non-fragile ABI field indexing type safe for LLVM

Browse Source 
git-svn-id: trunk@32911 -
This commit is contained in:
Jonas Maebe 2016-01-10 17:22:03 +00:00
parent d46fad1e7f
commit 9e4806f21a
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/ncgmem.pas
View File

@ -524,6 +524,7 @@ implementation
} }
asmsym:=current_asmdata.RefAsmSymbol(vs.mangledname); asmsym:=current_asmdata.RefAsmSymbol(vs.mangledname);
reference_reset_symbol(tmpref,asmsym,0,sizeof(pint)); reference_reset_symbol(tmpref,asmsym,0,sizeof(pint));
hlcg.g_ptrtypecast_ref(current_asmdata.CurrAsmList,left.resultdef,cpointerdef.getreusable(resultdef),location.reference);
location.reference.index:=hlcg.getintregister(current_asmdata.CurrAsmList,ptruinttype); location.reference.index:=hlcg.getintregister(current_asmdata.CurrAsmList,ptruinttype);
hlcg.a_load_ref_reg(current_asmdata.CurrAsmList,ptruinttype,ptruinttype,tmpref,location.reference.index); hlcg.a_load_ref_reg(current_asmdata.CurrAsmList,ptruinttype,ptruinttype,tmpref,location.reference.index);
{ always packrecords C -> natural alignment } { always packrecords C -> natural alignment }