Ассемблерная вставка

[Сквозняк]

При компиляции на платформе Linux x86_64 лазарус ругался на push edi и pop edi. В ассемблере пока плаваю, поэтому интересует вопрос, работоспособным получился патч или нет.

Код: Выделить всё

procedure FillSmallInt(p : PSmallInt; count : Integer; v : SmallInt); register;
// EAX contains p
// EDX contains count
// ECX contains v
var                //патч
zz : PSmallInt;    //патч
asm
//  push edi       //было
   push zz          //патч
  // mov edi, p   //было
   mov zz, p       //патч
   mov ax, cx     // expand v to 32 bits
   shl eax, 16
   mov ax, cx
   mov ecx, edx   // the "odd" case is handled by issueing a lone stosw
   shr ecx, 1
   test dl, 1
   jz @even_nb
   stosw
   or ecx, ecx
   je @fill_done
@even_nb:
   rep stosd
@fill_done:
//  pop edi       //было
   pop zz          //патч
end;

[Sergei I. Gorelkin]

Этот код и до патча был неработоспособен, не столько из-за push edi (его достаточно заменить на push rdi), сколько из-за того, что в x86_64-linux аргументы будут находится в rdi, rsi, rdx, а в x86_64-win64 - в rcx,rdx,r8.

[Сквозняк]

А её можно без ассемблера переписать, пусть и с потерей скорости?

[Sergei I. Gorelkin]

Если я ничего не упускаю из вида, вместо нее можно использовать процедуру FillWord, ничего не переписывая.

[Сквозняк]

Учитывая, что и с глючащей ассемблерной вставкой бенчмарки GLScene как-то работали, то хуже быть не должно.