paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 13:59:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix issue #39009, remove size 20 limit on float types

Browse Source 
git-svn-id: trunk@49507 -
This commit is contained in:
michael 2021-06-16 09:33:45 +00:00
parent 3f8aeadb91
commit f3e7d96053
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-db/src/dbase/dbf_fields.pas
View File

@ -617,7 +617,8 @@ begin
// Note: this field can be stored as BCD or integer, depending on FPrecision;
// that's why we allow 0 precision
if FSize < 1 then FSize := 1;
if FSize >= 20 then FSize := 20;
// Removed, bug report 39009
// if FSize >= 20 then FSize := 20;
if FPrecision > FSize-2 then FPrecision := FSize-2; //Leave space for . and -
if FPrecision < 0 then FPrecision := 0;
end;