From 7b6e360bce9f81aca16ed019131591f9d3e10243 Mon Sep 17 00:00:00 2001
From: wp_xyz <wp_xxyyzzz@gmx.net>
Date: Tue, 13 Feb 2024 00:47:00 +0100
Subject: [PATCH] aggpas: Prevent potential overflow error. Issue #40765.

---
 components/aggpas/src/agg_rasterizer_scanline_aa.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/aggpas/src/agg_rasterizer_scanline_aa.pas b/components/aggpas/src/agg_rasterizer_scanline_aa.pas
index bd254246f6..f7b6b9cc68 100644
--- a/components/aggpas/src/agg_rasterizer_scanline_aa.pas
+++ b/components/aggpas/src/agg_rasterizer_scanline_aa.pas
@@ -1752,7 +1752,7 @@ end;
 { CALCULATE_ALPHA }
 function rasterizer_scanline_aa.calculate_alpha(area: int): unsigned;
 var
- cover : system.integer;
+ cover : int;
 
 begin
 // 1: cover:=area shr (poly_base_shift * 2 + 1 - aa_shift );