paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 10:19:19 +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 else
begin begin
if i<0 then if i<0 then
result:=((i-a+1) div a) * a result:=((i+1-a) div a) * a
else else
result:=((i+a-1) div a) * a; result:=((i-1+a) div a) * a;
end; end;
end; end;
@ -364,9 +364,9 @@ implementation
else else
begin begin
if i<0 then if i<0 then
result:=((i-a+1) div a) * a result:=((i+1-a) div a) * a
else else
result:=((i+a-1) div a) * a; result:=((i-1+a) div a) * a;
end; end;
end; end;
@ -380,7 +380,7 @@ implementation
if a<=1 then if a<=1 then
result:=i result:=i
else else
result:=((i+a-1) div a) * a; result:=((i-1+a) div a) * a;
end; end;