Определение поддержки SSE

Материал из DRKB

Определение поддержки SSE[править | править код]

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Определение поддержки SSE

Зависимости: Types

Copyright:   Unknown
Дата:        17 июля 2002 г.
***************************************************** }

function CheckSSE: Boolean;
var
  TempCheck: dword;
begin
  TempCheck := 1;
  asm
  push ebx
  mov eax,1
  db $0F,$A2
  test edx,$2000000
  jz @NOSSE
  mov edx,0
  mov TempCheck,edx
  @NOSSE:
  pop ebx
  end;
  CheckSSE := (TempCheck = 0);
end;


Source: http://delphibase.endimus.com
ID: 01441