Browse Source

Fix missing FreeListItems call for FileLocationEntryExtraInfos :O Also include the 'packed' cleanup which was done on issigkeys branch instead of on main.

Martijn Laan 4 months ago
parent
commit
0d30d698af
1 changed files with 6 additions and 1 deletions
  1. 6 1
      Projects/Src/Compiler.SetupCompiler.pas

+ 6 - 1
Projects/Src/Compiler.SetupCompiler.pas

@@ -308,9 +308,13 @@ type
     Name, Command: String;
   end;
 
+const
+  FileLocationEntryExtraInfoStrings = 1;
+  FileLocationEntryExtraInfoAnsiStrings = 0;
+type
   TFileLocationSign = (fsNoSetting, fsYes, fsOnce, fsCheck);
   PFileLocationEntryExtraInfo = ^TFileLocationEntryExtraInfo;
-  TFileLocationEntryExtraInfo = packed record
+  TFileLocationEntryExtraInfo = record
     Flags: set of (floVersionInfoNotValid, floIsUninstExe, floApplyTouchDateTime,
       floSolidBreak);
     Sign: TFileLocationSign;
@@ -8039,6 +8043,7 @@ begin
     FreeListItems(RunEntries, SetupRunEntryStrings, SetupRunEntryAnsiStrings);
     FreeListItems(UninstallRunEntries, SetupRunEntryStrings, SetupRunEntryAnsiStrings);
     FileLocationEntryFilenames.Clear;
+    FreeListItems(FileLocationEntryExtraInfos, FileLocationEntryExtraInfoStrings, FileLocationEntryExtraInfoAnsiStrings);
     FreeLineInfoList(ExpectedCustomMessageNames);
     FreeLangData;
     FreePreLangData;