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

+ add function to check whether a def is an invokable function reference

Browse Source
This commit is contained in:
Sven/Sarah Barth 2021-07-23 12:01:09 +02:00
parent b28495a423
commit 122c6c92cb
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

@ -382,6 +382,9 @@ interface
{ returns true of def is a methodpointer } { returns true of def is a methodpointer }
function is_methodpointer(def : tdef) : boolean; function is_methodpointer(def : tdef) : boolean;
{ returns true if def is a function reference }
function is_funcref(def:tdef):boolean;
{ returns true if def is a C "block" } { returns true if def is a C "block" }
function is_block(def: tdef): boolean; function is_block(def: tdef): boolean;
@ -1894,6 +1897,12 @@ implementation
end; end;
function is_funcref(def:tdef):boolean;
begin
result:=(def.typ=objectdef) and (oo_is_funcref in tobjectdef(def).objectoptions);
end;
function is_block(def: tdef): boolean; function is_block(def: tdef): boolean;
begin begin
result:=(def.typ=procvardef) and (po_is_block in tprocvardef(def).procoptions) result:=(def.typ=procvardef) and (po_is_block in tprocvardef(def).procoptions)