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

* patch from #8480 committed. #0#0 also copied.

Browse Source 
git-svn-id: trunk@6782 -
This commit is contained in:
marco 2007-03-10 22:26:07 +00:00
parent b7b057d570
commit 77d82e5b0a
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/wstrings.inc
View File

@ -238,12 +238,13 @@ 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))*sizeof(widechar));
move(s^,p^,length(WideString(s)+1)*sizeof(widechar)); // double nul also
s:=p;
{$else FPC_WINLIKEWIDESTRING}
{ Let's be paranoid : Constant string ??}
If PWideRec(S-WideFirstOff)^.Ref<0 then exit;
inclocked(PWideRec(S-WideFirstOff)^.Ref);
If PWideRec(S-WideFirstOff)^.Ref<0 then
exit;
inclocked(PWideRec(S-WideFirstOff)^.Ref);
{$endif FPC_WINLIKEWIDESTRING}
end;