Bladeren bron

Fix previous.

Martijn Laan 4 maanden geleden
bovenliggende
commit
c29e929667
1 gewijzigde bestanden met toevoegingen van 1 en 0 verwijderingen
  1. 1 0
      Projects/Src/Compiler.SetupCompiler.pas

+ 1 - 0
Projects/Src/Compiler.SetupCompiler.pas

@@ -4841,6 +4841,7 @@ type
         if NewFileLocationEntry = nil then begin
           NewFileLocationEntry := AllocMem(SizeOf(TSetupFileLocationEntry));
           New(NewFileLocationEntryExtraInfo);
+          FillChar(NewFileLocationEntryExtraInfo^, SizeOf(TFileLocationEntryExtraInfo), 0);
           SetupHeader.CompressMethod := CompressMethod;
           FileLocationEntries.Add(NewFileLocationEntry);
           FileLocationEntryExtraInfos.Add(NewFileLocationEntryExtraInfo);