From 8de8d4c29b0974a6c156e4f50e879c604dd02b83 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Fri, 24 Apr 2009 13:08:39 +0000
Subject: [PATCH]   * don't call FPC_CHECKPOINTER for references built from a
 LOC_CONSTANT     (mantis #13522)

git-svn-id: trunk@13031 -
---
 compiler/ncgmem.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/compiler/ncgmem.pas b/compiler/ncgmem.pas
index 24d2593f05..470b2c8abd 100644
--- a/compiler/ncgmem.pas
+++ b/compiler/ncgmem.pas
@@ -225,7 +225,9 @@ implementation
             (cs_checkpointer in current_settings.localswitches) and
             not(cs_compilesystem in current_settings.moduleswitches) and
             not(tpointerdef(left.resultdef).is_far) and
-            not(nf_no_checkpointer in flags) then
+            not(nf_no_checkpointer in flags) and
+            { can be NR_NO in case of LOC_CONSTANT }
+            (location.reference.base<>NR_NO) then
           begin
             paraloc1.init;
             paramanager.getintparaloc(pocall_default,1,paraloc1);