+ fixed endless loop for last preprocessor directive, noted by Josef Ryan.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@676 8e941d3f-bd1b-0410-a28a-d453659cc2b4

bindings/pascocoa/parser/ObjCParserTypes.pas

@@ -956,7 +956,8 @@ begin
     if s = '#define' then df := TCPrepDefine.Create(nil)
     else if s = '#include' then df := TCPrepInclude.Create(nil)
     else if s = '#else' then df := TCPrepInclude.Create(nil)
-    else if s = '#endif' then df := TCPrepEndif.Create(nil)
+    else if s = '#endif' then
+      df := TCPrepEndif.Create(nil)
     else if (s = '#if') or (s = '#elif') or (s = '#ifdef') or (s = '#ifndef') then df := TCPrepIf.Create(nil)
     else if s = '#pragma' then df := TCPrepPragma.Create(nil)
     else df := nil;
@@ -1773,7 +1774,6 @@ var
 begin
   Result := false;
   if not AParser.FindNextToken(_Directive, tt) then begin
-    AParser.Index := AParser.TokenPos;
     AParser.SetError('precompiler directive not found');
     Exit;
   end;

bindings/pascocoa/parser/objcparser.pas

@@ -161,6 +161,8 @@ begin
   try
     parser.Buf := s;
     try
+      parser.UsePrecompileEntities := false;
+      parser.UseCommentEntities := false;
       parser.OnPrecompile := prec.OnPrecompile;
       parser.OnComment := prec.OnComment;
       parser.IgnoreTokens.AddStrings(ConvertSettings.IgnoreTokens);