* allow conststring to array of widechar

git-svn-id: trunk@1471 -

compiler/defcmp.pas

@@ -660,7 +660,8 @@ implementation
                         else
                           { to array of char, from "Untyped" stringconstn (array of char) }
                           if (fromtreetype=stringconstn) and
-                             is_chararray(def_to) then
+                             (is_chararray(def_to) or
+                              is_widechararray(def_to)) then
                             begin
                               eq:=te_convert_l1;
                               doconv:=tc_string_2_chararray;