From 59d9225b259585c8704bd4ad3201a95d8e082777 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Sun, 5 May 2019 15:35:56 +0000
Subject: [PATCH] LazReport: fix potential overflow in compare function

git-svn-id: trunk@61154 -
---
 components/lazreport/source/lr_e_csv.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/components/lazreport/source/lr_e_csv.pas b/components/lazreport/source/lr_e_csv.pas
index c37df21488..faf779987f 100644
--- a/components/lazreport/source/lr_e_csv.pas
+++ b/components/lazreport/source/lr_e_csv.pas
@@ -75,7 +75,9 @@ end;
 
 function CompareIntervals(Item1, Item2: Pointer): Integer;
 begin
+  {$PUSH}{$Q-} // Overflow is allowed to occur
   result := Integer({%H-}PtrInt(Item1)-{%H-}PtrInt(Item2));
+  {$POP}
 end;
 
 procedure TfrCSVExportFilter.OnEndPage;