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 11 tháng trước cách đây
mục cha
commit
8c665e3128
1 tập tin đã thay đổi với 1 bổ sung0 xóa
  1. 1 0
      packages/fcl-res/src/coffwriter.pp

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

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