Delphi 內嵌組合語言教學 (15)：需保護的寄存器與堆疊保存

寄存器分類

保護範例：使用 EBX

function Fun(x: Integer): Integer;
asm
  push ebx          { 入棧保存原值 }
  mov ebx, x        { 使用 EBX }
  inc ebx
  mov @Result, ebx
  pop ebx           { 出棧恢復原值 }
end;

測試代碼

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
  i := Fun(8);
  ShowMessage(IntToStr(i));  { 9 }
end;

進階：多寄存器保存

asm
  push ebx
  push esi
  push edi
  { 使用 EBX/ESI/EDI }
  pop edi
  pop esi
  pop ebx   { 逆序恢復 }
end;

編譯器自動生成

Delphi 編譯器在函數序言/尾聲自動插入非易失性寄存器保存代碼。**手寫組合代碼時必須手動維護**，否則破壞調用約定。

常見錯誤場景

• 在組合塊中直接修改 ESI/EDI 導致外層循環計數器損壞
• 修改 EBP 破壞堆疊幀導致區域變量訪問錯誤
• 修改 ESP 導致堆疊指針錯位，RET 崩潰