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

codetools: fixed TPascalReaderTool.MoveCursorToPropType not raising exception

Browse Source 
git-svn-id: trunk@25905 -
This commit is contained in:
mattias 2010-06-04 22:09:11 +00:00
parent 16af3c13d5
commit 5aed4cd577
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/codetools/pascalreadertool.pas
View File

@ -906,15 +906,14 @@ begin
if (not UpAtomIs('PROPERTY')) then exit;
ReadNextAtom;
end;
AtomIsIdentifier(true);
if not AtomIsIdentifier(false) then exit;
ReadNextAtom;
if CurPos.Flag=cafEdgedBracketOpen then begin
ReadTilBracketClose(true);
ReadNextAtom;
end;
if CurPos.Flag in [cafSemicolon,cafEND] then exit;
if not (CurPos.Flag=cafColon) then
RaiseCharExpectedButAtomFound(':');
if CurPos.Flag<>cafColon then exit;
ReadNextAtom;
Result:=CurPos.Flag=cafWord;
end;