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

* improved SSE check by Martin Schreiber

Browse Source 
git-svn-id: trunk@8040 -
This commit is contained in:
florian 2007-07-13 21:16:48 +00:00
parent 7d7080394d
commit 6f6e60b723
1 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
rtl/i386/i386.inc
View File

@ -1236,15 +1236,19 @@ Procedure SysResetFPU;{$ifdef SYSTEMINLINE}inline;{$endif}
procedure fpc_cpucodeinit;
begin
os_supports_sse:=true;
sse_check:=true;
asm
{ force an sse exception if no sse is supported, the exception handler sets
os_supports_sse to false then }
{ don't change this instruction, the code above depends on its size }
movaps %xmm7, %xmm6
end;
sse_check:=false;
has_sse_support:=sse_support;
os_supports_sse:=sse_support;
if os_supports_sse then
begin
sse_check:=true;
asm
{ force an sse exception if no sse is supported, the exception handler sets
os_supports_sse to false then }
{ don't change this instruction, the code above depends on its size }
movaps %xmm7, %xmm6
end;
sse_check:=false;
end;
has_sse_support:=os_supports_sse;
has_mmx_support:=mmx_support;
SysResetFPU;
{$ifdef USE_FASTMOVE}