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

codetools: fixed skipping include files in skipped ifdef

Browse Source 
git-svn-id: trunk@36769 -
This commit is contained in:
mattias 2012-04-14 11:17:45 +00:00
parent 6f02c6c229
commit c7a09910d0
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/codetools/linkscanner.pas
View File

@ -3682,11 +3682,14 @@ begin
#0:
begin
SrcPos:=p-PChar(Src)+1;
if (SrcPos>SrcLen) and not ReturnFromIncludeFile then begin
CommentStartPos:=0;
break;
end;
inc(p);
if (SrcPos>SrcLen) then begin
if not ReturnFromIncludeFile then begin
CommentStartPos:=0;
break;
end;
p:=@Src[SrcPos];
end else
inc(p);
end;
else
inc(p);