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

* also use avx copying for mod 4=0 memory blocks

Browse Source 
git-svn-id: trunk@47328 -
This commit is contained in:
florian 2020-11-05 22:13:58 +00:00
parent 51c3787342
commit 3ae370b190
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/x86/cgx86.pas
View File

@ -2782,10 +2782,10 @@ unit cgx86;
an i7-4770 an i7-4770
but using the xmm registers reduces register pressure (FK) } but using the xmm registers reduces register pressure (FK) }
if (FPUX86_HAS_AVXUNIT in fpu_capabilities[current_settings.fputype]) and if (FPUX86_HAS_AVXUNIT in fpu_capabilities[current_settings.fputype]) and
((len mod 8)=0) and (len<=48) {$ifndef i386}and (len<>8){$endif i386} then ((len mod 4)=0) and (len<=48) {$ifndef i386}and (len>=16){$endif i386} then
cm:=copy_avx cm:=copy_avx
else if (FPUX86_HAS_AVX512F in fpu_capabilities[current_settings.fputype]) and else if (FPUX86_HAS_AVX512F in fpu_capabilities[current_settings.fputype]) and
((len mod 8)=0) and (len<=128) {$ifndef i386}and (len<>8){$endif i386} then ((len mod 4)=0) and (len<=128) {$ifndef i386}and (len>=16){$endif i386} then
cm:=copy_avx512 cm:=copy_avx512
else else
{ I'am not sure what CPUs would benefit from using sse instructions for moves { I'am not sure what CPUs would benefit from using sse instructions for moves
@ -2996,6 +2996,15 @@ unit cgx86;
inc(dstref.offset,8); inc(dstref.offset,8);
dec(len,8); dec(len,8);
end; end;
if len>=4 then
begin
r0:=getintregister(list,OS_32);
a_load_ref_reg(list,OS_32,OS_32,srcref,r0);
a_load_reg_ref(hlist,OS_32,OS_32,r0,dstref);
inc(srcref.offset,4);
inc(dstref.offset,4);
dec(len,4);
end;
list.concatList(hlist); list.concatList(hlist);
hlist.free; hlist.free;
end end