From f486de07af78f94ef495c9093c74a45053a04459 Mon Sep 17 00:00:00 2001
From: skalogryz <skalogryz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 28 Apr 2009 10:30:07 +0000
Subject: [PATCH] removed tt_None, fixed bug with improper macro handling

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@784 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 bindings/pascocoa/parser/ObjCParserTypes.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/bindings/pascocoa/parser/ObjCParserTypes.pas b/bindings/pascocoa/parser/ObjCParserTypes.pas
index 0faed67f1..e95b8d5da 100755
--- a/bindings/pascocoa/parser/ObjCParserTypes.pas
+++ b/bindings/pascocoa/parser/ObjCParserTypes.pas
@@ -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