moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-22 17:22:21 -05:00
Code Issues Releases Wiki Activity

Changed calling convention to safecall, can anyone confirm that arrays in results work now?

Browse Source
This commit is contained in:
Niels 2010-04-07 18:23:02 +02:00
parent f08e191344
commit 6f757f3a78
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Units/MMLAddon/mmlpsthread.pas
View File

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