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

* fixed loading the address of the string data of an ansi/unicodestring

Browse Source 
constant in the llvm code generator (the constant is a record rather than
    a pointer to a record -> not indirect)

git-svn-id: trunk@31062 -
This commit is contained in:
Jonas Maebe 2015-06-13 22:48:43 +00:00
parent b176ed9f80
commit 4c11d34169
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/llvm/nllvmcon.pas
View File

@ -132,7 +132,7 @@ implementation
reference_reset_symbol(href, lab_str, 0, const_align(strpointerdef.size)); reference_reset_symbol(href, lab_str, 0, const_align(strpointerdef.size));
current_asmdata.CurrAsmList.concat( current_asmdata.CurrAsmList.concat(
taillvm.getelementptr_reg_size_ref_size_const(reg,dataptrdef,href, taillvm.getelementptr_reg_size_ref_size_const(reg,dataptrdef,href,
s32inttype,field.llvmfieldnr,true)); s32inttype,field.llvmfieldnr,false));
{ convert into a pointer to the individual elements } { convert into a pointer to the individual elements }
hlcg.a_load_reg_reg(current_asmdata.CurrAsmList,dataptrdef,strpointerdef,reg,location.register); hlcg.a_load_reg_reg(current_asmdata.CurrAsmList,dataptrdef,strpointerdef,reg,location.register);
end; end;