Просмотр исходного кода

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

git-svn-id: trunk@13315 -
florian 16 лет назад
Родитель
Сommit
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;