paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-14 03:51:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

Use Windows TLS Callback by default

Browse Source 
git-svn-id: trunk@19151 -
This commit is contained in:
pierre 2011-09-19 18:39:31 +00:00
parent 6f20627220
commit 313daaa44a
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/options.pas
View File

@ -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}

4
compiler/systems.pas
View File

@ -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 }