бинарная длина целого числа

[x128]

для integer:

function log2(const a: dword): dword; assembler;
asm
  bsr     eax, eax
  inc     eax
end;

для int64:

function log2(const a: int64): dword; assembler;
asm
  mov     eax, dword ptr [a]
  mov     edx, dword ptr [a+4]
  xor     ecx, ecx
  or      edx, edx
  setnz   cl
  shl     ecx, 5
  cmovnz  eax, edx
  bsr     eax, eax
  inc     eax
  add     eax, ecx
end;

в обоих случаях нужно позаботиться о знаке, т.е. x:=log2(abs(x))

[Smitt&Wesson]

Долго сидел, вдумывался в фразу - "бинарная длина целого числа"
Чаво?
ЭЭЭЭЭЭЭЭЭ. Мужики, вам чё, бабы не дают?
1, 0 бит = бинарка, или я = тупой ? или нет?

shl ecx, 5

Вы о чём?
Код 5-и, 101.

[Vapaamies]

Сообщение от x128

для int64:

Для Int64 в несколько раз короче написать можно, но мне лень думать.

[x128]

Сообщение от Smitt&Wesson

Вы о чём?
Код 5-и, 101.

Там умножение на 32, т.е. 2^5, а вы о чём?

Сообщение от Vapaamies

Для Int64 в несколько раз короче написать можно, но мне лень думать.

И какая польза от этого комментария? Когда будет не лень думать, предлагайте свой вариант. А так, да, можно и короче, а можно использовать вариант для 32-бит и разобрать int64 на делфи

with Int64Rec(abs(x)) do
  if Hi>0 then x:=Log2(Hi)+32 else x:=Log2(Lo);

но это будет медленней, а ТС упоминал, что скорость важна.

вот еще один вариант для int64:

function log2(const a: int64): dword; assembler;
asm
  mov     ecx, 32
  mov     eax, dword ptr [a+4]
  or      eax, eax
  jnz     @@skip
  xor     ecx, ecx
  mov     eax, dword ptr [a]
  @@skip:
  bsr     eax, eax
  add     eax, ecx
  inc     eax
end;

[Vapaamies]

Сообщение от x128

И какая польза от этого комментария?

Такая же, как и от 60-70% всех сообщений на этом форуме. Ответить как-нибудь, лишь бы ответить.

[Mikl___]

несколько способов определения бинарной длины числа Х

	fld1
	fild x
	fyl2x
	fistp result
;---------------------------
	fild x
	fxtract
	fxch
	fld1
	faddp 
	fistp result
;---------------------------
	bsr eax,x
	inc eax
	mov result,eax
;---------------------------
	push 0
	push x
	fild qword ptr [esp]
	fstp qword ptr [esp]
	mov eax,dword ptr [esp+4]
	shr eax,20
	sub eax,3FEh
	mov result,eax
	add esp,8