paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-05 10:40:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed ForEachIdentifierInCleanSrc check if StartPos<1

Browse Source 
git-svn-id: trunk@42728 -
This commit is contained in:
mattias 2013-09-10 20:16:55 +00:00
parent d442a420b7
commit cc5d712837
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/pascalreadertool.pas
View File

@ -1724,6 +1724,8 @@ var
begin begin
//debugln(['TPascalReaderTool.ForEachIdentifierInCleanSrc Node=',Node.DescAsString,' "',dbgstr(Src,StartPos,EndPos-StartPos),'"']); //debugln(['TPascalReaderTool.ForEachIdentifierInCleanSrc Node=',Node.DescAsString,' "',dbgstr(Src,StartPos,EndPos-StartPos),'"']);
if (StartPos<1) then
StartPos:=1;
if StartPos>SrcLen then exit; if StartPos>SrcLen then exit;
if EndPos>SrcLen then EndPos:=SrcLen+1; if EndPos>SrcLen then EndPos:=SrcLen+1;
if StartPos>=EndPos then exit; if StartPos>=EndPos then exit;