paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 16:09:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* WebAssembly internal linker: refactor writing the name custom section - group

Browse Source 
generating subsection data with the actual writing of the subsection data
This commit is contained in:
Nikolay Nikolov 2024-09-21 09:42:12 +03:00
parent 1ea876b517
commit 508e0dd01c
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/ogwasm.pas
View File

@ -5163,16 +5163,18 @@ implementation
procedure WriteNameSection; procedure WriteNameSection;
begin begin
WriteName(FWasmNameSubsections[wnstModuleName],current_module.exefilename); WriteName(FWasmNameSubsections[wnstModuleName],current_module.exefilename);
WriteNameSubsection(wnstModuleName);
WriteNameMap(FFunctionNameMap,FWasmNameSubsections[wnstFunctionNames]); WriteNameMap(FFunctionNameMap,FWasmNameSubsections[wnstFunctionNames]);
WriteNameMap(FGlobalNameMap,FWasmNameSubsections[wnstGlobalNames]);
WriteNameMap(FDataNameMap,FWasmNameSubsections[wnstDataNames]);
WriteNameMap(FTagNameMap,FWasmNameSubsections[wnstTagNames]);
WriteNameSubsection(wnstModuleName);
WriteNameSubsection(wnstFunctionNames); WriteNameSubsection(wnstFunctionNames);
WriteNameMap(FGlobalNameMap,FWasmNameSubsections[wnstGlobalNames]);
WriteNameSubsection(wnstGlobalNames); WriteNameSubsection(wnstGlobalNames);
WriteNameMap(FDataNameMap,FWasmNameSubsections[wnstDataNames]);
WriteNameSubsection(wnstDataNames); WriteNameSubsection(wnstDataNames);
WriteNameMap(FTagNameMap,FWasmNameSubsections[wnstTagNames]);
WriteNameSubsection(wnstTagNames); WriteNameSubsection(wnstTagNames);
end; end;