From 4860f3934a5b7ee9242a4b90717807f55730f8fa Mon Sep 17 00:00:00 2001
From: yury <jura@cp-lab.com>
Date: Fri, 12 Oct 2018 14:38:14 +0000
Subject: [PATCH] * Fixed overflow error when calling align() with corner case
 values such as align($7FFFFFFC, 4) for the longint variant.

git-svn-id: trunk@39915 -
---
 compiler/cutils.pas | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/compiler/cutils.pas b/compiler/cutils.pas
index c7467d64f1..0f86ae83c9 100644
--- a/compiler/cutils.pas
+++ b/compiler/cutils.pas
@@ -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;