paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 21:11:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* excess precision should not be applied to comp or currency

Browse Source 
git-svn-id: trunk@47246 -
This commit is contained in:
florian 2020-10-28 21:37:27 +00:00
parent 5b06af8886
commit ff31d95a69
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/nadd.pas
View File

@ -1884,7 +1884,8 @@ implementation
floattype for results } floattype for results }
if (right.resultdef.typ=floatdef) and if (right.resultdef.typ=floatdef) and
(left.resultdef.typ=floatdef) and (left.resultdef.typ=floatdef) and
(tfloatdef(left.resultdef).floattype=tfloatdef(right.resultdef).floattype) then (tfloatdef(left.resultdef).floattype=tfloatdef(right.resultdef).floattype) and
not(tfloatdef(left.resultdef).floattype in [s64comp,s64currency]) then
begin begin
if cs_excessprecision in current_settings.localswitches then if cs_excessprecision in current_settings.localswitches then
resultrealdef:=pbestrealtype^ resultrealdef:=pbestrealtype^