morphunits/amigalib: implemented HookEntry function

git-svn-id: trunk@30997 -

packages/morphunits/src/amigalib.pas

@@ -35,7 +35,7 @@ procedure DISPATCHERARG(var cl; var obj; var msg); assembler;
 
 implementation
 
-uses intuition;
+uses exec, intuition, utility;
 
 function DoMethodA(obj : longword; msg1 : Pointer): longword; assembler;
 asm
@@ -111,4 +111,15 @@ asm
   stw r6,(r5)   // msg
 end;
 
+type
+  THookSubEntryFunc = function(a, b, c: Pointer): longword;
+
+function HookEntry: longword;
+var
+  hook: PHook;
+begin
+  hook:=REG_A0;
+  HookEntry:=THookSubEntryFunc(hook^.h_SubEntry)(hook, REG_A2, REG_A1);
+end;
+
 end.