LazReport: fix potential overflow in compare function

git-svn-id: trunk@61154 -

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;