فهرست منبع

* tcpuprocdef.promising_export_name renamed promising_first_export_name

Nikolay Nikolov 2 سال پیش
والد
کامیت
9d893b5d0d
2فایلهای تغییر یافته به همراه3 افزوده شده و 3 حذف شده
  1. 1 1
      compiler/symcreat.pas
  2. 2 2
      compiler/wasm32/symcpu.pas

+ 1 - 1
compiler/symcreat.pas

@@ -1010,7 +1010,7 @@ implementation
       new_wrapper_pd: tprocdef;
     begin
       new_wrapper_pd:=implement_wasm_promising_wrapper(pd,false);
-      current_asmdata.asmlists[al_exports].Concat(tai_export_name.create(pd.promising_export_name,new_wrapper_pd.mangledname,ie_Func));
+      current_asmdata.asmlists[al_exports].Concat(tai_export_name.create(pd.promising_first_export_name,new_wrapper_pd.mangledname,ie_Func));
     end;
 {$endif wasm}
 

+ 2 - 2
compiler/wasm32/symcpu.pas

@@ -117,7 +117,7 @@ type
     { generated assembler code; used by WebAssembly backend so it can afterwards
       easily write out all methods grouped per class }
     exprasmlist  : TAsmList;
-    promising_export_name: string;
+    promising_first_export_name: string;
     destructor destroy; override;
     function create_functype: TWasmFuncType;
     function is_pushleftright: boolean; override;
@@ -396,7 +396,7 @@ implementation
       if (synthetickind<>tsk_none) and (synthetickind<>tsk_wasm_promising) then
         internalerror(2023061301);
       synthetickind:=tsk_wasm_promising;
-      promising_export_name:=aextname;
+      promising_first_export_name:=aextname;
     end;