From 667a0103573e43d1b650ef56a08a2108f498e434 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Tue, 21 Jul 2020 05:22:26 +0000
Subject: [PATCH]  Avoid wrong overflow error when using -Criot options

git-svn-id: trunk@45815 -
---
 compiler/ogrel.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/compiler/ogrel.pas b/compiler/ogrel.pas
index 8e0917cad8..a30fc4346f 100644
--- a/compiler/ogrel.pas
+++ b/compiler/ogrel.pas
@@ -358,9 +358,11 @@ implementation
             else if (p.objsection=CurrObjSec) and
                     (p.bind<>AB_COMMON) and
                     (Reloctype=RELOC_RELATIVE) then
+{$push} {$R-}{$Q-}
               begin
                 data:=data+symaddr-len-CurrObjSec.Size;
               end
+{$pop}
             else
               begin
                 objreloc:=TRelRelocation.CreateSection(CurrObjSec.Size,p.objsection,Reloctype);