a47fb1ac94
git-svn-id: http://code.remobjects.com/svn/pascalscript@209 5c9d2617-0215-0410-a2ee-e80e04d1c6d8
20 lines
633 B
PHP
20 lines
633 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)) or (fpc_release>2)}
|
|
{$UNDEF FPC_OLD_FIX}
|
|
{$DEFINE PS_STACKALIGN}
|
|
{$UNDEF PS_FPCSTRINGWORKAROUND}
|
|
{$DEFINE PS_RESBEFOREPARAMETERS}
|
|
{$DEFINE x64_string_result_as_varparameter}
|
|
{$DEFINE PS_RESULTFIRST}
|
|
{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}
|