delphi – 如何探测英特尔®高级矢量扩展的可用性？

如何使用Delphi 2007检查盒子是否支持AVX.

我的问题仅限于查询cpu中的支持(假设操作系统正常/带有SP1的Windows 7).

PDF文件名为Introduction to Intel® Advanced Vector Extensions
作者Chris Lomont解释了如何做到这一点,并提供了一个示例代码实现,但在c.

它也可以在page获得.

解决方法

这是 Intel blog上给出的汇编代码的翻译：

function isAvxSupported: Boolean;
asm
{$IFDEF cpuX86}
    push ebx
{$ENDIF}
{$IFDEF cpuX64}
    mov r10,rbx
{$ENDIF}
    xor eax,eax
    cpuid
    cmp eax,1
    jb @not_supported
    mov eax,1
    cpuid
    and ecx,018000000h
    cmp ecx,018000000h
    jne @not_supported
    xor ecx,ecx
    db 0Fh,01h,0D0h //XGETBV
    and eax,110b
    cmp eax,110b
    jne @not_supported
    mov eax,1
    jmp @done
@not_supported:
    xor eax,eax
@done:
{$IFDEF cpuX86}
    pop ebx
{$ENDIF}
{$IFDEF cpuX64}
    mov rbx,r10
{$ENDIF}
end;

此代码适用于32位和64位版本的Delphi.

更新：注册保存代码,感谢@PhiS.

原文地址：https://www.jb51.cc/delphi/101868.html