paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 14:59:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed range check

Browse Source 
git-svn-id: trunk@48260 -
This commit is contained in:
mattias 2015-03-11 12:28:25 +00:00
parent 5bda463520
commit 9fd34c07cf
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/codetools/customcodetool.pas
View File

@ -2313,12 +2313,15 @@ begin
end;
function TCustomCodeTool.IsPCharInSrc(ACleanPos: PChar): boolean;
var NewPos: integer;
// Note: the ending #0 is a valid position
var
p: PChar;
begin
Result:=false;
if Src='' then exit;
NewPos:=PtrInt(PtrUInt(ACleanPos))-PtrInt(PtrUInt(@Src[1]))+1;
if (NewPos<1) or (NewPos>SrcLen) then exit;
p:=PChar(Src);
if p>ACleanPos then exit;
if ACleanPos>p+SrcLen then exit;
Result:=true;
end;