From 4cfe27bd3cb3d88560c8a9eb56f8ff88c6e3f04e Mon Sep 17 00:00:00 2001
From: Karoly Balogh <karoly@freepascal.org>
Date: Mon, 23 Sep 2024 01:07:38 +0200
Subject: [PATCH] fcl-res: fix missing field initialization in the coff writer,
 which in turn fixes fpcres randomly producing broken coff objects (rejected
 by GNU link)

---
 packages/fcl-res/src/coffwriter.pp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/packages/fcl-res/src/coffwriter.pp b/packages/fcl-res/src/coffwriter.pp
index 3546afdc4d..60c8094bf0 100644
--- a/packages/fcl-res/src/coffwriter.pp
+++ b/packages/fcl-res/src/coffwriter.pp
@@ -434,6 +434,7 @@ begin
   st.SectionNumber:=1;
   st._type:=0;
   st.StorageClass:=fSymStorageClass;
+  st.NumAuxSymbol:=0;
   if OppositeEndianess then
     begin
       st.Value:=SwapEndian(st.Value);