paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 01:29:21 +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; exit;
{$ifdef FPC_WINLIKEWIDESTRING} {$ifdef FPC_WINLIKEWIDESTRING}
p:=NewWidestring(length(WideString(S))); 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; s:=p;
{$else FPC_WINLIKEWIDESTRING} {$else FPC_WINLIKEWIDESTRING}
{ Let's be paranoid : Constant string ??} { Let's be paranoid : Constant string ??}
If PWideRec(S-WideFirstOff)^.Ref<0 then If PWideRec(S-WideFirstOff)^.Ref<0 then
exit; exit;
inclocked(PWideRec(S-WideFirstOff)^.Ref); inclocked(PWideRec(S-WideFirstOff)^.Ref);
{$endif FPC_WINLIKEWIDESTRING} {$endif FPC_WINLIKEWIDESTRING}
@ -378,7 +378,7 @@ begin
if S2<>nil then if S2<>nil then
begin begin
S1:=NewWidestring(length(WideString(S2))); S1:=NewWidestring(length(WideString(S2)));
move(s2^,s1^,length(WideString(s1))*sizeof(widechar)); move(s2^,s1^,(length(WideString(s1))+1)*sizeof(widechar));
end end
else else
S1:=nil; S1:=nil;