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

codetools: parsing on statements, bug #13935

Browse Source 
git-svn-id: trunk@21076 -
This commit is contained in:
mattias 2009-08-02 20:53:45 +00:00
parent 8ba2fa933d
commit 8e63d7866a
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/pascalparsertool.pas
View File

@ -2324,6 +2324,8 @@ begin
RaiseStrExpectedWithBlockStartHint('"end"');
end else if CreateNodes and UpAtomIs('WITH') then begin
ReadWithStatement(true,CreateNodes);
end else if CreateNodes and UpAtomIs('ON') then begin
ReadOnStatement(true,CreateNodes);
end else begin
// check for unexpected keywords
case BlockType of