Amiga: Added DoMethod varargs version

git-svn-id: trunk@32698 -

packages/amunits/src/coreunits/amigalib.pas

@@ -100,6 +100,8 @@ function DoSuperMethodA(cl : pIClass; obj : pObject_; msg : APTR): ulong;
 function CoerceMethodA(cl : pIClass; obj : pObject_; msg : APTR): ulong;
 function SetSuperAttrsA(cl : pIClass; obj: pObject_; msg : APTR): ulong;
 
+function DoMethod(obj: PObject_; Params: array of DWord): LongWord; inline;
+
 procedure HookEntry;
 
 {
@@ -369,6 +371,11 @@ begin
     end else DoMethodA := 0;
 end;
 
+function DoMethod(obj: PObject_; Params: array of DWord): LongWord;
+begin
+  DoMethod := DoMethodA(obj, @Params);
+end;
+
 function DoSuperMethodA(cl : pIClass; obj : pObject_; msg : APTR): ulong;
 begin
     if assigned(obj) and assigned(cl) then