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

codetools: parsing member type without semicolon

Browse Source 
git-svn-id: trunk@29364 -
This commit is contained in:
mattias 2011-02-03 22:18:32 +00:00
parent b23421ec3e
commit bec76993b1
1 changed files with 49 additions and 44 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/codetools/pascalparsertool.pas
View File

@ -3035,9 +3035,8 @@ begin
end; end;
if UpAtomIs('DEPRECATED') then if UpAtomIs('DEPRECATED') then
ReadNextAtom; ReadNextAtom;
if CurPos.Flag=cafSemicolon then begin
// read ; // read ;
if CurPos.Flag<>cafSemicolon then
RaiseCharExpectedButAtomFound(';');
ReadNextAtom; ReadNextAtom;
if UpAtomIs('CVAR') then begin if UpAtomIs('CVAR') then begin
// for example: 'var a: char; cvar;' // for example: 'var a: char; cvar;'
@ -3084,6 +3083,12 @@ begin
RaiseCharExpectedButAtomFound(';'); RaiseCharExpectedButAtomFound(';');
end else end else
UndoReadNextAtom; UndoReadNextAtom;
end else if CurPos.Flag=cafEND then begin
UndoReadNextAtom;
end else begin
RaiseCharExpectedButAtomFound(';');
end;
CurNode.EndPos:=CurPos.EndPos; CurNode.EndPos:=CurPos.EndPos;
EndChildNode; EndChildNode;
end; end;