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

dwarf-eh: don't emit header if there's no data to emit

Browse Source
This commit is contained in:
Jonas Maebe 2022-11-03 21:27:41 +01:00
parent 1b08b89b7b
commit c5cdfbd9c0
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/cfidwarf.pas
View File

@ -338,6 +338,8 @@ implementation
fdeofslabel, curpos: tasmlabel; fdeofslabel, curpos: tasmlabel;
tc : tai_const; tc : tai_const;
begin begin
if DwarfList.Empty then
exit;
CurrentLSDALabel:=nil; CurrentLSDALabel:=nil;
case datatype of case datatype of
dt_none: dt_none: