소스 검색

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;