From 6f757f3a782cc5920a9d3a51378cc4605d534948 Mon Sep 17 00:00:00 2001
From: Niels <nielsie95>
Date: Wed, 7 Apr 2010 18:23:02 +0200
Subject: [PATCH] Changed calling convention to safecall, can anyone confirm
 that arrays in results work now?

---
 Units/MMLAddon/mmlpsthread.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Units/MMLAddon/mmlpsthread.pas b/Units/MMLAddon/mmlpsthread.pas
index ba4da3e..6c1e4ab 100644
--- a/Units/MMLAddon/mmlpsthread.pas
+++ b/Units/MMLAddon/mmlpsthread.pas
@@ -223,7 +223,7 @@ uses
 {$ifdef PS_StdCall}
   {$define extdecl := stdcall}
 {$else}
-  {$define extdecl := REGISTER}
+  {$define extdecl := safecall}
 {$endif}
 
 {Some General PS Functions here}
@@ -613,7 +613,7 @@ begin
   for i := 0 to high(ExportedMethods) do
     if ExportedMethods[i].FuncPtr <> nil then
       Sender.AddFunctionEx(ExportedMethods[i].FuncPtr,ExportedMethods[i].FuncDecl,
-                             {$ifdef PS_StdCall}cdStdCall{$else}cdRegister {$endif});
+                             {$ifdef PS_StdCall}cdStdCall{$else}cdSafeCall{$endif});
 end;
 
 function TPSThread.RequireFile(Sender: TObject;