From cb647d875c649941dc8a35459460b616e6d26975 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 24 Sep 2011 21:17:09 +0000
Subject: [PATCH] * avoid mistakes with unimplemented sqr function on
 architectures with no softfloat support

git-svn-id: trunk@19218 -
---
 compiler/ninl.pas | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/compiler/ninl.pas b/compiler/ninl.pas
index 1c69039db0..607247e1af 100644
--- a/compiler/ninl.pas
+++ b/compiler/ninl.pas
@@ -3182,6 +3182,11 @@ implementation
 
      function tinlinenode.first_sqr_real : tnode;
       begin
+{$ifndef cpufpemu}
+        { this procedure might be only used for cpus definining cpufpemu else
+          the optimizer might go into an endless loop when doing x*x -> changes }
+        internalerror(2011092401);
+{$endif cpufpemu}
         { create the call to the helper }
         { on entry left node contains the parameter }
         first_sqr_real := ctypeconvnode.create(ccallnode.createintern('fpc_sqr_real',