From 508e0dd01cf2d4a7511449e4e84eb5febdffb847 Mon Sep 17 00:00:00 2001
From: Nikolay Nikolov <nickysn@gmail.com>
Date: Sat, 21 Sep 2024 09:42:12 +0300
Subject: [PATCH] * WebAssembly internal linker: refactor writing the name
 custom section - group   generating subsection data with the actual writing
 of the subsection data

---
 compiler/ogwasm.pas | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/compiler/ogwasm.pas b/compiler/ogwasm.pas
index 9ed3452122..c674cd78d8 100644
--- a/compiler/ogwasm.pas
+++ b/compiler/ogwasm.pas
@@ -5163,16 +5163,18 @@ implementation
       procedure WriteNameSection;
         begin
           WriteName(FWasmNameSubsections[wnstModuleName],current_module.exefilename);
+          WriteNameSubsection(wnstModuleName);
 
           WriteNameMap(FFunctionNameMap,FWasmNameSubsections[wnstFunctionNames]);
-          WriteNameMap(FGlobalNameMap,FWasmNameSubsections[wnstGlobalNames]);
-          WriteNameMap(FDataNameMap,FWasmNameSubsections[wnstDataNames]);
-          WriteNameMap(FTagNameMap,FWasmNameSubsections[wnstTagNames]);
-
-          WriteNameSubsection(wnstModuleName);
           WriteNameSubsection(wnstFunctionNames);
+
+          WriteNameMap(FGlobalNameMap,FWasmNameSubsections[wnstGlobalNames]);
           WriteNameSubsection(wnstGlobalNames);
+
+          WriteNameMap(FDataNameMap,FWasmNameSubsections[wnstDataNames]);
           WriteNameSubsection(wnstDataNames);
+
+          WriteNameMap(FTagNameMap,FWasmNameSubsections[wnstTagNames]);
           WriteNameSubsection(wnstTagNames);
         end;