소스 검색

* fixed typecast error in last char/widechar/widestring patch

git-svn-id: branches/fixes_2_2@10178 -
peter 17 년 전
부모
커밋
d067912353
1개의 변경된 파일2개의 추가작업 그리고 1개의 파일을 삭제
  1. 2 1
      compiler/ncnv.pas

+ 2 - 1
compiler/ncnv.pas

@@ -924,7 +924,8 @@ implementation
       begin
          result:=nil;
          if (left.nodetype=stringconstn) and
-            ((tstringdef(left.resultdef).stringtype<>st_widestring) or
+            ((not is_widechararray(left.resultdef) and
+              not is_widestring(left.resultdef)) or
              (tstringdef(resultdef).stringtype=st_widestring) or
              { non-ascii chars would be replaced with '?' -> loses info }
              not hasnonasciichars(pcompilerwidestring(tstringconstnode(left).value_str))) then