paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-08 10:39:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

Amiga: DoMethodA repaired (crashed always)

Browse Source 
git-svn-id: trunk@32699 -
This commit is contained in:
marcus 2015-12-22 20:27:53 +00:00
parent fe87417345
commit 26e19330f5
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/amunits/src/coreunits/amigalib.pas
View File

@ -362,12 +362,14 @@ begin
end;
function DoMethodA(obj : pObject_; msg : APTR): ulong;
var
o : p_Object;
//var
// o : p_Object;
begin
if assigned(obj) then begin
o := p_Object(obj);
DoMethodA := CallHookPkt(@o^.o_Class^.cl_Dispatcher, obj,msg);
//o := p_Object(obj);
DoMethodA := CallHookPkt(PHook(OCLASS(obj)), obj, msg);
//TODO: Investigate why this call crashes and the other work, both do the same in principle
//DoMethodA := CallHookPkt(@o^.o_Class^.cl_Dispatcher, obj,msg);
end else DoMethodA := 0;
end;