paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 18:29:09 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -35,7 +35,7 @@ procedure DISPATCHERARG(var cl; var obj; var msg); assembler;
implementation implementation
uses intuition; uses exec, intuition, utility;
function DoMethodA(obj : longword; msg1 : Pointer): longword; assembler; function DoMethodA(obj : longword; msg1 : Pointer): longword; assembler;
asm asm
@ -111,4 +111,15 @@ asm
stw r6,(r5) // msg stw r6,(r5) // msg
end; 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. end.