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

amunits: added DoSuperMethod into intuition, this matches other platforms

Browse Source 
git-svn-id: trunk@42760 -
This commit is contained in:
Károly Balogh 2019-08-22 09:04:33 +00:00
parent a1e66699d7
commit a7fb5c2c2f
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/amunits/src/coreunits/intuition.pas
View File

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