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

+ store pic references in registers if possible

Browse Source
This commit is contained in:
florian 2024-05-06 22:46:21 +02:00
parent d6cf3c98d0
commit 70d2f81e5e
1 changed files with 2 additions and 1 deletions

3
compiler/optcse.pas
View File

@ -606,7 +606,8 @@ unit optcse;
function CSEOnReference(n : tnode) : Boolean;
begin
Result:=(n.nodetype=loadn) and (tloadnode(n).symtableentry.typ=staticvarsym)
and ((vo_is_thread_var in tstaticvarsym(tloadnode(n).symtableentry).varoptions)
and ((vo_is_thread_var in tstaticvarsym(tloadnode(n).symtableentry).varoptions) or
(cs_create_pic in current_settings.moduleswitches)
{$if defined(aarch64)}
or (not(tabstractvarsym(tloadnode(n).symtableentry).is_regvar(false)))
{$endif defined(aarch64)}