Просмотр исходного кода

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

Sven/Sarah Barth 2 лет назад
Родитель
Сommit
d1d0afe337
1 измененных файлов с 3 добавлено и 3 удалено
  1. 3 3
      compiler/pdecvar.pas

+ 3 - 3
compiler/pdecvar.pas

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