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

chelper: improve const type qualifier parsing

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1275 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2010-08-12 09:18:28 +00:00
parent f285301da7
commit 5f20a3f950
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/chelper/cparsertypes.pas
View File

@@ -1612,12 +1612,16 @@ var
prefix : TNamePart; prefix : TNamePart;
id : TNamePart; id : TNamePart;
postfix : TNamePart; postfix : TNamePart;
// todo: store const them as part of the name
begin begin
if Parser.Token='const' then Parser.NextToken; // skip const qualifier
if Parser.Token='*' then begin if Parser.Token='*' then begin
prefix:=TNamePart.Create(nk_Ref); prefix:=TNamePart.Create(nk_Ref);
while Parser.Token='*' do begin while Parser.Token='*' do begin
inc(prefix.refcount); inc(prefix.refcount);
Parser.NextToken; Parser.NextToken;
if Parser.Token='const' then Parser.NextToken; // skip const qualifier
end; end;
end else end else
prefix:=nil; prefix:=nil;