paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 15:28:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: Do not garble LazFreeType fonts. Issue #37012

Browse Source 
git-svn-id: branches/fixes_2_0@63468 -
This commit is contained in:
mattias 2020-06-28 16:54:34 +00:00
parent dd7609f0dc
commit 64908be44a
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;