From d3cc97655125c9e8bfd6577c29ad61e3f4ed87f3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Tue, 11 Jul 2023 11:07:57 +0200
Subject: [PATCH] * Mark method for invoke helper

---
 compiler/pdecsub.pas | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/compiler/pdecsub.pas b/compiler/pdecsub.pas
index 03ddeee962..bde52f7c7e 100644
--- a/compiler/pdecsub.pas
+++ b/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