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

* set the correct symtable level for the invoke procdef

Browse Source
This commit is contained in:
Sven/Sarah Barth 2022-05-29 13:55:57 +02:00
parent 60b0bc5535
commit dadc10658c
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/procdefutil.pas
View File

@ -317,6 +317,8 @@ implementation
invokedef.struct:=result; invokedef.struct:=result;
invokedef.visibility:=vis_public; invokedef.visibility:=vis_public;
invokedef.procsym:=cprocsym.create(method_name_funcref_invoke_decl); invokedef.procsym:=cprocsym.create(method_name_funcref_invoke_decl);
invokedef.parast.symtablelevel:=normal_function_level;
invokedef.localst.symtablelevel:=normal_function_level;
include(invokedef.procoptions,po_virtualmethod); include(invokedef.procoptions,po_virtualmethod);
exclude(invokedef.procoptions,po_staticmethod); exclude(invokedef.procoptions,po_staticmethod);
exclude(invokedef.procoptions,po_classmethod); exclude(invokedef.procoptions,po_classmethod);