From c7d79acd61c727d4e6ed321c4766228ae4a3f043 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Tue, 13 Sep 2016 08:47:53 +0000
Subject: [PATCH]  Allow compilation of compiler with -gc option

git-svn-id: trunk@34524 -
---
 compiler/rgobj.pas | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/compiler/rgobj.pas b/compiler/rgobj.pas
index 85448d9459..c015ed7838 100644
--- a/compiler/rgobj.pas
+++ b/compiler/rgobj.pas
@@ -714,7 +714,12 @@ unit rgobj;
           if movelist=nil then
             begin
               { don't use sizeof(tmovelistheader), because that ignores alignment }
+              {$push}
+              { avoid RTE 204 if checkpointer is enabled with -gc }
+              {$checkpointer off}
+              {$note This is a problem in checkpointer support, as the address is taken here, no check should be done}
               getmem(movelist,ptruint(@movelist^.data)-ptruint(movelist)+60*sizeof(pointer));
+              {$pop}
               movelist^.header.maxcount:=60;
               movelist^.header.count:=0;
               movelist^.header.sorted_until:=0;