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

use the whole reg for return values

Browse Source 
git-svn-id: trunk@27116 -
This commit is contained in:
Károly Balogh 2014-03-12 18:22:04 +00:00
parent bda6bf8137
commit 73db4db6f8
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/m68k/cpupara.pas
View File

@ -220,6 +220,17 @@ unit cpupara;
if set_common_funcretloc_info(p,forcetempdef,retcgsize,result) then
exit;
{ always use the whole 32 bit register when returning values }
if (side=calleeside) and
(result.intsize>0) and
(result.intsize<sizeof(aint)) then
begin
result.def:=sinttype;
result.intsize:=sizeof(aint);
retcgsize:=OS_SINT;
result.size:=retcgsize;
end;
paraloc:=result.add_location;
{ Return in FPU register? }
if not (cs_fp_emulation in current_settings.moduleswitches) and