paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-25 00:19:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: lcltype: check for same nNumerator and nDenominator value in MulDiv.

Browse Source 
git-svn-id: trunk@53579 -
This commit is contained in:
ondrej 2016-12-06 18:51:24 +00:00
parent 17b353b2e7
commit 0b202568c5
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/lcltype.pp
View File

@ -3034,6 +3034,9 @@ function MulDiv(nNumber, nNumerator, nDenominator: Integer): Integer;
begin begin
if nDenominator = 0 then if nDenominator = 0 then
Result := -1 Result := -1
else
if nNumerator = nDenominator then
Result := nNumber
else else
Result := MathRound(int64(nNumber) * int64(nNumerator) / nDenominator); Result := MathRound(int64(nNumber) * int64(nNumerator) / nDenominator);
end; end;