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

Советы » Процессор » Определение поддержки SSE

{ **** 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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com