paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 12:39:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ add utility function to check whether an objectdef is an invokable one

Browse Source
This commit is contained in:
Sven/Sarah Barth 2022-02-06 21:42:20 +01:00
parent f0748ad59b
commit 833a971877
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/defutil.pas
View File

@ -385,6 +385,9 @@ interface
{ returns true if def is a function reference }
function is_funcref(def:tdef):boolean;
{ returns true if def is an invokable interface }
function is_invokable(def:tdef):boolean;
{ returns true if def is a C "block" }
function is_block(def: tdef): boolean;
@ -1903,6 +1906,12 @@ implementation
end;
function is_invokable(def:tdef):boolean;
begin
result:=(def.typ=objectdef) and (oo_is_invokable in tobjectdef(def).objectoptions);
end;
function is_block(def: tdef): boolean;
begin
result:=(def.typ=procvardef) and (po_is_block in tprocvardef(def).procoptions)