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

* improved heurisics when thread var addresses or float constants are put in registers

Browse Source
This commit is contained in:
florian 2021-11-03 22:28:12 +01:00
parent 10d9918596
commit 2240c69078
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/optcse.pas
View File

@ -727,22 +727,28 @@ unit optcse;
createblock:=nil; createblock:=nil;
deleteblock:=nil; deleteblock:=nil;
rootblock:=nil; rootblock:=nil;
{ estimate how many registers can be used for constants } { estimate how many int registers can be used }
if pi_do_call in current_procinfo.flags then if pi_do_call in current_procinfo.flags then
max_int_regs_assigned:=length(paramanager.get_saved_registers_int(current_procinfo.procdef.proccalloption)) div 4 max_int_regs_assigned:=length(paramanager.get_saved_registers_int(current_procinfo.procdef.proccalloption))
{ we store only addresses, so take care of the relation between address sizes and register sizes }
div (sizeof(PtrUInt) div sizeof(ALUUInt))
{ heuristics, just use a quarter of all registers at maximum }
div 4
else else
max_int_regs_assigned:=max(first_int_imreg div 4,1); max_int_regs_assigned:=max(first_int_imreg div 4,1);
{$if defined(x86) or defined(aarch64) or defined(arm)} {$if defined(x86) or defined(aarch64) or defined(arm)}
{ x86, aarch64 and arm (neglecting fpa) use mm registers for floats } { x86, aarch64 and arm (neglecting fpa) use mm registers for floats }
if pi_do_call in current_procinfo.flags then if pi_do_call in current_procinfo.flags then
{ heuristics, just use a fifth of all registers at maximum }
max_fpu_regs_assigned:=length(paramanager.get_saved_registers_mm(current_procinfo.procdef.proccalloption)) div 5 max_fpu_regs_assigned:=length(paramanager.get_saved_registers_mm(current_procinfo.procdef.proccalloption)) div 5
else else
max_fpu_regs_assigned:=max(first_mm_imreg div 5,1); max_fpu_regs_assigned:=max(first_mm_imreg div 5,1);
{$else defined(x86) or defined(aarch64) or defined(arm)} {$else defined(x86) or defined(aarch64) or defined(arm)}
if pi_do_call in current_procinfo.flags then if pi_do_call in current_procinfo.flags then
max_fpu_regs_assigned:=length(paramanager.get_saved_registers_fpu(current_procinfo.procdef.proccalloption)) div 4 { heuristics, just use a fifth of all registers at maximum }
max_fpu_regs_assigned:=length(paramanager.get_saved_registers_fpu(current_procinfo.procdef.proccalloption)) div 5
else else
max_fpu_regs_assigned:=max(first_fpu_imreg div 4,1); max_fpu_regs_assigned:=max(first_fpu_imreg div 5,1);
{$endif defined(x86) or defined(aarch64) or defined(arm)} {$endif defined(x86) or defined(aarch64) or defined(arm)}
fpu_regs_assigned:=0; fpu_regs_assigned:=0;
int_regs_assigned:=0; int_regs_assigned:=0;