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

* more aggressive cse on thread vars

Browse Source
This commit is contained in:
florian 2025-03-29 22:31:13 +01:00
parent ce6db34224
commit 84a852bc13
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/optcse.pas
View File

@ -48,6 +48,7 @@ unit optcse;
uses
globtype,globals,
systems,
cutils,cclasses,
nutils,compinnr,
nbas,nld,ninl,ncal,nadd,nmem,ncnv,
@ -645,7 +646,13 @@ unit optcse;
end;
end;
if found then
inc(consts^[i].weight)
begin
inc(consts^[i].weight);
{ non-sectioned threadvars really hurt so do more aggressive cse on them }
if not(tf_section_threadvars in target_info.flags) and (n.nodetype=loadn) and (tloadnode(n).symtableentry.typ=staticvarsym) and (vo_is_thread_var in tstaticvarsym(tloadnode(n).symtableentry).varoptions) then
inc(consts^[i].weight);
end
else
begin
SetLength(consts^,length(consts^)+1);