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

Supposedly better fastmove.inc.

Browse Source
This commit is contained in:
Rika Ichinose 2023-12-05 00:00:16 +03:00 committed by FPK
parent a462acdb19
commit 0750777fc8
3 changed files with 544 additions and 918 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1412
rtl/i386/fastmove.inc
View File

File diff suppressed because it is too large Load Diff

46
rtl/i386/i386.inc
View File

@ -25,6 +25,8 @@ var
os_supports_sse : boolean;
{ this variable is set to true, if currently an sse check is executed and no sig ill should be generated }
sse_check : boolean;
fast_large_repmovstosb : boolean; { Enhanced REP MOVSB and STOSB (ERMSB) feature @ CPUID(7).ebx[9]. }
fpc_cpucodeinit_performed : boolean; { Code before fpc_cpucodeinit can call certain dispatched functions, such as Move. }
{$asmmode ATT}
@ -47,15 +49,6 @@ function cpuid_support : boolean;assembler;nostackframe;
setnz %al
end;
{$ifndef FPC_PIC}
{$ifndef FPC_SYSTEM_HAS_MOVE}
{$ifndef OLD_ASSEMBLER}
{$define USE_FASTMOVE}
{$i fastmove.inc}
{$endif not OLD_ASSEMBLER}
{$endif FPC_SYSTEM_HAS_MOVE}
{$endif FPC_PIC}
{$define FPC_SYSTEM_HAS_FPC_CPUINIT}
procedure fpc_cpuinit;
begin
@ -63,7 +56,6 @@ procedure fpc_cpuinit;
must be implemented OS dependend (FK)
has_sse_support:=sse_support;
has_mmx_support:=mmx_support;
setup_fastmove;
}
end;
@ -80,6 +72,12 @@ asm
end;
{$endif}
{$if not defined(FPC_SYSTEM_HAS_MOVE)
and not defined(OLD_ASSEMBLER)
and not defined(darwin)}
{$i fastmove.inc}
{$endif}
{$ifndef FPC_SYSTEM_HAS_MOVE}
{$define FPC_SYSTEM_HAS_MOVE}
@ -2027,7 +2025,7 @@ Procedure SysResetFPU;
{ because of the brain dead sse detection on x86, this test is post poned }
procedure fpc_cpucodeinit;
var
_eax,_ecx_cpuid1,_edx_cpuid1,_ebx : longint;
_eax,_ecx_cpuid1,_edx_cpuid1,_ebx_cpuid7 : longint;
begin
if cpuid_support then
begin
@ -2067,23 +2065,27 @@ procedure fpc_cpucodeinit;
cpuid
movl %eax,_eax
end;
if (_eax>=7) and (_ecx_cpuid1 and $08000000<>0 {XGETBV support?}) then
if _eax>=7 then
begin
asm
movl $7,%eax
xorl %ecx,%ecx
.byte 0x0f,0x01,0xd0 { xgetbv }
movl %eax,_eax
cpuid
movl %ebx,_ebx_cpuid7
end;
if (_eax and 6)=6 then
fast_large_repmovstosb:=_ebx_cpuid7 and (1 shl 9)<>0;
if (_ecx_cpuid1 and $08000000<>0 {XGETBV support?}) then
begin
has_avx_support:=(_ecx_cpuid1 and $10000000)<>0;
asm
movl $7,%eax
xorl %ecx,%ecx
cpuid
movl %ebx,_ebx
.byte 0x0f,0x01,0xd0 { xgetbv }
movl %eax,_eax
end;
has_avx2_support:=(_ebx and $20)<>0;
if (_eax and 6)=6 then
begin
has_avx_support:=(_ecx_cpuid1 and $10000000)<>0;
has_avx2_support:=(_ebx_cpuid7 and $20)<>0;
end;
end;
end;
end;
@ -2098,9 +2100,7 @@ procedure fpc_cpucodeinit;
end;
SysResetFPU;
{$ifdef USE_FASTMOVE}
setup_fastmove;
{$endif}
fpc_cpucodeinit_performed:=true;
end;

4
rtl/watcom/system.pp
View File

@ -25,8 +25,8 @@ INTERFACE
{$define FPC_ANSI_TEXTFILEREC}
{ include system-independent routine headers }
{ wasm does not support SSE3 instructions }
{$define FASTMOVE_DISABLE_SSE3}
{ wasm does not support SSE instructions }
{$define FASTMOVE_DISABLE_SSE}
{$include systemh.inc}