paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 11:30:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* handle_calling_convention is only needed for a function reference used in a record/class/object when it's an anonymous one

Browse Source
This commit is contained in:
Sven/Sarah Barth 2022-09-16 14:32:25 +02:00
parent c43f671baa
commit d1d0afe337
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/pdecvar.pas
View File

@ -1861,9 +1861,9 @@ implementation
{ Add calling convention for procvar } { Add calling convention for procvar }
if ( if (
(hdef.typ=procvardef) and (hdef.typ=procvardef) or
(hdef.typesym=nil) is_funcref(hdef)
) or is_funcref(hdef) then ) and (hdef.typesym=nil) then
begin begin
if (hdef.typ=procvardef) and (po_is_function_ref in tprocvardef(hdef).procoptions) then if (hdef.typ=procvardef) and (po_is_function_ref in tprocvardef(hdef).procoptions) then
begin begin