2009-05-18 10:37:40 +02:00
|
|
|
|
|
|
|
{$DEFINE PS_HAVEVARIANT}
|
|
|
|
{$DEFINE PS_DYNARRAY}
|
|
|
|
{$DEFINE PS_NOIDISPATCH}
|
2009-05-28 07:45:38 +02:00
|
|
|
{.$if (fpc_version=2) and (fpc_release>=3) and (fpc_patch>=1)}
|
|
|
|
{$if (fpc_version=2) and (fpc_release>=2) and (fpc_patch>=4)}
|
2009-05-18 10:37:40 +02:00
|
|
|
{$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}
|