delphi - Delphi 中相当于 C __builtin_clz() 的是什么？

Question

引自https://gcc.gnu.org/onlinedocs/gcc/Other-Builtins.html ,

— Built-in Function: int __builtin_clz (unsigned int x) Returns the number of leading 0-bits in x, starting at the most significant bit position. If x is 0, the result is undefined.

Delphi 中相当于 C __builtin_clz() 的是什么？如果没有，如何在Delphi中高效实现？

其实我想用它来计算一个整数的以2为底的对数。

Answer 1

如果您只关心 32 位代码，那么它会像这样:

function __builtin_clz(x: Cardinal): Cardinal;
asm
  BSR     EAX,EAX
  NEG     EAX
  ADD     EAX,32
end;

或者，如果您也想支持 64 位代码，那么:

function __builtin_clz(x: Cardinal): Cardinal;
{$IF Defined(CPUX64)}
asm
  BSR     ECX,ECX
  NEG     ECX
  ADD     ECX,31
  MOV     EAX,ECX
{$ENDIF}
{$IF Defined(CPUX86)}
asm
  BSR     EAX,EAX
  NEG     EAX
  ADD     EAX,31
{$ENDIF}
end;

asm 大师可能会稍微简化一下，但 BSR(位扫描反向)是关键指令。

对于移动编译器，我不知道如何有效地做到这一点。