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

LazUtils: Do not garble LazFreeType fonts. Issue #37012, patch from circular.

Browse Source 
git-svn-id: trunk@63125 -
This commit is contained in:
juha 2020-05-07 20:20:56 +00:00
parent 9679fa6543
commit 8fccfb64ef
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/lazutils/ttcalc.pas
View File

@ -141,8 +141,15 @@ var
temp: Int64;
begin
temp := int64(a)*int64(b);
if temp >= 0 then temp += c shr 1
else temp -= c shr 1;
if c < 0 then
begin
c := -c;
temp := -temp;
end;
if temp >= 0 then
temp += c shr 1
else
temp -= c shr 1;
result := temp div c;
end;