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

* fix widestringreplace, shared routine missed some *sizeof(srchar) here and there.

Browse Source 
patch from Cyrax, Mantis #32649

git-svn-id: trunk@37882 -
This commit is contained in:
marco 2017-12-30 15:51:53 +00:00
parent d9f733bada
commit acf6fde3cf
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/objpas/sysutils/syssr.inc
View File

@ -4,6 +4,11 @@ var
c,d: SRPChar ;
begin
Result:='';
c:= NIL; d:=NIL;
OldPat:='';
Srch:='';
PatLength:=Length(OldPattern);
if PatLength=0 then begin
Result:=S;
@ -26,7 +31,7 @@ begin
repeat
P:=Pos(OldPat,Srch,P);
if P>0 then begin
move(NewPattern[1],Result[P],PatLength);
move(NewPattern[1],Result[P],PatLength*SizeOf(SRChar));
if not (rfReplaceAll in Flags) then exit;
inc(P,PatLength);
end;
@ -49,7 +54,7 @@ begin
exit;
end;
NewPatLength:=Length(NewPattern);
SetLength(Result,Length(S)+PatCount*(NewPatLength-PatLength)*SizeOf(SRChar));
SetLength(Result,Length(S)+PatCount*(NewPatLength-PatLength));
P:=1; PrevP:=0;
c:=SRPChar(Result); d:=SRPChar(S);
repeat
@ -57,12 +62,12 @@ begin
if P>0 then begin
Cnt:=P-PrevP-1;
if Cnt>0 then begin
Move(d^,c^,Cnt);
Move(d^,c^,Cnt*SizeOf(SRChar));
inc(c,Cnt);
inc(d,Cnt);
end;
if NewPatLength>0 then begin
Move(NewPattern[1],c^,NewPatLength);
Move(NewPattern[1],c^,NewPatLength*SizeOf(SRChar));
inc(c,NewPatLength);
end;
inc(P,PatLength);
@ -72,7 +77,7 @@ begin
end;
until p=0;
Cnt:=Length(S)-PrevP;
if Cnt>0 then Move(d^,c^,Cnt);
if Cnt>0 then Move(d^,c^,Cnt*SizeOf(SRChar));
end;
end;
@ -113,4 +118,4 @@ begin
end;
end;
end;
*)
*)