paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-15 10:09:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fpc_assign_widestr after a hint of Martin Schreiber fixed, see #7272

Browse Source 
git-svn-id: trunk@4502 -
This commit is contained in:
florian 2006-08-24 20:16:39 +00:00
parent 0ade2e487d
commit 9d14c87da7
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/wstrings.inc
View File

@ -378,9 +378,7 @@ begin
inclocked(PWideRec(S2-WideFirstOff)^.ref);
{ Decrease the reference count on the old S1 }
fpc_widestr_decr_ref (S1);
{ And finally, have S1 pointing to S2 (or its copy) }
fpc_WideStr_SetLength(WideString(s1),length(WideString(s2)));
move(s2^,s1^,length(WideString(s1))*sizeof(widechar));
s1:=s2;
{$endif FPC_WINLIKEWIDESTRING}
end;