Browse Source

* the memory model const sets introduced in r24812 moved to i8086/cpuinfo.pas

git-svn-id: trunk@24816 -
nickysn 12 years ago
parent
commit
a9c949e551
2 changed files with 5 additions and 5 deletions
  1. 0 5
      compiler/globtype.pas
  2. 5 0
      compiler/i8086/cpuinfo.pas

+ 0 - 5
compiler/globtype.pas

@@ -671,11 +671,6 @@ interface
 
     type
       tx86memorymodel = (mm_tiny,mm_small,mm_medium,mm_compact,mm_large,mm_huge);
-    const
-      x86_near_code_models = [mm_tiny,mm_small,mm_compact];
-      x86_far_code_models = [mm_medium,mm_large,mm_huge];
-      x86_near_data_models = [mm_tiny,mm_small,mm_medium];
-      x86_far_data_models = [mm_compact,mm_large,mm_huge];
 
   { hide Sysutils.ExecuteProcess in units using this one after SysUtils}
   const

+ 5 - 0
compiler/i8086/cpuinfo.pas

@@ -125,6 +125,11 @@ Const
    level3optimizerswitches = genericlevel3optimizerswitches + level2optimizerswitches + [{,cs_opt_loopunroll}];
    level4optimizerswitches = genericlevel4optimizerswitches + level3optimizerswitches + [cs_useebp];
 
+   x86_near_code_models = [mm_tiny,mm_small,mm_compact];
+   x86_far_code_models = [mm_medium,mm_large,mm_huge];
+   x86_near_data_models = [mm_tiny,mm_small,mm_medium];
+   x86_far_data_models = [mm_compact,mm_large,mm_huge];
+
 Implementation
 
 end.