From 73db4db6f812208cf37e0c22211b1541b6b42536 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?K=C3=A1roly=20Balogh?= <karoly@freepascal.org>
Date: Wed, 12 Mar 2014 18:22:04 +0000
Subject: [PATCH] use the whole reg for return values

git-svn-id: trunk@27116 -
---
 compiler/m68k/cpupara.pas | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/compiler/m68k/cpupara.pas b/compiler/m68k/cpupara.pas
index 3150a08ef0..7ccde0e3fb 100644
--- a/compiler/m68k/cpupara.pas
+++ b/compiler/m68k/cpupara.pas
@@ -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