* fixed widechar const to widestring, fixes bug #4155

git-svn-id: trunk@638 -

.gitattributes

@@ -6141,6 +6141,7 @@ tests/webtbs/tw4140.pp svneol=native#text/plain
 tests/webtbs/tw4150.pp svneol=native#text/plain
 tests/webtbs/tw4151.pp svneol=native#text/plain
 tests/webtbs/tw4152.pp svneol=native#text/plain
+tests/webtbs/tw4155.pp svneol=native#text/plain
 tests/webtbs/tw4162.pp svneol=native#text/plain
 tests/webtbs/ub1873.pp svneol=native#text/plain
 tests/webtbs/ub1883.pp svneol=native#text/plain

compiler/ncnv.pas

@@ -809,7 +809,10 @@ implementation
               if tstringdef(resulttype.def).string_typ=st_widestring then
                begin
                  initwidestring(ws);
-                 concatwidestringchar(ws,tcompilerwidechar(chr(tordconstnode(left).value)));
+                 if torddef(left.resulttype.def).typ=uwidechar then
+                   concatwidestringchar(ws,tcompilerwidechar(tordconstnode(left).value))
+                 else
+                   concatwidestringchar(ws,tcompilerwidechar(chr(tordconstnode(left).value)));
                  hp:=cstringconstnode.createwstr(ws);
                  donewidestring(ws);
                end

tests/webtbs/tw4155.pp

@@ -0,0 +1,18 @@
+{ %OPT=-Fcutf8}
+{ Source provided for Free Pascal Bug Report 4155 }
+{ Submitted by "rimga" on  2005-07-04 }
+{ e-mail: [email protected] }
+{this file encoded in UTF8}
+{cmd fpc twchar.pas -FcUTF8}
+var
+  c: widestring;
+  c2: widestring;
+begin
+  c:= 'ą';      //problem handling char constants
+  c2:= 'ąa';
+  if c[1]<>c2[1] then
+    WriteLn('problem')
+  else
+    Writeln('OK');
+  Readln;
+end.