pastojs: fixed compile

packages/fcl-passrc/src/pparser.pp

@@ -5169,7 +5169,7 @@ var
   NewRTTIVisibility: TPasMembersType.TRTTIVisibility;
   Visibility: TPasMembersType.TRTTIVisibilitySections;
 begin
-  if not (po_CheckRTTI in Options) then exit;
+  if not (po_CheckDirectiveRTTI in Options) then exit;
   Handled:=true;
   p:=1;
   l:=length(Param);

packages/fcl-passrc/src/pscanner.pp

@@ -732,7 +732,7 @@ type
     po_AsmPascalComments,    // Allow pascal comments/directives in asm blocks
     po_AllowMem,             // Allow use of meml, mem, memw arrays
     po_WarnResourceNotFound, // Do not raise error if resource not found.
-    po_CheckRTTI             // parse $RTTI directive and error on invalid
+    po_CheckDirectiveRTTI    // parse $RTTI directive and error on invalid
     );
   TPOptions = set of TPOption;
 

packages/fcl-passrc/tests/tcclasstype.pas

@@ -555,7 +555,7 @@ procedure TTestClassType.TestDirectiveRTTI(Param: string; ExpectedExplicit: bool
   end;
 
 begin
-  Parser.Options:=Parser.Options+[po_CheckRTTI];
+  Parser.Options:=Parser.Options+[po_CheckDirectiveRTTI];
   Add('{$RTTI '+Param+'}');
   FStarted:=True;
   FDecl.add('TMyClass = Class');

packages/pastojs/src/pas2jsfiler.pp

@@ -155,7 +155,8 @@ const
     'DisableResources',
     'po_AsmPascalComments',
     'AllowMem',
-    'WarnResourceNotFound');
+    'WarnResourceNotFound',
+    'CheckDirectiveRTTI');
 
   PCUDefaultModeSwitches: TModeSwitches = [
     msObjfpc,