paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 12:19:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

morphunits/amigalib: implemented HookEntry function

Browse Source 
git-svn-id: trunk@30997 -
This commit is contained in:
Károly Balogh 2015-06-06 23:41:30 +00:00
parent 222d64cdab
commit df146a5767
1 changed files with 12 additions and 1 deletions

13
packages/morphunits/src/amigalib.pas
View File

@ -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.