浏览代码

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