From 6ab2c00ac61fa7290f945fcfc0eef7ea0df35822 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sun, 10 Aug 2014 19:39:58 +0000
Subject: [PATCH]   * recognise LOC_CREFERENCE in
 tllvmsubscriptnode.handle_platform_subscript()

git-svn-id: branches/hlcgllvm@28364 -
---
 compiler/llvm/nllvmmem.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/llvm/nllvmmem.pas b/compiler/llvm/nllvmmem.pas
index bab1374ac1..90f9e29eaa 100644
--- a/compiler/llvm/nllvmmem.pas
+++ b/compiler/llvm/nllvmmem.pas
@@ -68,7 +68,7 @@ implementation
         llvmfielddef: tdef;
         newbase: tregister;
       begin
-        if location.loc<>LOC_REFERENCE then
+        if not(location.loc in [LOC_REFERENCE,LOC_CREFERENCE]) then
           internalerror(2014011905);
         if is_packed_record_or_object(left.resultdef) then
           begin