paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 14:19:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ add utility function to retrieve the invoke procdef of a function reference interface

Browse Source
This commit is contained in:
Sven/Sarah Barth 2022-01-18 23:10:35 +01:00
parent 833a971877
commit 22bbcf4b27
1 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
compiler/defutil.pas
View File

@ -394,10 +394,14 @@ interface
{ returns the TTypeKind value of the def }
function get_typekind(def: tdef): byte;
{ returns the Invoke procdef of a function reference interface }
function get_invoke_procdef(def:tobjectdef):tprocdef;
implementation
uses
verbose,cutils,
symsym,
cpuinfo;
{ returns true, if def uses FPU }
@ -2016,4 +2020,27 @@ implementation
end;
end;
function get_invoke_procdef(def:tobjectdef):tprocdef;
var
sym : tsym;
begin
repeat
if not is_invokable(def) then
internalerror(2022011701);
sym:=tsym(def.symtable.find(method_name_funcref_invoke_find));
if assigned(sym) and (sym.typ<>procsym) then
sym:=nil;
def:=def.childof;
until assigned(sym) or not assigned(def);
if not assigned(sym) then
internalerror(2021041001);
if sym.typ<>procsym then
internalerror(2021041002);
if tprocsym(sym).procdeflist.count=0 then
internalerror(2021041003);
result:=tprocdef(tprocsym(sym).procdeflist[0]);
end;
end.