2
0
Эх сурвалжийг харах

--- Merging r32699 into '.':
U packages/amunits/src/coreunits/amigalib.pas
--- Recording mergeinfo for merge of r32699 into '.':
U .

# revisions: 32699

git-svn-id: branches/fixes_3_0@35300 -

marco 8 жил өмнө
parent
commit
f48a7eed90

+ 6 - 4
packages/amunits/src/coreunits/amigalib.pas

@@ -360,12 +360,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;