From 05c241072eb64ec5b956a7df4974c2efe98fd9c1 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sat, 25 Jun 2005 21:06:53 +0000
Subject: [PATCH]   * allow widechar for indexing arrays, fixes 4115

git-svn-id: trunk@497 -
---
 compiler/nmem.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/nmem.pas b/compiler/nmem.pas
index e6411c1bfe..db7a2a20a4 100644
--- a/compiler/nmem.pas
+++ b/compiler/nmem.pas
@@ -652,7 +652,7 @@ implementation
          { maybe type conversion for the index value, but
            do not convert enums,booleans,char }
          if (right.resulttype.def.deftype<>enumdef) and
-            not(is_char(right.resulttype.def)) and
+            not(is_char(right.resulttype.def) or is_widechar(right.resulttype.def)) and
             not(is_boolean(right.resulttype.def)) then
            begin
              inserttypeconv(right,sinttype);