Ami-extra: 64bit fix in muihelper for Dispatcher

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@35170 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 4 insertions, 4 deletions

diff --git a/packages/ami-extra/src/muihelper.pas b/packages/ami-extra/src/muihelper.pas
index 7faba0b1e9..be1addd991 100644
--- a/packages/ami-extra/src/muihelper.pas
+++ b/packages/ami-extra/src/muihelper.pas
@@ -30,8 +30,8 @@ uses
   exec, intuition, mui, amigados, utility;
 
 type
-  THookFunc = function(Hook: PHook; Obj: PObject_; Msg: Pointer): LongInt;
-  TDispatcherFunc = function(Hook: PIClass; Obj: PObject_; Msg: Intuition.PMsg): LongWord;
+  THookFunc = function(Hook: PHook; Obj: PObject_; Msg: Pointer): PtrInt;
+  TDispatcherFunc = function(Hook: PIClass; Obj: PObject_; Msg: Intuition.PMsg): PtrUInt;
 
 const
   MUI_TRUE  = 1;
@@ -342,12 +342,12 @@ end;
 
 {$if defined(CPU86) or defined(CPUARM) or defined(CPU64)}
 {$define SetHook}
-procedure HookEntry(h: PHook; obj: PObject_; Msg: Pointer); cdecl;
+function HookEntry(h: PHook; obj: PObject_; Msg: Pointer): PtrInt; cdecl;
 var
   Proc: THookFunc;
 begin
   Proc := THookFunc(h^.h_SubEntry);
-  Proc(h, obj, msg);
+  HookEntry := Proc(h, obj, msg);
 end;
 
 procedure MH_SetHook(var Hook: THook; Func: THookFunc; Data: Pointer);