From 864f9b24cc31428d32a5615fa4a497fc5318d5cf Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 25 Apr 2015 15:51:39 +0000
Subject: [PATCH]   * handle indexing implicit pointer types on llvm

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

diff --git a/compiler/llvm/nllvmmem.pas b/compiler/llvm/nllvmmem.pas
index 56e1a457c5..dfdbf882f8 100644
--- a/compiler/llvm/nllvmmem.pas
+++ b/compiler/llvm/nllvmmem.pas
@@ -143,7 +143,9 @@ implementation
       locref:=nil;
       { avoid uninitialised warning }
       arrptrelementdef:=nil;
-      if not arraytopointerconverted then
+      if not arraytopointerconverted and
+         not is_dynamicstring(left.resultdef) and
+         not is_dynamic_array(left.resultdef) then
         begin
           { the result is currently a pointer to left.resultdef (the array type)
              -> convert it into a pointer to an element inside this array }