From 823a6d23d764dab85449f4ef091f34d4244dc146 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Thu, 23 May 2024 22:54:30 +0200
Subject: [PATCH]   * correct Dwarf-4 line info header as noted by Martin on
 the mailing list

(cherry picked from commit b313a66a47822b0648e25f49ee60ec1719d1443e)
---
 compiler/dbgdwarf.pas | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/compiler/dbgdwarf.pas b/compiler/dbgdwarf.pas
index f4465e33ae..313d9d229d 100644
--- a/compiler/dbgdwarf.pas
+++ b/compiler/dbgdwarf.pas
@@ -3293,6 +3293,10 @@ implementation
         { minimum_instruction_length }
         linelist.concat(tai_const.create_8bit(1));
 
+        { maximum ops per instruction }
+        if dwarf_version>=4 then
+          linelist.concat(tai_const.create_8bit(1));
+
         { default_is_stmt }
         linelist.concat(tai_const.create_8bit(1));
 
@@ -3387,8 +3391,6 @@ implementation
 
 
     procedure TDebugInfoDwarf.inserttypeinfo;
-
-
       var
         storefilepos  : tfileposinfo;
         lenstartlabel,arangestartlabel: tasmlabel;