From b851a5a065f7a2ab9c2b8ce93f6ea455a1fc2e65 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Mon, 1 Oct 2012 14:20:54 +0000
Subject: [PATCH]  Accept range/overflow for address computation inside unit

git-svn-id: trunk@22507 -
---
 compiler/ogcoff.pas | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/compiler/ogcoff.pas b/compiler/ogcoff.pas
index e82a14f2d8..0f420c4b2b 100644
--- a/compiler/ogcoff.pas
+++ b/compiler/ogcoff.pas
@@ -811,6 +811,10 @@ const pemagic : array[0..3] of byte = (
         write(offset,len);
       end;
 
+{ We don't want overflow nor range checks here,
+  wrapping is accepted in the address computation below }
+{$r-}
+{$q-}
 
     procedure TCoffExeOutput.DoRelocationFixup(objsec:TObjSection);
       var