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

* fixed returns from functions that return their result in a parameter

Browse Source 
git-svn-id: branches/hlcgllvm@28353 -
This commit is contained in:
Jonas Maebe 2014-08-10 13:18:59 +00:00
parent 575911dcb0
commit ec77e64adc
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/llvm/hlcgllvm.pas
View File

@ -973,7 +973,9 @@ implementation
retpara.check_simple_location; retpara.check_simple_location;
retdef:=retpara.location^.def; retdef:=retpara.location^.def;
if is_void(retdef) or if is_void(retdef) or
paramanager.ret_in_param(retdef,current_procinfo.procdef) then { don't check retdef here, it is e.g. a pshortstring in case it's
shortstring that's returned in a parameter }
paramanager.ret_in_param(current_procinfo.procdef.returndef,current_procinfo.procdef) then
list.concat(taillvm.op_size(la_ret,voidtype)) list.concat(taillvm.op_size(la_ret,voidtype))
else else
begin begin