paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-05 06:49:47 +01:00
Code Issues Packages Projects Releases Wiki Activity

* set location.size if we handle a subscript access in

Browse Source 
handle_platform_subscript()

git-svn-id: branches/hlcgllvm@27136 -
This commit is contained in:
Jonas Maebe 2014-03-14 18:22:12 +00:00
parent d3c11ca8b3
commit 0283670041
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/llvm/nllvmmem.pas
View File

@ -97,6 +97,7 @@ implementation
hlcg.a_load_reg_reg(current_asmdata.CurrAsmList,getpointerdef(llvmfielddef),getpointerdef(resultdef),location.reference.base,newbase); hlcg.a_load_reg_reg(current_asmdata.CurrAsmList,getpointerdef(llvmfielddef),getpointerdef(resultdef),location.reference.base,newbase);
location.reference.base:=newbase; location.reference.base:=newbase;
end; end;
location.size:=def_cgsize(resultdef);
result:=true; result:=true;
end; end;
end; end;