paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 21:09:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

amunits: actually, the DoMethodA() fix by Marcus added in r32699 is correct, and the old version was wrong. so remove remark about TODO, and leftovers of the old code.

Browse Source 
git-svn-id: trunk@32704 -
This commit is contained in:
Károly Balogh 2015-12-24 06:12:32 +00:00
parent c10272d879
commit 21352ca934
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -362,14 +362,9 @@ begin
end;
function DoMethodA(obj : pObject_; msg : APTR): ulong;
//var
// o : p_Object;
begin
if assigned(obj) then begin
//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);
DoMethodA := CallHookPkt(@THook(OCLASS(obj)^.cl_Dispatcher), obj, msg);
end else DoMethodA := 0;
end;