فهرست منبع

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;