paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-31 13:21:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: linkscanner: fixed range check reading line comment

Browse Source 
git-svn-id: trunk@31202 -
This commit is contained in:
mattias 2011-06-13 17:20:15 +00:00
parent 1ad681f7b9
commit 34e18ab3f9
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/codetools/linkscanner.pas
View File

@ -1399,9 +1399,9 @@ begin
CommentStyle:=CommentTP;
CommentStartPos:=SrcPos;
IncCommentLevel;
inc(SrcPos);
CommentInnerStartPos:=SrcPos+1;
p:=@Src[SrcPos];
CommentInnerStartPos:=SrcPos;
inc(p);
{ HandleSwitches can dec CommentLevel }
while true do begin
case p^ of
@ -1435,15 +1435,19 @@ end;
procedure TLinkScanner.SkipLineComment;
// a // newline comment
var
p: PChar;
begin
CommentStyle:=CommentDelphi;
CommentStartPos:=SrcPos;
IncCommentLevel;
inc(SrcPos,2);
p:=@Src[SrcPos];
inc(p,2);
CommentInnerStartPos:=SrcPos;
while (SrcPos<=SrcLen) and (Src[SrcPos]<>#10) do inc(SrcPos);
while not (p^ in [#0,#10,#13]) do inc(p);
DecCommentLevel;
inc(SrcPos);
if p^<>#0 then inc(p);
SrcPos:=p-PChar(Src)+1;
CommentEndPos:=SrcPos;
CommentInnerEndPos:=SrcPos-1;
{ handle compiler switches (ignore) }
@ -1458,9 +1462,9 @@ begin
CommentStyle:=CommentDelphi;
CommentStartPos:=SrcPos;
IncCommentLevel;
inc(SrcPos,2);
CommentInnerStartPos:=SrcPos;
CommentInnerStartPos:=SrcPos+2;
p:=@Src[SrcPos];
inc(p,2);
while true do begin
case p^ of
#0: