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

* load 64 bit constants through a register into memory to avoid store-forwarding stalls, resolves #40945

Browse Source
This commit is contained in:
florian 2024-10-12 21:19:14 +02:00
parent c83a047dda
commit 210cb8cb74
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/x86/cgx86.pas
View File

@ -955,6 +955,7 @@ unit cgx86;
procedure tcgx86.a_load_const_ref(list : TAsmList; tosize: tcgsize; a : tcgint;const ref : treference);
var
tmpref : treference;
tmpreg: TRegister;
begin
tmpref:=ref;
make_simple_ref(list,tmpref);
@ -963,9 +964,9 @@ unit cgx86;
if (tosize in [OS_S64,OS_64]) and
((a<low(longint)) or (a>high(longint))) then
begin
a_load_const_ref(list,OS_32,longint(a and $ffffffff),tmpref);
inc(tmpref.offset,4);
a_load_const_ref(list,OS_32,longint(a shr 32),tmpref);
tmpreg:=getintregister(list,tosize);
a_load_const_reg(list,tosize,a,tmpreg);
a_load_reg_ref(list,tosize,tosize,tmpreg,tmpref);
end
else
{$endif x86_64}