From 18c992471f601fb7d92ca0fd73c79ab363a6e1da Mon Sep 17 00:00:00 2001
From: carlokok <carlokok@5c9d2617-0215-0410-a2ee-e80e04d1c6d8>
Date: Wed, 13 Jan 2010 14:46:49 +0000
Subject: [PATCH] Fix  for string passing on x64/linux.

git-svn-id: http://code.remobjects.com/svn/pascalscript@202 5c9d2617-0215-0410-a2ee-e80e04d1c6d8
---
 Source/PascalScriptFPC.inc | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/Source/PascalScriptFPC.inc b/Source/PascalScriptFPC.inc
index 4bb1818..f73780a 100644
--- a/Source/PascalScriptFPC.inc
+++ b/Source/PascalScriptFPC.inc
@@ -7,6 +7,8 @@
     {$UNDEF FPC_OLD_FIX}
     {$DEFINE PS_STACKALIGN}
     {$UNDEF PS_FPCSTRINGWORKAROUND}
+    {$DEFINE PS_RESBEFOREPARAMETERS}
+    {$DEFINE x64_string_result_as_varparameter}
   {FreePascal 2.3.1 and above has much Delphi compatibility bugs fixed}
   {$else}
     {$DEFINE FPC_OLD_FIX}