2010-01-25 08:59:44 -05:00
|
|
|
|
|
|
|
|
{$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)) or (fpc_release>2)}
|
|
|
|
|
{$UNDEF FPC_OLD_FIX}
|
|
|
|
|
{$DEFINE PS_STACKALIGN}
|
|
|
|
|
{$UNDEF PS_FPCSTRINGWORKAROUND}
|
|
|
|
|
{$DEFINE PS_RESBEFOREPARAMETERS}
|
2010-04-07 18:40:28 -04:00
|
|
|
{$DEFINE x64_string_result_as_varparameter}
|
2010-01-25 08:59:44 -05:00
|
|
|
{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}
|
