Explorar o código

Fix previous.

Martijn Laan hai 4 meses
pai
achega
c29e929667
Modificáronse 1 ficheiros con 1 adicións e 0 borrados
  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);