paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 01:30:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed local var dwarf debug info output for WebAssembly

Browse Source 
git-svn-id: branches/wasm@48448 -
This commit is contained in:
nickysn 2021-01-28 17:15:14 +00:00
parent fa30ae7d97
commit af12279bed
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/dbgdwarf.pas
View File

@ -1058,12 +1058,14 @@ implementation
function TDebugInfoDwarf.is_fbreg(reg: tregister): boolean;
begin
{$ifdef i8086}
{$if defined(i8086)}
result:=reg=NR_BP;
{$else i8086}
{$elseif defined(wasm)}
result:=reg=NR_LOCAL_FRAME_POINTER_REG;
{$else}
{ always return false, because we don't emit DW_AT_frame_base attributes yet }
result:=false;
{$endif i8086}
{$endif}
end;
function TDebugInfoDwarf.def_dwarf_lab(def: tdef): tasmsymbol;