Explorar o código

* Mark method for invoke helper

Michaël Van Canneyt %!s(int64=2) %!d(string=hai) anos
pai
achega
d3cc976551
Modificáronse 1 ficheiros con 8 adicións e 0 borrados
  1. 8 0
      compiler/pdecsub.pas

+ 8 - 0
compiler/pdecsub.pas

@@ -1291,6 +1291,14 @@ implementation
         if insertst.currentlyoptional then
           include(pd.procoptions,po_optional);
 
+        { when extended rtti appears, then we must adapt this check}
+        if  (target_cpu=tsystemcpu.cpu_wasm32) and
+             assigned(astruct) and
+            (astruct.typ=objectdef) and
+            (tobjectdef(astruct).objecttype in [odt_interfacecom,odt_interfacecorba]) and
+            (pd.visibility=vis_published)  then
+          pd.synthetickind:=tsk_invoke_helper;
+
         { parse parameters }
         if token=_LKLAMMER then
           begin