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

codetools: c pareser: implemented parsing __attribute__ after param list

Browse Source 
git-svn-id: trunk@15918 -
This commit is contained in:
mattias 2008-07-30 11:30:05 +00:00
parent cb341f3456
commit 889efdd935
2 changed files with 22 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
components/codetools/ccodeparsertool.pas
View File

@ -146,6 +146,7 @@ type
procedure ReadStruct;
procedure ReadUnion;
procedure ReadConstant;
procedure Read__attribute__;
procedure IncIfLevel(StartPos: integer);
@ -401,7 +402,7 @@ function TCCodeParserTool.DirectiveToken: boolean;
dec(BracketLevel);
end else if AtomIsCharOfSet('!+-*/><')
or AtomIs('!=') or AtomIs('==') or AtomIs('<=') or AtomIs('>=')
or AtomIs('&&') or AtomIs('||')
or AtomIs('&&') or AtomIs('||') or AtomIs('<<') or AtomIs('>>')
then begin
// valid operator
end else if IsIdentChar[Src[AtomStart]] then begin
@ -659,10 +660,7 @@ begin
// read front attributes
if AtomIs('__attribute__') then begin
ReadNextAtom;
if not AtomIsChar('(') then
RaiseExpectedButAtomFound('(');
ReadTilBracketClose(true);
Read__attribute__;
ReadNextAtom;
end;
if AtomIsChar('{') then begin
@ -687,10 +685,7 @@ begin
// read after attributes
ReadNextAtom;
if AtomIs('__attribute__') then begin
ReadNextAtom;
if not AtomIsChar('(') then
RaiseExpectedButAtomFound('(');
ReadTilBracketClose(true);
Read__attribute__;
end else begin
UndoReadNextAtom;
end;
@ -878,6 +873,14 @@ begin
EndChildNode;
end;
procedure TCCodeParserTool.Read__attribute__;
begin
ReadNextAtom;
if not AtomIsChar('(') then
RaiseExpectedButAtomFound('(');
ReadTilBracketClose(true);
end;
procedure TCCodeParserTool.IncIfLevel(StartPos: integer);
begin
inc(IfLevel);
@ -906,6 +909,7 @@ procedure TCCodeParserTool.ReadVariable(AsParameter: boolean);
}
bdaddr_t *strtoba(const char *str);
void av_log(void*, int level, const char *fmt, ...) __attribute__ ((__format__ (__printf__, 3, 4)));
*)
{
@ -934,6 +938,7 @@ begin
CreateChildNode(ccnVariable);
MainNode:=CurNode;
IsFunction:=false;
if AtomIs('const') then ReadNextAtom;
if AtomIs('struct') then begin
// for example: struct structname varname
ReadNextAtom;
@ -953,9 +958,8 @@ begin
RaiseExpectedButAtomFound('identifier');
end;
end;
if AtomIs('const') then ReadNextAtom;
// prefixes: signed, unsigned
// prefixes and/or names long, short
@ -1046,6 +1050,10 @@ begin
MainNode.Desc:=ccnFunction;
ReadParameterList;
ReadNextAtom;
if AtomIs('__attribute__') then begin
Read__attribute__;
ReadNextAtom;
end;
if (CurNode.Parent.Desc=ccnTypedef) then begin
if AtomIsChar('{') then
RaiseException('a typedef can not have a statement block');

3
components/codetools/examples/scanexamples/test.h
View File

@ -167,6 +167,9 @@ typedef unsigned short sa_family_t;
int hci_inquiry(int dev_id, int len, int num_rsp, const uint8_t *lap, inquiry_info **ii, long flags);
const char* (*item_name)(void* ctx);
const struct AVOption *option;
#if LIBAVUTIL_VERSION_INT < (50<<16)
void av_log(void*, int level, const char *fmt, ...) __attribute__ ((__format__ (__printf__, 3, 4)));
#ifdef __cplusplus
}