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