Fix for string passing on x64/linux.

git-svn-id: http://code.remobjects.com/svn/pascalscript@202 5c9d2617-0215-0410-a2ee-e80e04d1c6d8
This commit is contained in:
carlokok 2010-01-13 14:46:49 +00:00
parent 7e1cacc456
commit 18c992471f

View File

@ -7,6 +7,8 @@
{$UNDEF FPC_OLD_FIX} {$UNDEF FPC_OLD_FIX}
{$DEFINE PS_STACKALIGN} {$DEFINE PS_STACKALIGN}
{$UNDEF PS_FPCSTRINGWORKAROUND} {$UNDEF PS_FPCSTRINGWORKAROUND}
{$DEFINE PS_RESBEFOREPARAMETERS}
{$DEFINE x64_string_result_as_varparameter}
{FreePascal 2.3.1 and above has much Delphi compatibility bugs fixed} {FreePascal 2.3.1 and above has much Delphi compatibility bugs fixed}
{$else} {$else}
{$DEFINE FPC_OLD_FIX} {$DEFINE FPC_OLD_FIX}