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

codetools: fixed range check in TLinkScanner.SkipTillEndifElse

Browse Source 
git-svn-id: trunk@31198 -
This commit is contained in:
mattias 2011-06-13 10:20:31 +00:00
parent efd0eebe51
commit 3e75caa3ae
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/codetools/linkscanner.pas
View File

@ -3557,8 +3557,9 @@ begin
begin begin
// skip string constant // skip string constant
inc(p); inc(p);
while p^<>'''' do inc(p); while not (p^ in ['''',#0,#10,#13]) do inc(p);
inc(p); if p^='''' then
inc(p);
end; end;
#0: #0:
begin begin