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

* cs_hugeptr_normalization renamed to cs_hugeptr_arithmetic_normalization,
because we're going to also introduce cs_hugeptr_comparison_normalization as
an independent option

git-svn-id: trunk@28149 -

nickysn 11 лет назад
Родитель
Сommit
aee568e6fc
3 измененных файлов с 3 добавлено и 3 удалено
  1. 1 1
      compiler/globtype.pas
  2. 1 1
      compiler/i8086/n8086add.pas
  3. 1 1
      compiler/scandir.pas

+ 1 - 1
compiler/globtype.pas

@@ -146,7 +146,7 @@ interface
          cs_zerobasedstrings,
          cs_zerobasedstrings,
          { i8086 specific }
          { i8086 specific }
          cs_force_far_calls,
          cs_force_far_calls,
-         cs_hugeptr_normalization
+         cs_hugeptr_arithmetic_normalization
        );
        );
        tlocalswitches = set of tlocalswitch;
        tlocalswitches = set of tlocalswitch;
 
 

+ 1 - 1
compiler/i8086/n8086add.pas

@@ -334,7 +334,7 @@ interface
             internalerror(2014070301);
             internalerror(2014070301);
         end;
         end;
 
 
-        if cs_hugeptr_normalization in current_settings.localswitches then
+        if cs_hugeptr_arithmetic_normalization in current_settings.localswitches then
           procname:=procname+'_normalized';
           procname:=procname+'_normalized';
 
 
         if is_hugepointer(left.resultdef) then
         if is_hugepointer(left.resultdef) then

+ 1 - 1
compiler/scandir.pas

@@ -1579,7 +1579,7 @@ unit scandir;
             Message(scan_w_hugepointernormalization_not_support);
             Message(scan_w_hugepointernormalization_not_support);
             exit;
             exit;
           end;
           end;
-        do_localswitch(cs_hugeptr_normalization);
+        do_localswitch(cs_hugeptr_arithmetic_normalization);
       end;
       end;
 
 
     procedure dir_weakpackageunit;
     procedure dir_weakpackageunit;