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

* (again) fixed loading the address of the string data of an ansi/

Browse Source 
unicodestring constants: specify the type of the pointer to the
    string record (which is indirect) rather than that of the string
    array (which will implicitly be the result of the getelementptr)

git-svn-id: trunk@31256 -
This commit is contained in:
Jonas Maebe 2015-07-30 16:58:19 +00:00
parent d7f6744f7b
commit 9a8a323578
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/llvm/nllvmcon.pas
View File

@ -129,10 +129,10 @@ implementation
dataptrdef:=cpointerdef.getreusable(field.vardef);
{ load the address of the string data }
reg:=hlcg.getaddressregister(current_asmdata.CurrAsmList,dataptrdef);
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(
taillvm.getelementptr_reg_size_ref_size_const(reg,dataptrdef,href,
s32inttype,field.llvmfieldnr,false));
taillvm.getelementptr_reg_size_ref_size_const(reg,cpointerdef.getreusable(strrecdef),href,
s32inttype,field.llvmfieldnr,true));
{ convert into a pointer to the individual elements }
hlcg.a_load_reg_reg(current_asmdata.CurrAsmList,dataptrdef,strpointerdef,reg,location.register);
end;