mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 01:39:27 +02:00
Fix compilation on targets without floating point types
git-svn-id: branches/fixes_3_2@45866 -
This commit is contained in:
parent
8ff9f4f743
commit
ae1c9ac76e
@ -2139,7 +2139,7 @@ var
|
||||
hs : string;
|
||||
code : ValSInt;
|
||||
begin
|
||||
v:=0.0;
|
||||
v:=0;
|
||||
if not CheckRead(f) then
|
||||
Exit;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user