Sfoglia il codice sorgente

* initialize boheader to avoid a warning

git-svn-id: trunk@35392 -
svenbarth 8 anni fa
parent
commit
7af52f81a7
1 ha cambiato i file con 1 aggiunte e 0 eliminazioni
  1. 1 0
      compiler/ogcoff.pas

+ 1 - 0
compiler/ogcoff.pas

@@ -1989,6 +1989,7 @@ const pemagic : array[0..3] of byte = (
         InputFileName:=AReader.FileName;
         InputFileName:=AReader.FileName;
         objdata:=CObjData.Create(InputFileName);
         objdata:=CObjData.Create(InputFileName);
         result:=false;
         result:=false;
+        boheader:=default(tcoffbigobjheader);
         FCoffSyms:=TDynamicArray.Create(SymbolMaxGrow);
         FCoffSyms:=TDynamicArray.Create(SymbolMaxGrow);
         with TCoffObjData(objdata) do
         with TCoffObjData(objdata) do
          begin
          begin