From c3b9e56e90a390e927c0c503e90b0197bec5ed47 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Wed, 14 Jan 2004 21:44:16 +0000
Subject: [PATCH]   * give penalty in float-float conversion when precision is
 lost

---
 compiler/defcmp.pas | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/compiler/defcmp.pas b/compiler/defcmp.pas
index 135dc17beb..6500c74ae9 100644
--- a/compiler/defcmp.pas
+++ b/compiler/defcmp.pas
@@ -410,10 +410,14 @@ implementation
                      else
                        begin
                          if not(explicit) or
-                           not(m_delphi in aktmodeswitches) then
+                            not(m_delphi in aktmodeswitches) then
                            begin
                              doconv:=tc_real_2_real;
-                             eq:=te_convert_l1;
+                             { do we loose precision? }
+                             if def_to.size<def_from.size then
+                               eq:=te_convert_l2
+                             else
+                               eq:=te_convert_l1;
                            end;
                        end;
                    end;
@@ -1258,7 +1262,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.41  2004-01-06 02:17:44  florian
+  Revision 1.42  2004-01-14 21:44:16  peter
+    * give penalty in float-float conversion when precision is lost
+
+  Revision 1.41  2004/01/06 02:17:44  florian
     * fixed webbug 2878
 
   Revision 1.40  2004/01/02 17:19:04  jonas