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

codetools: implemented parsing c const

Browse Source 
git-svn-id: trunk@14502 -
This commit is contained in:
mattias 2008-03-12 14:38:20 +00:00
parent 262ab9c76f
commit 02c06730c7
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/codetools/ccodeparsertool.pas
View File

@ -570,7 +570,7 @@ var
NeedEnd: Boolean;
LastIsName: Boolean;
begin
DebugLn(['TCCodeParserTool.ReadVariable ']);
DebugLn(['TCCodeParserTool.ReadVariable START ',GetAtom]);
CreateChildNode(ccnVariable);
IsFunction:=false;
if AtomIs('struct') then begin
@ -591,6 +591,9 @@ begin
RaiseExpectedButAtomFound('identifier');
end;
end;
if AtomIs('const') then ReadNextAtom;
CreateChildNode(ccnVariableName);
// prefixes: signed, unsigned
@ -627,8 +630,8 @@ begin
// example: int (*fp)(char*);
// pointer to function taking a char* argument; returns an int
ReadNextAtom;
while AtomIsChar('*') do begin
// pointer
while AtomIsChar('*') or AtomIs('const') do begin
// pointer or const
ReadNextAtom;
end;
DebugLn(['TCCodeParserTool.ReadVariable name=',GetAtom]);
@ -638,8 +641,8 @@ begin
if not AtomIsChar(')') then
RaiseExpectedButAtomFound(')');
end else begin
while AtomIsChar('*') do begin
// pointer
while AtomIsChar('*') or AtomIs('const') do begin
// pointer or const
ReadNextAtom;
end;