Explorar o código

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 hai 11 meses
pai
achega
8c665e3128
Modificáronse 1 ficheiros con 1 adicións e 0 borrados
  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);