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

codetools: c parser: fixed variable name start-end pos

Browse Source 
git-svn-id: trunk@14519 -
This commit is contained in:
mattias 2008-03-14 12:28:29 +00:00
parent 0ab8d02996
commit e097dc36e5
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/codetools/ccodeparsertool.pas
View File

@ -600,8 +600,6 @@ begin
if AtomIs('const') then ReadNextAtom;
CreateChildNode(ccnVariableName);
// prefixes: signed, unsigned
// prefixes and/or names long, short
@ -625,13 +623,16 @@ begin
// read name
ReadNextAtom;
CreateChildNode(ccnVariableName);
if AtomIs('operator') then begin
IsFunction:=true;
// read operator
ReadNextAtom;
CurNode.StartPos:=AtomStart;
if not IsCCodeCustomOperator.DoItCaseSensitive(Src,AtomStart,SrcPos-AtomStart)
then
RaiseExpectedButAtomFound('operator');
CurNode.EndPos:=SrcPos;
end else if AtomIsChar('(') then begin
// example: int (*fp)(char*);
// pointer to function taking a char* argument; returns an int
@ -643,8 +644,10 @@ begin
{$IFDEF VerboseCCodeParser}
DebugLn(['TCCodeParserTool.ReadVariable name=',GetAtom]);
{$ENDIF}
CurNode.StartPos:=AtomStart;
if not AtomIsIdentifier then
RaiseExpectedButAtomFound('identifier');
CurNode.EndPos:=SrcPos;
ReadNextAtom;
if not AtomIsChar(')') then
RaiseExpectedButAtomFound(')');
@ -657,8 +660,10 @@ begin
{$IFDEF VerboseCCodeParser}
DebugLn(['TCCodeParserTool.ReadVariable name=',GetAtom]);
{$ENDIF}
CurNode.StartPos:=AtomStart;
if not AtomIsIdentifier then
RaiseExpectedButAtomFound('identifier');
CurNode.EndPos:=SrcPos;
end;
EndChildNode;