paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki 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
Show Stats 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';
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;
@ -1219,7 +1219,7 @@ begin
Insert(Repl, Buf, TokenPos);
Index := TokenPos;
Result := false;
TokenType := tt_None;
TokenType := tt_Ident;
Token := '';
end;
end;
@ -1227,7 +1227,7 @@ begin
end; {of while}
finally
if not Result
then TokenType := tt_None
then TokenType := tt_Ident
else TokenPos := Index - length(Token);
//todo: make an event or something
if TokenType = tt_Numeric then