浏览代码

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 月之前
父节点
当前提交
4b954ee883
共有 1 个文件被更改,包括 2 次插入0 次删除
  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;