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

* WebAssembly debug info: make wasmtime happy by not emitting line info end

Browse Source 
sequences for procedures that lack any debug lines emitted previously
This commit is contained in:
Nikolay Nikolov 2024-09-15 11:15:11 +03:00
parent aba44452f3
commit beee98e246
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/dbgdwarf.pas
View File

@ -3533,6 +3533,7 @@ implementation
nolineinfolevel : Integer;
prevlabel,
currlabel : tasmlabel;
haslineinfo: Boolean = false;
begin
{$ifdef OMFOBJSUPPORT}
if ds_dwarf_omf_linnum in current_settings.debugswitches then
@ -3625,6 +3626,7 @@ implementation
{ line changed ? }
if (lastfileinfo.line<>currfileinfo.line) and ((currfileinfo.line<>0) or (nolineinfolevel>0)) then
begin
haslineinfo:=true;
{ set address }
current_asmdata.getlabel(currlabel, alt_dbgline);
list.insertbefore(tai_label.create(currlabel), hp);
@ -3722,10 +3724,15 @@ implementation
end;
{ end sequence }
asmline.concat(tai_const.Create_8bit(DW_LNS_extended_op));
asmline.concat(tai_const.Create_8bit(1));
asmline.concat(tai_const.Create_8bit(DW_LNE_end_sequence));
asmline.concat(tai_comment.Create(strpnew('###################')));
if haslineinfo or
{ WasmTime doesn't like it when we emit an end sequence without any previous lines }
not (target_info.system in systems_wasm) then
begin
asmline.concat(tai_const.Create_8bit(DW_LNS_extended_op));
asmline.concat(tai_const.Create_8bit(1));
asmline.concat(tai_const.Create_8bit(DW_LNE_end_sequence));
asmline.concat(tai_comment.Create(strpnew('###################')));
end;
end;