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

* fixed type used when subscripting implicit pointer types (don't add

Browse Source 
another indirection)

git-svn-id: trunk@30953 -
This commit is contained in:
Jonas Maebe 2015-05-31 16:50:56 +00:00
parent 26044b604f
commit 0d00c1a19d
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/llvm/nllvmmem.pas
View File

@ -65,6 +65,7 @@ implementation
function tllvmsubscriptnode.handle_platform_subscript: boolean;
var
subscripteddef,
llvmfielddef: tdef;
newbase: tregister;
begin
@ -87,7 +88,11 @@ implementation
{ load the address of that shadow field }
newbase:=hlcg.getaddressregister(current_asmdata.CurrAsmList,getpointerdef(llvmfielddef));
location.reference:=thlcgllvm(hlcg).make_simple_ref(current_asmdata.CurrAsmList,location.reference,left.resultdef);
current_asmdata.CurrAsmList.concat(taillvm.getelementptr_reg_size_ref_size_const(newbase,getpointerdef(left.resultdef),location.reference,s32inttype,vs.llvmfieldnr,true));
if is_implicit_pointer_object_type(left.resultdef) then
subscripteddef:=left.resultdef
else
subscripteddef:=getpointerdef(left.resultdef);
current_asmdata.CurrAsmList.concat(taillvm.getelementptr_reg_size_ref_size_const(newbase,subscripteddef,location.reference,s32inttype,vs.llvmfieldnr,true));
reference_reset_base(location.reference,newbase,vs.offsetfromllvmfield,newalignment(location.reference.alignment,vs.fieldoffset));
{ in case of an 80 bits extended type, typecast from an array of 10
bytes (used because otherwise llvm will allocate the ABI-defined