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

codetools: h2p: added safety check

Browse Source 
git-svn-id: trunk@14660 -
This commit is contained in:
mattias 2008-03-26 17:52:58 +00:00
parent dce2481e79
commit fc6e52e515
1 changed files with 23 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/codetools/nonpascalcodetools.pas
View File

@ -410,10 +410,11 @@ begin
{$R-}
Result:=Source;
DstPos:=1;
SrcPos:=1;
SrcPos:=StartPos;
SrcLen:=length(Source);
if EndPos<1 then EndPos:=SrcLen+1;
if SrcLen>EndPos then SrcLen:=EndPos;
if EndPos>SrcLen then EndPos:=SrcLen+1;
if SrcPos<EndPos then begin
repeat
ReadRawNextCAtom(Source,SrcPos,AtomStart);
if AtomStart>=EndPos then break;
@ -432,6 +433,9 @@ begin
end;
end;
until false;
end;
if DstPos>length(Result)+1 then
raise Exception.Create('');
SetLength(Result,DstPos-1);
{$IFDEF RangeChecking}{$R+}{$UNDEF RangeChecking}{$ENDIF}
end;