Определение поддержки SSE2 |
Previous Top Next |
Code: |
{ **** UBPFD *********** by delphibase.endimus.com **** >> Определение поддержки SSE2
Зависимости: Types Автор: Gua, gua@ukr.net, ICQ:141585495, Simferopol Copyright: Unknown Дата: 17 июля 2002 г. ***************************************************** }
function CheckSSE2: Boolean; var TempCheck: dword; begin TempCheck := 1; asm push ebx mov eax,1 db $0F,$A2 test edx,$4000000 jz @NOSSE2 mov edx,0 mov TempCheck,edx @NOSSE2: pop ebx end; CheckSSE2 := (TempCheck = 0); end; |
©Drkb::01442