Parcourir la source

* initialize boheader to avoid a warning

git-svn-id: trunk@35392 -
svenbarth il y a 8 ans
Parent
commit
7af52f81a7
1 fichiers modifiés avec 1 ajouts et 0 suppressions
  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;
         objdata:=CObjData.Create(InputFileName);
         result:=false;
+        boheader:=default(tcoffbigobjheader);
         FCoffSyms:=TDynamicArray.Create(SymbolMaxGrow);
         with TCoffObjData(objdata) do
          begin