pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

chelper: c-blocks declarations are skipped if declared as variable or parameter of objc method

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1377 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2010-11-20 04:24:38 +00:00
parent 07d1f556a6
commit ef7c96d2da
5 changed files with 72 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/chelper/cparsertypes.pas
View File

@@ -252,6 +252,7 @@ const
nk_Ref = 1;
nk_Array = 2;
nk_Func = 3;
nk_Block = 4;
type
TNameKind = Integer;
@@ -1676,14 +1677,19 @@ begin
Parser.NextToken;
if Parser.Token='const' then Parser.NextToken; // skip const qualifier
end;
end else if (Parser.Token='^') then begin
prefix:=TNamePart.Create(nk_Block);
Parser.NextToken;
end else
prefix:=nil;
if Parser.Token='(' then begin
Parser.NextToken;
id:=ParseNamePart(Parser);
ConsumeToken(Parser, ')');
end else if (Parser.TokenType=tt_Ident) or (Parser.Token='^') then begin
end else if (Parser.TokenType=tt_Ident) then begin
id:=TNamePart.Create(nk_Ident);
id.id:=Parser.Token;
Parser.NextToken;