ea5b34bc0f
git-svn-id: http://code.remobjects.com/svn/pascalscript@138 5c9d2617-0215-0410-a2ee-e80e04d1c6d8
75 lines
2.1 KiB
PHP
75 lines
2.1 KiB
PHP
{----------------------------------------------------------------------------}
|
|
{ RemObjects Pascal Script }
|
|
{ }
|
|
{ compiler: Delphi 2 and up, Kylix 3 and up }
|
|
{ platform: Win32, Linux }
|
|
{ }
|
|
{ (c)opyright RemObjects Software. all rights reserved. }
|
|
{ }
|
|
{----------------------------------------------------------------------------}
|
|
|
|
|
|
{$INCLUDE eDefines.inc}
|
|
|
|
{$IFDEF FPC}{$MODE DELPHI}{$H+}{$ENDIF}
|
|
|
|
{$IFDEF VER125}{C4}{$B-}{$X+}{$T-}{$H+}{$ENDIF}
|
|
{$IFDEF VER110}{C3}{$B-}{$X+}{$T-}{$H+}{$ENDIF}
|
|
{$IFDEF VER93}{C1}{$B-}{$X+}{$T-}{$H+}{$ENDIF}
|
|
|
|
{$IFDEF DELPHI4UP}
|
|
{$DEFINE PS_HAVEVARIANT}
|
|
{$DEFINE PS_DYNARRAY}
|
|
{$ENDIF}
|
|
|
|
{$IFNDEF FPC}
|
|
{$B-}{$X+}{$T-}{$H+}
|
|
{$ELSE}
|
|
{$R-}{$Q-}
|
|
{$ENDIF}
|
|
|
|
{$IFNDEF FPC}
|
|
{$IFNDEF DELPHI4UP}
|
|
{$IFNDEF LINUX}
|
|
{$DEFINE PS_NOINT64}
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
|
|
{$IFDEF DELPHI2}
|
|
{$DEFINE PS_NOINT64}
|
|
{$DEFINE PS_NOWIDESTRING}
|
|
{$B-}{$X+}{$T-}{$H+}
|
|
{$ENDIF}
|
|
|
|
{$IFDEF LINUX}{KYLIX}{$DEFINE CLX}{$DEFINE DELPHI3UP}{$DEFINE DELPHI6UP}{$ENDIF}
|
|
{$ENDIF}
|
|
{$R-}{$Q-}
|
|
|
|
|
|
{
|
|
Defines:
|
|
IFPS3_NOSMARTLIST - Don't use the smart list option
|
|
}
|
|
|
|
{$UNDEF DEBUG}
|
|
|
|
{$IFDEF CLX}
|
|
{$DEFINE PS_NOIDISPATCH} // not implemented
|
|
{$ENDIF}
|
|
|
|
{$IFDEF FPC}
|
|
{$DEFINE PS_HAVEVARIANT}
|
|
{$DEFINE PS_DYNARRAY}
|
|
{$DEFINE PS_NOIDISPATCH}
|
|
{$if defined(fpc_version) and defined(fpc_patch) and defined(fpc_release) and (fpc_version=Integer(2)) and (fpc_release>=Integer(3)) and (fpc_patch>=Integer(1))}
|
|
{$UNDEF FPC_OLD_FIX}
|
|
{$UNDEF PS_FPCSTRINGWORKAROUND}
|
|
{FreePascal 2.3.1 and above has much Delphi compatibility bugs fixed}
|
|
{$else}
|
|
{$DEFINE FPC_OLD_FIX}
|
|
{$DEFINE PS_FPCSTRINGWORKAROUND}
|
|
{$ifend}
|
|
{$DEFINE DELPHI3UP}
|
|
{$DEFINE DELPHI6UP}
|
|
{$ENDIF}
|