From d8aa5a1ff871c88c3f2f67e768209977c8cdcc41 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Thu, 19 Mar 2009 14:20:51 +0000
Subject: [PATCH]   * set the node complexity of realconstn to 1 instead of the
 default (maximum)

git-svn-id: trunk@12919 -
---
 compiler/nutils.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/compiler/nutils.pas b/compiler/nutils.pas
index aea53e206a..9f87a0dd79 100644
--- a/compiler/nutils.pas
+++ b/compiler/nutils.pas
@@ -630,6 +630,8 @@ implementation
         while assigned(p) do
           begin
             case p.nodetype of
+              { floating point constants usually need loading from memory }
+              realconstn,
               temprefn,
               loadvmtaddrn,
               { main reason for the next one: we can't take the address of }