paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 14:09:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* even if currency is handled by torddef, it is a real number, so using / is perfectly right, resolves #38718

Browse Source 
(cherry picked from commit 09628e56cb)

# Conflicts:
#	.gitattributes
This commit is contained in:
florian 2021-04-09 20:38:46 +00:00
parent 30c6cc295c
commit 26f200b0ff
2 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ncnv.pas
View File

@ -937,7 +937,7 @@ implementation
{An attempt to convert the result of a floating point division {An attempt to convert the result of a floating point division
(with the / operator) to an integer type will fail. Give a hint (with the / operator) to an integer type will fail. Give a hint
to use the div operator.} to use the div operator.}
if (node.nodetype=slashn) and (def.typ=orddef) then if (node.nodetype=slashn) and (def.typ=orddef) and not(is_currency(def)) then
cgmessage(type_h_use_div_for_int); cgmessage(type_h_use_div_for_int);
{In expressions like int64:=longint+longint, an integer overflow could be avoided {In expressions like int64:=longint+longint, an integer overflow could be avoided
by simply converting the operands to int64 first. Give a hint to do this.} by simply converting the operands to int64 first. Give a hint to do this.}

12
tests/webtbs/tw38718.pp Normal file
View File

@ -0,0 +1,12 @@
{ %opt=-vh -Seh }
program CurrencyTest;
{$mode objfpc}{$H+}
var
C: Currency;
D: Integer;
begin
C := 1234.56;
D := 2;
C := C / D; // Hint: Use DIV instead to get an integer result
Writeln(C);
end.