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

* fixed handling of uninitialised complex function results

Browse Source 
git-svn-id: trunk@33940 -
This commit is contained in:
Jonas Maebe 2016-06-09 22:00:05 +00:00
parent a59fc7c165
commit b76539a049
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/hlcgllvm.pas
View File

@ -1244,7 +1244,12 @@ implementation
LOC_FPUREGISTER, LOC_FPUREGISTER,
LOC_MMREGISTER: LOC_MMREGISTER:
begin begin
list.concat(taillvm.op_reg_size_undef(la_bitcast,resloc.location^.register,llvmgetcgparadef(resloc,true))); if not llvmaggregatetype(resdef) then
list.concat(taillvm.op_reg_size_undef(la_bitcast,resloc.location^.register,llvmgetcgparadef(resloc,true)))
else
{ bitcast doesn't work for aggregates -> just load from the
(uninitialised) function result memory location }
gen_load_loc_function_result(list,resdef,tabstractnormalvarsym(pd.funcretsym).localloc)
end; end;
{ for empty record returns } { for empty record returns }
LOC_VOID: LOC_VOID: