* Fixed bug #9221.

+ Test.

git-svn-id: trunk@7975 -

.gitattributes

@@ -8325,6 +8325,7 @@ tests/webtbs/tw9179.pp svneol=native#text/plain
 tests/webtbs/tw9187.pp svneol=native#text/plain
 tests/webtbs/tw9190.pp svneol=native#text/plain
 tests/webtbs/tw9209.pp svneol=native#text/plain
+tests/webtbs/tw9221.pp svneol=native#text/plain
 tests/webtbs/ub1873.pp svneol=native#text/plain
 tests/webtbs/ub1883.pp svneol=native#text/plain
 tests/webtbs/uw0555.pp svneol=native#text/plain

rtl/inc/wstrings.inc

@@ -984,9 +984,10 @@ begin
         end;
       { Force nil termination in case it gets shorter }
       PWord(Pointer(S)+l*sizeof(WideChar))^:=0;
-{$ifndef FPC_WINLIKEWIDESTRING}
+{$ifdef MSWINDOWS}
-      PWideRec(Pointer(S)-WideFirstOff)^.Len:=l*sizeof(WideChar);
+      if not winwidestringalloc then
-{$endif FPC_WINLIKEWIDESTRING}
+{$endif MSWINDOWS}
+        PWideRec(Pointer(S)-WideFirstOff)^.Len:=l*sizeof(WideChar);
     end
   else
     begin

tests/webtbs/tw9221.pp

@@ -0,0 +1,13 @@
+{%target=win32,win64}
+
+var
+  s: widestring;
+begin
+  winwidestringalloc:=false;
+  s:='1234';
+  SetLength(s, 10);
+  if Length(s) <> 10 then begin
+    writeln('Test failed!');
+    Halt(1);
+  end;
+end.