fcl-passrc: fixed tests

git-svn-id: trunk@47513 -

packages/fcl-passrc/tests/tcresolvegenerics.pas

@@ -1932,7 +1932,7 @@ begin
   '  PRec = ^specialize TRec<word>;',
   'begin',
   '']);
-  CheckParserException('Expected "Identifier" at token "specialize" in file afile.pp at line 4 column 11',nParserExpectTokenError);
+  CheckParserException('Expected "Identifier or file"',nParserExpectTokenError);
 end;
 
 procedure TTestResolveGenerics.TestGen_HelperForArray;

packages/fcl-passrc/tests/tcresolver.pas

@@ -16489,7 +16489,7 @@ begin
   Add([
   'type p = ^(red, green);',
   'begin']);
-  CheckParserException('Expected "Identifier" at token "(" in file afile.pp at line 2 column 11',
+  CheckParserException('Expected "Identifier or file"',
     nParserExpectTokenError);
 end;
 

packages/pastojs/src/pas2jsfiler.pp

@@ -442,8 +442,7 @@ const
     'Static',
     'Varargs',
     'ReferenceTo',
-    'Async',
-    'Far'
+    'Async'
     );
 
   PCUProcedureMessageTypeNames: array[TProcedureMessageType] of string = (
@@ -485,8 +484,7 @@ const
     'LogicalXor',
     'RightShift',
     'Enumerator',
-    'In',
-    'Initialize'
+    'In'
     );
 
   PCUProcedureModifierNames: array[TProcedureModifier] of string = (