* Fixed fpc_WideCharArray_To_WideStr in case if widechar array contains empty string.

+ Test.

git-svn-id: trunk@8317 -

.gitattributes

@@ -6364,6 +6364,7 @@ tests/tbs/tb0537.pp svneol=native#text/plain
 tests/tbs/tb0538.pp svneol=native#text/plain
 tests/tbs/tb0539.pp svneol=native#text/plain
 tests/tbs/tb0540.pp svneol=native#text/x-pascal
+tests/tbs/tb0541.pp svneol=native#text/plain
 tests/tbs/ub0060.pp svneol=native#text/plain
 tests/tbs/ub0069.pp svneol=native#text/plain
 tests/tbs/ub0119.pp svneol=native#text/plain

rtl/inc/wstrings.inc

@@ -747,9 +747,7 @@ begin
   else
     i := high(arr)+1;
   SetLength(fpc_WideCharArray_To_WideStr,i);
-  Move(pwidechar(@arr)^, PWideChar(Pointer(@fpc_WideCharArray_To_WideStr[1]))^,i*sizeof(WideChar));
-  { Terminating Zero }
-  PWideChar(Pointer(@fpc_WideCharArray_To_WideStr[1])+i*sizeof(WideChar))^:=#0;
+  Move(arr[0], Pointer(fpc_WideCharArray_To_WideStr)^,i*sizeof(WideChar));
 end;
 
 {$ifndef FPC_STRTOCHARARRAYPROC}

tests/tbs/tb0541.pp

@@ -0,0 +1,14 @@
+const
+  TestStr: widestring = 'Test';
+
+var
+  buf: array[0..10] of widechar;
+  s: widestring;
+
+begin
+  Move(TestStr[1], buf[0], (Length(TestStr) + 1)*SizeOf(widechar));
+  s:=buf;
+  writeln(s);
+  buf[0]:=#0;
+  s:=buf;
+end.