From 2b7fb31a9eefc7bd1f395057c34052cff82b3417 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 19 Nov 2006 22:25:23 +0000
Subject: [PATCH] * return float values in fpu registers only in non emulation
 mode

git-svn-id: trunk@5429 -
---
 compiler/m68k/cpupara.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/m68k/cpupara.pas b/compiler/m68k/cpupara.pas
index 02852a242e..a1dafe11ec 100644
--- a/compiler/m68k/cpupara.pas
+++ b/compiler/m68k/cpupara.pas
@@ -208,7 +208,7 @@ unit cpupara;
             exit;
           end;
         { Return in FPU register? }
-        if p.returndef.typ=floatdef then
+        if not(cs_fp_emulation in current_settings.moduleswitches) and (p.returndef.typ=floatdef) then
           begin
             p.funcretloc[side].loc:=LOC_FPUREGISTER;
             p.funcretloc[side].register:=NR_FPU_RESULT_REG;