From 144ee6d51d302376a19099ba98af595c143b80d6 Mon Sep 17 00:00:00 2001
From: Pierre Muller <pierre@freepascal.org>
Date: Sun, 30 Apr 2023 21:23:06 +0200
Subject: [PATCH] Add missing swaping in case of different endianess of stab
 entry inside TInternalAssembler.WriteStab

---
 compiler/assemble.pas | 1 +
 compiler/ogbase.pas   | 1 +
 2 files changed, 2 insertions(+)

diff --git a/compiler/assemble.pas b/compiler/assemble.pas
index 68533c2ffd..7ed7ff9d57 100644
--- a/compiler/assemble.pas
+++ b/compiler/assemble.pas
@@ -1628,6 +1628,7 @@ Implementation
               write a the value field with relocation }
             oldsec:=ObjData.CurrObjSec;
             ObjData.SetSection(ObjData.StabsSec);
+	    MaybeSwapStab(stab);
             ObjData.Writebytes(stab,sizeof(TObjStabEntry)-4);
             ObjData.Writereloc(stab.nvalue,4,relocsym,RELOC_ABSOLUTE32);
             ObjData.setsection(oldsec);
diff --git a/compiler/ogbase.pas b/compiler/ogbase.pas
index 07e2e407b5..065c3ea58c 100644
--- a/compiler/ogbase.pas
+++ b/compiler/ogbase.pas
@@ -757,6 +757,7 @@ interface
     function align_aword(v:aword;a:longword):aword;
     function align_qword(v:qword;a:longword):qword;
     function align_objsecofs(v:TObjSectionOfs;a:longword):TObjSectionOfs;
+    procedure MaybeSwapStab(var v:TObjStabEntry);
 
 implementation