Przeglądaj źródła

* WebAssembly internal linker: only generate the tag name subsection if there
are any tags in the module

Nikolay Nikolov 10 miesięcy temu
rodzic
commit
130d1e9d40
1 zmienionych plików z 5 dodań i 2 usunięć
  1. 5 2
      compiler/ogwasm.pas

+ 5 - 2
compiler/ogwasm.pas

@@ -5174,8 +5174,11 @@ implementation
           WriteNameMap(FDataNameMap,FWasmNameSubsections[wnstDataNames]);
           WriteNameSubsection(wnstDataNames);
 
-          WriteNameMap(FTagNameMap,FWasmNameSubsections[wnstTagNames]);
-          WriteNameSubsection(wnstTagNames);
+          if Length(FTagNameMap)>0 then
+            begin
+              WriteNameMap(FTagNameMap,FWasmNameSubsections[wnstTagNames]);
+              WriteNameSubsection(wnstTagNames);
+            end;
         end;
 
       var