* tls_index must be renamed everywhere, forgotten part of r17943.

git-svn-id: trunk@17948 -

rtl/win32/system.pp

@@ -999,7 +999,7 @@ begin
     when smartlinking is on }
   _tls_used.Index_pointer:=@FreePascal_TLS_callback;
   _tls_used.Index_pointer:=@FreePascal_end_of_TLS_callback;
-  _tls_used.Index_pointer:=@tls_index;
+  _tls_used.Index_pointer:=@_tls_index;
 {$endif FPC_USE_TLS_DIRECTORY}
 end.
 

rtl/win64/system.pp

@@ -990,6 +990,6 @@ begin
     when smartlinking is on }
   _tls_used.Index_pointer:=@FreePascal_TLS_callback;
   _tls_used.Index_pointer:=@FreePascal_end_of_TLS_callback;
-  _tls_used.Index_pointer:=@tls_index;
+  _tls_used.Index_pointer:=@_tls_index;
 {$endif FPC_USE_TLS_DIRECTORY}
 end.