paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 16:49:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

Amiga: Added DoMethod varargs version

Browse Source 
git-svn-id: trunk@32698 -
This commit is contained in:
marcus 2015-12-22 18:55:14 +00:00
parent 55a38bf895
commit fe87417345
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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