paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-05 16:38:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* allow widechar for indexing arrays, fixes 4115

Browse Source 
git-svn-id: trunk@497 -
This commit is contained in:
peter 2005-06-25 21:06:53 +00:00
parent 297f33b6c9
commit 05c241072e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/nmem.pas
View File

@ -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);