paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 20:00:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-passrc: less hints

Browse Source 
git-svn-id: trunk@45963 -
This commit is contained in:
Mattias Gaertner 2020-07-29 21:52:37 +00:00
parent 4c99a82dbf
commit fc5a1d81c7
3 changed files with 14 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
packages/fcl-passrc/src/fcl-passrc.inc
View File

@ -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}

6
packages/fcl-passrc/src/pastree.pp
View File

@ -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

17
packages/fcl-passrc/src/pscanner.pp
View File

@ -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