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

* it must be decided in allocate_tls_register if a tls register is allocated

Browse Source 
git-svn-id: trunk@43131 -
This commit is contained in:
florian 2019-10-05 20:48:28 +00:00
parent c0372f80e0
commit 7ee889d4ec
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/psub.pas
View File

@ -1696,7 +1696,7 @@ implementation
{ allocate got register if needed } { allocate got register if needed }
allocate_got_register(aktproccode); allocate_got_register(aktproccode);
if pi_uses_threadvar in flags then { allocate got register if needed }
allocate_tls_register(aktproccode); allocate_tls_register(aktproccode);
{ Allocate space in temp/registers for parast and localst } { Allocate space in temp/registers for parast and localst }
@ -1854,7 +1854,6 @@ implementation
cg.g_maybe_tls_init(templist); cg.g_maybe_tls_init(templist);
aktproccode.insertlistafter(stackcheck_asmnode.currenttai,templist); aktproccode.insertlistafter(stackcheck_asmnode.currenttai,templist);
{ re-enable if more code at the end is ever generated here { re-enable if more code at the end is ever generated here
cg.set_regalloc_live_range_direction(rad_forward); cg.set_regalloc_live_range_direction(rad_forward);
} }