Преглед на файлове

Use Windows TLS Callback by default

git-svn-id: trunk@19151 -
pierre преди 14 години
родител
ревизия
313daaa44a
променени са 2 файла, в които са добавени 5 реда и са изтрити 5 реда
  1. 3 3
      compiler/options.pas
  2. 2 2
      compiler/systems.pas

+ 3 - 3
compiler/options.pas

@@ -2875,11 +2875,11 @@ if (target_info.system=system_arm_darwin) then
         def_system_macro('FPC_HAS_TYPE_EXTENDED');
 {$endif}
     end;
-    { Not ready yet }
-{$ifdef TEST_TLS_DIRECTORY}
+    { Enable now for testing }
+{$ifndef DISABLE_TLS_DIRECTORY}
     if target_info.system in systems_windows then
       def_system_macro('FPC_USE_TLS_DIRECTORY');
-{$endif TEST_TLS_DIRECTORY}
+{$endif not DISABLE_TLS_DIRECTORY}
 
 
 {$ifdef ARM}

+ 2 - 2
compiler/systems.pas

@@ -243,9 +243,9 @@ interface
        systems_allow_section = systems_embedded;
 
        systems_allow_section_no_semicolon = systems_allow_section
-{$ifdef TEST_TLS_DIRECTORY}
+{$ifndef DISABLE_TLS_DIRECTORY}
        + systems_windows
-{$endif TEST_TLS_DIRECTORY}
+{$endif not DISABLE_TLS_DIRECTORY}
        ;
 
        { all symbian systems }