浏览代码

* make TSettings packed so ppus containing generics are compatible regardless which compiler generated them

git-svn-id: trunk@13315 -
florian 16 年之前
父节点
当前提交
121875a374
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/globals.pas

+ 1 - 1
compiler/globals.pas

@@ -104,7 +104,7 @@ interface
     type
        tcodepagestring = string[20];
 
-       tsettings = record
+       tsettings = packed record
          globalswitches  : tglobalswitches;
          moduleswitches  : tmoduleswitches;
          localswitches   : tlocalswitches;