1

Есть код ассемблер, который я использую в 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 битные регистры, чтоб он работал идентично?

2
  • Входные и выходные параметры также должны быть 32-х битные? Commented 3 нояб. 2021 в 23:07
  • @AntonShchyrov нет, 64 битные
    – BadMan
    Commented 3 нояб. 2021 в 23:28

1 ответ 1

5

В x32 параметры в функцию передаются через регистры eax, edx, ecx, а возвращаемый результат передается через регистр eax.

В x64 параметры в функцию передаются через регистры rcx, rdx, r8, r9, а возвращаемый результат передается через регистр rax.

Поэтому функцию нужно написать вот так

function RotateRightBits(Value: LongWord; Bits: Byte): LongWord; register; assembler;
asm
  {$IFDEF CPUx64}
  mov rax, rcx
  {$ENDIF}
  mov cl, dl
  ror eax, cl
end;

Если же 64 битная функция должна работать с 64 битными значениями, то нужно написать так

// Тип NativeUInt имеет различный размер в зависимости от платформы
function RotateRightBits(Value: NativeUInt; Bits: Byte): NativeUInt; register; assembler;
asm
  {$IFDEF CPUx32}
  mov cl, dl
  ror eax, cl
  {$ELSE}
  mov rax, rcx
  mov cl, dl
  ror rax, cl
  {$ENDIF}
end;
5
  • выдает ошибку test.pas Error: Asm: signed dword value exceeds bounds 4294967295 на строке and rax, 0ffffffffh
    – BadMan
    Commented 3 нояб. 2021 в 23:31
  • эта инструкция и не нужна: на amd64 32-х битные инструкции обнуляют старшую часть регистра...
    – Fat-Zer
    Commented 3 нояб. 2021 в 23:48
  • @Fat-Zer Да, без нее все заработало, Спасибо!
    – BadMan
    Commented 3 нояб. 2021 в 23:55
  • пожалуйста, постарайтесь оставлять чуть более развёрнутые ответы. дополнить ответ можно, нажав править Commented 4 нояб. 2021 в 5:53
  • @BadMan добавил вариант для 64-битных значений Commented 4 нояб. 2021 в 12:18

Ваш ответ

Нажимая «Отправить ответ», вы соглашаетесь с условиями пользования и подтверждаете, что прочитали политику конфиденциальности.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.