fcl-passrc: less hints

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@45963 3ad0048d-3df7-0310-abae-a5850022a9f2

3 files changed, 14 insertions, 20 deletions

diff --git a/packages/fcl-passrc/src/fcl-passrc.inc b/packages/fcl-passrc/src/fcl-passrc.inc
index 94a7a47e0f..ba2c085e8f 100644
--- a/packages/fcl-passrc/src/fcl-passrc.inc
+++ b/packages/fcl-passrc/src/fcl-passrc.inc
@@ -4,8 +4,19 @@
 {$ifdef fpc}
   {$define UsePChar}
   {$define HasInt64}
+  {$define UsePChar}
+  {$define UseAnsiStrings}
+  {$define HasStreams}
+  {$IF FPC_FULLVERSION<30101}
+    {$define EmulateArrayInsert}
+  {$endif}
+  {$define HasFS}
 {$endif}
 
+{$IFDEF NODEJS}
+  {$define HasFS}
+{$ENDIF}
+
 {$IF FPC_FULLVERSION>30100}
   {$warn 6058 off} // cannot inline
 {$ENDIF}
diff --git a/packages/fcl-passrc/src/pastree.pp b/packages/fcl-passrc/src/pastree.pp
index 782854476f..6bd1e05efd 100644
--- a/packages/fcl-passrc/src/pastree.pp
+++ b/packages/fcl-passrc/src/pastree.pp
@@ -14,15 +14,13 @@
 
  **********************************************************************}
 
-{$mode objfpc}
-{$h+}
-
 unit PasTree;
 
+{$i fcl-passrc.inc}
+
 {$if defined(debugrefcount) or defined(VerbosePasTreeMem) or defined(VerbosePasResolver)}
   {$define EnablePasTreeGlobalRefCount}
 {$endif}
-{$inline on}
 
 interface
 
diff --git a/packages/fcl-passrc/src/pscanner.pp b/packages/fcl-passrc/src/pscanner.pp
index ae112e29af..560e8288c1 100644
--- a/packages/fcl-passrc/src/pscanner.pp
+++ b/packages/fcl-passrc/src/pscanner.pp
@@ -16,22 +16,7 @@
 
 unit PScanner;
 
-{$mode objfpc}
-{$h+}
-
-{$ifdef fpc}
-  {$define UsePChar}
-  {$define UseAnsiStrings}
-  {$define HasStreams}
-  {$IF FPC_FULLVERSION<30101}
-    {$define EmulateArrayInsert}
-  {$endif}
-  {$define HasFS}
-{$endif}
-
-{$IFDEF NODEJS}
-  {$define HasFS}
-{$ENDIF}
+{$i fcl-passrc.inc}
 
 interface