From 3987c82bab856e4dec0588df6ac6143a922050f4 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Wed, 15 Aug 2012 18:28:47 +0000
Subject: [PATCH] * assign a complexity of 2 to float nodes because they
 usually involve a loading from memory

git-svn-id: trunk@22097 -
---
 compiler/nutils.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/compiler/nutils.pas b/compiler/nutils.pas
index 98b1dfb414..ee85228dd0 100644
--- a/compiler/nutils.pas
+++ b/compiler/nutils.pas
@@ -539,7 +539,11 @@ implementation
           begin
             case p.nodetype of
               { floating point constants usually need loading from memory }
-              realconstn,
+              realconstn:
+                begin
+                  result:=2;
+                  exit;
+                end;
               setconstn,
               stringconstn,
               temprefn,