paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 13:10:32 +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

6
rtl/i386/i386.inc
View File

@ -1236,6 +1236,9 @@ Procedure SysResetFPU;{$ifdef SYSTEMINLINE}inline;{$endif}
procedure fpc_cpucodeinit;
begin
os_supports_sse:=true;
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
@ -1244,7 +1247,8 @@ procedure fpc_cpucodeinit;
movaps %xmm7, %xmm6
end;
sse_check:=false;
has_sse_support:=sse_support;
end;
has_sse_support:=os_supports_sse;
has_mmx_support:=mmx_support;
SysResetFPU;
{$ifdef USE_FASTMOVE}