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

removed tt_None, fixed bug with improper macro handling

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@784 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2009-04-28 10:30:07 +00:00
parent badefdd310
commit f486de07af
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
bindings/pascocoa/parser/ObjCParserTypes.pas
View File

@@ -25,7 +25,7 @@ const
Err_BadPrecompile = 'Bad precompile directive'; Err_BadPrecompile = 'Bad precompile directive';
type type
TTokenType = (tt_Ident, tt_Symbol, tt_None, tt_Numeric, tt_String); TTokenType = (tt_Ident, tt_Symbol, tt_Numeric, tt_String);
TCharSet = set of Char; TCharSet = set of Char;
@@ -1219,7 +1219,7 @@ begin
Insert(Repl, Buf, TokenPos); Insert(Repl, Buf, TokenPos);
Index := TokenPos; Index := TokenPos;
Result := false; Result := false;
TokenType := tt_None; TokenType := tt_Ident;
Token := ''; Token := '';
end; end;
end; end;
@@ -1227,7 +1227,7 @@ begin
end; {of while} end; {of while}
finally finally
if not Result if not Result
then TokenType := tt_None then TokenType := tt_Ident
else TokenPos := Index - length(Token); else TokenPos := Index - length(Token);
//todo: make an event or something //todo: make an event or something
if TokenType = tt_Numeric then if TokenType = tt_Numeric then