paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 01:06:02 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ogwasm.pas
View File

@ -1382,7 +1382,7 @@ implementation
var var
section_nr: Integer; 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 var
objsec: TWasmObjSection; objsec: TWasmObjSection;
begin begin
@ -1399,7 +1399,7 @@ implementation
end; end;
end; end;
procedure MaybeWriteDebugSection(const sn: string; st: TWasmCustomSectionType); procedure MaybeWriteDebugSection(const sn: string; st: TWasmCustomDebugSectionType);
var var
objsec: TWasmObjSection; objsec: TWasmObjSection;
begin begin

2
compiler/wasmbase.pas
View File

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