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

Previous  Top  Next

    
 

 

Code:

{ **** UBPFD *********** by delphibase.endimus.com ****

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

 

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

Автор:       Gua, gua@ukr.net, ICQ:141585495, Simferopol

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;

 

 

©Drkb::01441