Browse Source

fcl-res: fix missing field initialization in the coff writer, which in turn fixes fpcres randomly producing broken coff objects (rejected by GNU link)

Karoly Balogh 10 months ago
parent
commit
4cfe27bd3c
1 changed files with 1 additions and 0 deletions
  1. 1 0
      packages/fcl-res/src/coffwriter.pp

+ 1 - 0
packages/fcl-res/src/coffwriter.pp

@@ -434,6 +434,7 @@ begin
   st.SectionNumber:=1;
   st.SectionNumber:=1;
   st._type:=0;
   st._type:=0;
   st.StorageClass:=fSymStorageClass;
   st.StorageClass:=fSymStorageClass;
+  st.NumAuxSymbol:=0;
   if OppositeEndianess then
   if OppositeEndianess then
     begin
     begin
       st.Value:=SwapEndian(st.Value);
       st.Value:=SwapEndian(st.Value);