From 450fd8784b2c00f5a415dc62ef41b767b08f99d3 Mon Sep 17 00:00:00 2001 From: pierre Date: Fri, 1 Jul 2011 19:22:12 +0000 Subject: [PATCH] * section specification method changed git-svn-id: trunk@17907 - --- rtl/win/syswin.inc | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/rtl/win/syswin.inc b/rtl/win/syswin.inc index a08ba6f502..cd50b1e99f 100644 --- a/rtl/win/syswin.inc +++ b/rtl/win/syswin.inc @@ -163,9 +163,9 @@ procedure Exec_Tls_callback(Handle : pointer; reason : Dword; Reserved : pointer const FreePascal_TLS_callback : pointer = @Exec_Tls_callback; - public name '.section .CRT$XLFPC __FPC_tls_callbacks'; + public name '__FPC_tls_callbacks' section '.CRT$XLFPC'; FreePascal_end_of_TLS_callback : pointer = nil; - public name '.section .CRT$XLZZZ __FPC_end_of_tls_callbacks'; + public name '__FPC_end_of_tls_callbacks' section '.CRT$XLZZZ'; var tls_callbacks : pointer; external name '___crt_xl_start__'; tls_data_start : pointer; external name '___tls_start__';