* Skip unknown tokens when skipping due to conditional compiling

git-svn-id: trunk@11056 -

packages/fcl-passrc/src/pscanner.pp

@@ -1071,8 +1071,11 @@ begin
 
         Result := tkIdentifier;
       end;
-  else
-    Error(SErrInvalidCharacter, [TokenStr[0]]);
+  else 
+    if PPIsSkipping then
+      Inc(TokenStr)
+    else  
+      Error(SErrInvalidCharacter, [TokenStr[0]]);
   end;
 
   FCurToken := Result;