paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 14:27:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Comment about mingw tlssup.c added

Browse Source 
git-svn-id: trunk@19349 -
This commit is contained in:
pierre 2011-10-03 22:03:02 +00:00
parent 82fc72ea8d
commit 7e87ca4c3c
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/win/syswin.inc
View File

@ -367,6 +367,15 @@ procedure Exec_Tls_callback(Handle : pointer; reason : Dword; Reserved : pointer
end;
end;
{ Mingw tlssup.c source code has
_CRTALLOC(".CRT$XLA") PIMAGE_TLS_CALLBACK __xl_a = 0;
_CRTALLOC(".CRT$XLZ") PIMAGE_TLS_CALLBACK __xl_z = 0;
and the callback pointer is set to:
(&__xl_a+1), (+1 meaning =+sizeof(pointer))
I am not sure this can be compatible with
}
const
FreePascal_TLS_callback : pointer = @Exec_Tls_callback;
public name '__FPC_tls_callbacks' section '.CRT$XLFPC';