ソースを参照

* the default packrecords setting changed to 1 on i8086 for Turbo Pascal 7
compatibility

git-svn-id: trunk@25718 -

nickysn 11 年 前
コミット
8fad859161
1 ファイル変更4 行追加0 行削除
  1. 4 0
      compiler/globals.pas

+ 4 - 0
compiler/globals.pas

@@ -397,7 +397,11 @@ interface
         setalloc : 0;
         setalloc : 0;
         packenum : 4;
         packenum : 4;
 
 
+{$ifdef i8086}
+        packrecords     : 1;
+{$else i8086}
         packrecords     : 0;
         packrecords     : 0;
+{$endif i8086}
         maxfpuregisters : 0;
         maxfpuregisters : 0;
 
 
 { Note: GENERIC_CPU is sued together with generic subdirectory to
 { Note: GENERIC_CPU is sued together with generic subdirectory to