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

* fixed patch for #8480

Browse Source 
git-svn-id: trunk@6783 -
This commit is contained in:
florian 2007-03-11 10:13:23 +00:00
parent 77d82e5b0a
commit 7fb2a035e3
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/wstrings.inc
View File

@ -238,11 +238,11 @@ Procedure fpc_WideStr_Incr_Ref(Var S : Pointer);[Public,Alias:'FPC_WIDESTR_INCR_
exit;
{$ifdef FPC_WINLIKEWIDESTRING}
p:=NewWidestring(length(WideString(S)));
move(s^,p^,length(WideString(s)+1)*sizeof(widechar)); // double nul also
move(s^,p^,(length(WideString(s))+1)*sizeof(widechar)); // double #0 too
s:=p;
{$else FPC_WINLIKEWIDESTRING}
{ Let's be paranoid : Constant string ??}
If PWideRec(S-WideFirstOff)^.Ref<0 then
If PWideRec(S-WideFirstOff)^.Ref<0 then
exit;
inclocked(PWideRec(S-WideFirstOff)^.Ref);
{$endif FPC_WINLIKEWIDESTRING}
@ -378,7 +378,7 @@ begin
if S2<>nil then
begin
S1:=NewWidestring(length(WideString(S2)));
move(s2^,s1^,length(WideString(s1))*sizeof(widechar));
move(s2^,s1^,(length(WideString(s1))+1)*sizeof(widechar));
end
else
S1:=nil;