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

chelper: fix for long prefixed types parsing

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1273 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2010-08-11 06:07:30 +00:00
parent ab0048814a
commit 6eda53c6b7
1 changed files with 6 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
components/chelper/cparsertypes.pas
View File

@ -1499,17 +1499,13 @@ begin
simple:=TSimpleType.Create(Parser.TokenPos); simple:=TSimpleType.Create(Parser.TokenPos);
simple.Name:=Parser.Token; simple.Name:=Parser.Token;
isunsig:=(simple.Name='unsigned') or (simple.Name='signed');
islong:=(simple.Name='long');
Result:=simple; Result:=simple;
Parser.NextToken; Parser.NextToken;
isunsig:=(simple.Name='unsigned') or (simple.Name='signed'); if (Parser.Token='long') and islong then begin
islong:=Parser.Token='long';
if islong then begin
simple.name:=simple.name+' '+Parser.Token;
Parser.NextToken;
end;
if islong and (Parser.Token='long') then begin
simple.name:=simple.name+' '+Parser.Token; simple.name:=simple.name+' '+Parser.Token;
Parser.NextToken; Parser.NextToken;
end; end;
@ -1524,10 +1520,11 @@ begin
Parser.NextToken Parser.NextToken
end; end;
if (isunsig or islong) and (Parser.Token='int') then begin if (Parser.Token='int') and (isunsig or islong) then begin
simple.name:=simple.name+' '+Parser.Token; simple.name:=simple.name+' '+Parser.Token;
Parser.NextToken Parser.NextToken
end; end;
if islong and (Parser.Token='double') then begin if islong and (Parser.Token='double') then begin
simple.name:=simple.name+' '+Parser.Token; simple.name:=simple.name+' '+Parser.Token;
Parser.NextToken Parser.NextToken