From a0a77f3105b761276194f4167abea637c6efd1db Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sun, 31 May 2015 16:50:50 +0000
Subject: [PATCH]   * suppress (harmless) range error

git-svn-id: trunk@30951 -
---
 compiler/tgobj.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/compiler/tgobj.pas b/compiler/tgobj.pas
index 47a3b2f22c..df69deed64 100644
--- a/compiler/tgobj.pas
+++ b/compiler/tgobj.pas
@@ -411,6 +411,7 @@ implementation
             tl^.def:=def;
 
 {$push}
+{$r-}
 {$warn 6018 off}
 {$warn 4044 off}
             { Extend the temp }