* More dummy code to avoid removal of required labels

git-svn-id: trunk@17898 -

rtl/win32/system.pp

@@ -994,8 +994,11 @@ begin
   DispCallByIDProc:=@DoDispCallByIDError;
 {$ifdef FPC_USE_TLS_DIRECTORY}
   { This code is only here to force
-    incorporation of _tls_used record in executable
+    incorporation of needed labels for
+    _tls_used record in executable
     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;
 {$endif FPC_USE_TLS_DIRECTORY}
 end.

rtl/win64/system.pp

@@ -985,8 +985,11 @@ begin
   DispCallByIDProc:=@DoDispCallByIDError;
 {$ifdef FPC_USE_TLS_DIRECTORY}
   { This code is only here to force
-    incorporation of _tls_used record in executable
+    incorporation of needed labels for
+    _tls_used record in executable
     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;
 {$endif FPC_USE_TLS_DIRECTORY}
 end.