Componentes.Terceros.RemObj.../internal/6.0.43.801/1/Pascal Script for Delphi/Source/PascalScriptFPC.inc
2010-01-29 16:17:43 +00:00

16 lines
486 B
PHP

{$DEFINE PS_HAVEVARIANT}
{$DEFINE PS_DYNARRAY}
{$DEFINE PS_NOIDISPATCH}
{.$if (fpc_version=2) and (fpc_release>=3) and (fpc_patch>=1)}
{$if (fpc_version=2) and (fpc_release>=2) and (fpc_patch>=4)}
{$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}