amunits: added DoSuperMethod into intuition, this matches other platforms

git-svn-id: trunk@42760 -

packages/amunits/src/coreunits/intuition.pas

@@ -4233,6 +4233,7 @@ function CoerceMethodA(Cl: PIClass; Obj: PObject_; Msg: APTR): PtrUInt;
 function SetSuperAttrsA(Cl: PIClass; Obj: PObject_; Msg : APTR): PtrUInt;
 
 function DoMethod(Obj: PObject_; Params: array of PtrUInt): LongWord; inline;
+function DoSuperMethod(Cl: PIClass; Obj: PObject_; const Params: array of PtrUInt): PtrUInt; inline;
 
 IMPLEMENTATION
 
@@ -4444,6 +4445,11 @@ begin
     DoSuperMethodA := 0;
 end;
 
+function DoSuperMethod(Cl: PIClass; Obj: PObject_; const Params: array of PtrUInt): PTrUInt;
+begin
+  DoSuperMethod := DoSuperMethodA(Cl, Obj, @Params);
+end;
+
 function CoerceMethodA(Cl: PIClass; Obj: PObject_; Msg: APTR): PtrUInt;
 begin
   if Assigned(Cl) and Assigned(Obj) then