From 2eb3f5f0b84f60daf562376b0bcf0dd12776aca1 Mon Sep 17 00:00:00 2001
From: Nikolay Nikolov <nickysn@gmail.com>
Date: Tue, 13 Jun 2023 12:10:54 +0300
Subject: [PATCH] + introduced implement_wasm_promising_wrapper

---
 compiler/symcreat.pas | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/compiler/symcreat.pas b/compiler/symcreat.pas
index 25b4756467..6d8d82f032 100644
--- a/compiler/symcreat.pas
+++ b/compiler/symcreat.pas
@@ -965,11 +965,10 @@ implementation
       exclude(pd.procoptions,po_external);
     end;
 
-  procedure implement_wasm_promising(pd: tcpuprocdef);
+  function implement_wasm_promising_wrapper(pd: tcpuprocdef):tprocdef;
     var
       str: ansistring;
       wrapper_name: ansistring;
-      new_wrapper_pd: tprocdef;
     begin
       wrapper_name:=pd.promising_wrapper_name;
 
@@ -992,7 +991,14 @@ implementation
       if str[Length(str)]=',' then
         delete(str,Length(str),1);
       str:=str+'); end;';
-      str_parse_method_impl(str,nil,false,new_wrapper_pd);
+      str_parse_method_impl(str,nil,false,result);
+    end;
+
+  procedure implement_wasm_promising(pd: tcpuprocdef);
+    var
+      new_wrapper_pd: tprocdef;
+    begin
+      new_wrapper_pd:=implement_wasm_promising_wrapper(pd);
       current_asmdata.asmlists[al_exports].Concat(tai_export_name.create(pd.promising_export_name,new_wrapper_pd.mangledname,ie_Func));
     end;
 {$endif wasm}