* compilation on targets without fpu fixed

git-svn-id: trunk@45638 -

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;