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

codetools: fixed parsing var type deprecated )

Browse Source 
git-svn-id: trunk@42844 -
This commit is contained in:
mattias 2013-09-16 15:55:35 +00:00
parent 75902ea949
commit f68c999a04
1 changed files with 18 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
components/codetools/pascalparsertool.pas
View File

@ -3366,6 +3366,7 @@ procedure TPascalParserTool.ReadHintModifiers;
var
NeedUndo: boolean;
CanHaveString: Boolean;
begin
if CurPos.Flag=cafSemicolon then begin
ReadNextAtom;
@ -3374,24 +3375,23 @@ begin
NeedUndo:=false;
while IsModifier do begin
//debugln(['TPascalParserTool.ReadHintModifier ',CurNode.DescAsString,' ',CleanPosToStr(CurPos.StartPos)]);
NeedUndo:=true;
NeedUndo:=false;
CreateChildNode;
CurNode.Desc:=ctnHintModifier;
CurNode.EndPos:=CurPos.EndPos;
if UpAtomIs('DEPRECATED') then begin
ReadNextAtom;
if AtomIsStringConstant then begin
ReadConstant(true,false,[]);
CurNode.EndPos:=CurPos.StartPos;
end;
end else
ReadNextAtom;
CanHaveString:=UpAtomIs('DEPRECATED');
ReadNextAtom;
if CanHaveString and AtomIsStringConstant then begin
ReadConstant(true,false,[]);
CurNode.EndPos:=CurPos.StartPos;
end;
if not (CurPos.Flag in [cafSemicolon,cafRoundBracketClose]) then
SaveRaiseCharExpectedButAtomFound(';');
EndChildNode;
if CurPos.Flag<>cafSemicolon then
break;
ReadNextAtom;
NeedUndo:=true;
end;
if NeedUndo then
UndoReadNextAtom;
@ -4784,7 +4784,8 @@ begin
SaveRaiseStringExpectedButAtomFound('"of"');
// read all variants
repeat
ReadNextAtom; // read constant (variant identifier)
// read constant(s) (variant identifier)
ReadNextAtom;
{$IFDEF VerboseRecordCase}
debugln(['TPascalParserTool.KeyWordFuncTypeRecordCase variant start="',GetAtom,'"']);
{$ENDIF}
@ -4798,7 +4799,8 @@ begin
SaveRaiseCharExpectedButAtomFound(':');
ReadNextAtom;
until false;
ReadNextAtom; // read '('
// read '('
ReadNextAtom;
if (CurPos.Flag<>cafRoundBracketOpen) then
SaveRaiseCharExpectedButAtomFound('(');
// read all variables
@ -4831,9 +4833,14 @@ begin
ReadNextAtom; // read type
Result:=ParseType(CurPos.StartPos,CurPos.EndPos-CurPos.StartPos);
if not Result then begin
{$IFDEF VerboseRecordCase}
debugln(['TPascalParserTool.KeyWordFuncTypeRecordCase ParseType failed']);
{$ENDIF}
exit;
end;
{$IFDEF VerboseRecordCase}
debugln(['TPascalParserTool.KeyWordFuncTypeRecordCase Hint modifier: "',GetAtom,'"']);
{$ENDIF}
ReadHintModifiers;
CurNode.EndPos:=CurPos.EndPos;
EndChildNode; // close variable definition