Определение поддержки SSE 2Delphi , ОС и Железо , ПроцессорОпределение поддержки SSE 2
Автор: Gua { **** 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; Статья Определение поддержки SSE 2 раздела ОС и Железо Процессор может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |