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

* Fix typo, missing brackets

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-11-11 12:08:44 +01:00
parent 0e3b8cca8c
commit 121f6fce22
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/rtl-objpas/src/inc/strutils.pp
View File

@ -1131,7 +1131,7 @@ begin
if ALength> k then if ALength> k then
ALength:=k; ALength:=k;
SetLength(Result,i+j-ALength); SetLength(Result,i+j-ALength);
move (AText[1],result[1],AStart-1*SizeOf(Char)); move (AText[1],result[1],(AStart-1)*SizeOf(Char));
move (ASubText[1],result[AStart],j*SizeOf(Char)); move (ASubText[1],result[AStart],j*SizeOf(Char));
move (AText[AStart+ALength], Result[AStart+j],(i+1-AStart-ALength)*SizeOf(Char)); move (AText[AStart+ALength], Result[AStart+j],(i+1-AStart-ALength)*SizeOf(Char));
end; end;