paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 02:48:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed overflow error when calling align() with corner case values such as align($7FFFFFFC, 4) for the longint variant.

Browse Source 
git-svn-id: trunk@39915 -
This commit is contained in:
yury 2018-10-12 14:38:14 +00:00
parent a898ae856f
commit 4860f3934a
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/cutils.pas
View File

@ -346,9 +346,9 @@ implementation
else
begin
if i<0 then
result:=((i-a+1) div a) * a
result:=((i+1-a) div a) * a
else
result:=((i+a-1) div a) * a;
result:=((i-1+a) div a) * a;
end;
end;
@ -364,9 +364,9 @@ implementation
else
begin
if i<0 then
result:=((i-a+1) div a) * a
result:=((i+1-a) div a) * a
else
result:=((i+a-1) div a) * a;
result:=((i-1+a) div a) * a;
end;
end;
@ -380,7 +380,7 @@ implementation
if a<=1 then
result:=i
else
result:=((i+a-1) div a) * a;
result:=((i-1+a) div a) * a;
end;