From ae1c9ac76e9c5818dea439fce40eb83344aa4ce6 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Tue, 28 Jul 2020 09:28:59 +0000
Subject: [PATCH]  Fix compilation on targets without floating point types

git-svn-id: branches/fixes_3_2@45866 -
---
 rtl/inc/text.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/inc/text.inc b/rtl/inc/text.inc
index f12694ddc2..0ae0f4aac0 100644
--- a/rtl/inc/text.inc
+++ b/rtl/inc/text.inc
@@ -2139,7 +2139,7 @@ var
   hs : string;
   code : ValSInt;
 begin
-  v:=0.0;
+  v:=0;
   if not CheckRead(f) then
     Exit;