Browse Source

Make sure ISSigAvailableKeys is fully initialized if an import fails so it doesn't try to free garbage later on. (Not that an import can really fail atm.)

Martijn Laan 4 tháng trước cách đây
mục cha
commit
4b954ee883
1 tập tin đã thay đổi với 2 bổ sung0 xóa
  1. 2 0
      Projects/Src/Setup.Install.pas

+ 2 - 0
Projects/Src/Setup.Install.pas

@@ -3169,6 +3169,8 @@ begin
       RegisterFilesList := TList.Create;
 
       SetLength(ISSigAvailableKeys, Entries[seISSigKey].Count);
+      for var N := 0 to Entries[seISSigKey].Count-1 do
+        ISSigAvailableKeys[N] := nil;
       for var N := 0 to Entries[seISSigKey].Count-1 do begin
         var ISSigKeyEntry := PSetupISSigKeyEntry(Entries[seISSigKey][N]);
         ISSigAvailableKeys[N] := TECDSAKey.Create;