From 144d4c41f20cb61309c1e800f6a3a0245773120c Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Thu, 9 Jun 2011 08:21:07 +0000
Subject: [PATCH]  * Define FPC_SYSTEM_HAS_FLOAT32/64 in softfpu unit

git-svn-id: trunk@17701 -
---
 rtl/inc/softfpu.pp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/rtl/inc/softfpu.pp b/rtl/inc/softfpu.pp
index 8302ed6fa4..51a29baeb5 100644
--- a/rtl/inc/softfpu.pp
+++ b/rtl/inc/softfpu.pp
@@ -96,6 +96,7 @@ Software IEC/IEEE floating-point types.
 }
 TYPE
   float32 = longword;
+{$define FPC_SYSTEM_HAS_float32}
   { we use here a record in the function header because
     the record allows bitwise conversion to single }
   float32rec = record
@@ -165,6 +166,9 @@ TYPE
   end;
 {$endif}
 
+{$define FPC_SYSTEM_HAS_float64}
+
+
 {*
 -------------------------------------------------------------------------------
 Returns 1 if the double-precision floating-point value `a' is less than