paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-09 19:39:31 +01: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; if (not UpAtomIs('PROPERTY')) then exit;
ReadNextAtom; ReadNextAtom;
end; end;
AtomIsIdentifier(true); if not AtomIsIdentifier(false) then exit;
ReadNextAtom; ReadNextAtom;
if CurPos.Flag=cafEdgedBracketOpen then begin if CurPos.Flag=cafEdgedBracketOpen then begin
ReadTilBracketClose(true); ReadTilBracketClose(true);
ReadNextAtom; ReadNextAtom;
end; end;
if CurPos.Flag in [cafSemicolon,cafEND] then exit; if CurPos.Flag in [cafSemicolon,cafEND] then exit;
if not (CurPos.Flag=cafColon) then if CurPos.Flag<>cafColon then exit;
RaiseCharExpectedButAtomFound(':');
ReadNextAtom; ReadNextAtom;
Result:=CurPos.Flag=cafWord; Result:=CurPos.Flag=cafWord;
end; end;