Есть код ассемблер, который я использую в 32 битном Делфи.
function RotateRightBits(const Value:LongWord; const Bits:Byte):LongWord;register;assembler;
asm
MOV CL,DL
ROR EAX,CL
end;
Я переписываю программу в 64 битном FreePascal и столкнулся со сложностью перевода этого кода. Так как он возвращает совсем не то число что в 32 битном.
Аналог кода на Делфи работает в 10 раз дольше, по этому меня он не устраивает.
function RotateRightBits(const Value:LongWord;const Bits:Byte):LongWord;
var I,B:integer;
begin
Result := Value;
if Bits >= 32 then B := Bits mod 32
else B := Bits;
for I := 1 to B do
if Result and 1 = 0 then Result := Result shr 1
else Result := (Result shr 1) or $80000000;
end;
Сильно сложно переписать 32 битный код ассемблера под 64 битные регистры, чтоб он работал идентично?