浏览代码

MIPS packed record are not working yet, so do not use them for TSEttings record

git-svn-id: trunk@21587 -
pierre 13 年之前
父节点
当前提交
a52699cf98
共有 1 个文件被更改,包括 2 次插入1 次删除
  1. 2 1
      compiler/globals.pas

+ 2 - 1
compiler/globals.pas

@@ -118,7 +118,8 @@ interface
 
 
     type
     type
        { this is written to ppus during token recording for generics so it must be packed }
        { this is written to ppus during token recording for generics so it must be packed }
-       tsettings = packed record
+       tsettings = {$ifndef MIPS} packed {$endif}
+                   record
          alignment       : talignmentinfo;
          alignment       : talignmentinfo;
          globalswitches  : tglobalswitches;
          globalswitches  : tglobalswitches;
          targetswitches  : ttargetswitches;
          targetswitches  : ttargetswitches;