15 lines
420 B
PHP
15 lines
420 B
PHP
|
|
||
|
|
{$DEFINE PS_HAVEVARIANT}
|
||
|
|
{$DEFINE PS_DYNARRAY}
|
||
|
|
{$DEFINE PS_NOIDISPATCH}
|
||
|
|
{$if (fpc_version=2) and (fpc_release>=3) and (fpc_patch>=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}
|