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

* fix for regexpr unicode mode. (multiple a move with the size of the base char type)

Browse Source 
Patch by Ludo B., mantis #020806

git-svn-id: trunk@19754 -
This commit is contained in:
marco 2011-12-04 18:41:04 +00:00
parent 2d928cbee8
commit a19b627739
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/regexpr/src/regexpr.pas
View File

@ -1304,7 +1304,7 @@ function TRegExpr.GetMatch (Idx : integer) : RegExprString;
then begin
//SetString (Result, startp [idx], endp [idx] - startp [idx])
SetLength(Result,endp [idx] - startp [idx]);
System.Move(startp [idx]^,Result[1],length(Result));
System.Move(startp [idx]^,Result[1],length(Result)*sizeof(REChar));
end
else Result := '';
end; { of function TRegExpr.GetMatch