paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 06:49:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ introduced TWasmCustomDebugSectionType

Browse Source
This commit is contained in:
Nikolay Nikolov 2022-08-03 23:04:53 +03:00
parent cc260eb7b2
commit efd92fba01
2 changed files with 4 additions and 2 deletions

4
compiler/ogwasm.pas
View File

@ -1382,7 +1382,7 @@ implementation
var
section_nr: Integer;
procedure MaybeAddDebugSectionToSymbolTable(const sn: string; st: TWasmCustomSectionType; var debug_section_nr: Integer);
procedure MaybeAddDebugSectionToSymbolTable(const sn: string; st: TWasmCustomDebugSectionType; var debug_section_nr: Integer);
var
objsec: TWasmObjSection;
begin
@ -1399,7 +1399,7 @@ implementation
end;
end;
procedure MaybeWriteDebugSection(const sn: string; st: TWasmCustomSectionType);
procedure MaybeWriteDebugSection(const sn: string; st: TWasmCustomDebugSectionType);
var
objsec: TWasmObjSection;
begin

2
compiler/wasmbase.pas
View File

@ -69,6 +69,8 @@ type
wcstRelocDebugRanges,
wcstRelocDebugStr);
TWasmCustomDebugSectionType = wcstDebugFrame..wcstDebugStr;
const
WasmCustomSectionName: array [TWasmCustomSectionType] of string =
('linking',