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

codetools: implemented parsing struct name

Browse Source 
git-svn-id: trunk@14387 -
This commit is contained in:
mattias 2008-03-03 17:05:16 +00:00
parent 735da60bb7
commit 4e6ffac026
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/codetools/ccodeparsertool.pas
View File

@ -375,7 +375,7 @@ begin
CreateChildNode(ccnStruct);
ReadNextAtom;
if CurNode.Parent.Desc=ccnVariable then begin
if CurNode.Parent.Desc<>ccnTypedef then begin
// read variable name
if not AtomIsIdentifier then
RaiseExpectedButAtomFound('identifier');
@ -431,11 +431,17 @@ begin
ReadNextAtom;
if AtomIs('typedef') then
RaiseExpectedButAtomFound('declaration')
else if AtomIs('struct') then
ReadStruct
else if AtomIs('enum') then
ReadEnum
else if SrcPos>SrcLen then
else if AtomIs('struct') then begin
ReadStruct;
ReadNextAtom;
if not AtomIsIdentifier then
RaiseExpectedButAtomFound('identifier');
end else if AtomIs('enum') then begin
ReadEnum;
ReadNextAtom;
if not AtomIsIdentifier then
RaiseExpectedButAtomFound('identifier');
end else if SrcPos>SrcLen then
RaiseException('missing declaration')
else
ReadVariable;