From dbd14206c9c6f070dd929ac294f0d3f8e0cdd016 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Thu, 11 Jun 2020 17:30:12 +0000
Subject: [PATCH]   * compilation on targets without fpu fixed

git-svn-id: trunk@45638 -
---
 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;