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

* edited fix from Rimgaudas Laucius to fix #7868

Browse Source 
git-svn-id: trunk@5564 -
This commit is contained in:
florian 2006-12-10 22:49:18 +00:00
parent 139408b512
commit a5c5c0956d
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/wstrings.inc
View File

@ -237,9 +237,12 @@ Procedure fpc_WideStr_Incr_Ref(Var S : Pointer);[Public,Alias:'FPC_WIDESTR_INCR_
If S=Nil then
exit;
{$ifdef FPC_WINLIKEWIDESTRING}
p:=s;
fpc_WideStr_SetLength(WideString(s),length(WideString(p)));
move(p^,s^,length(WideString(p))*sizeof(widechar));
if S<>nil then
begin
p:=NewWidestring(length(WideString(S)));
move(s^,p^,length(WideString(s))*sizeof(widechar));
end;
s:= p;
{$else FPC_WINLIKEWIDESTRING}
{ Let's be paranoid : Constant string ??}
If PWideRec(S-WideFirstOff)^.Ref<0 then exit;