BASM中的mul指令使用出错，求指正解决方法

BASM中的mul指令使用出错，求指正

Delphi(Pascal) code


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{实现乘2}
function mul_int(I: Integer): Integer;
begin
  //ok
  asm
    mov edx, 2
    mul edx
    ret
  end;

  {==============问题代码=============
  asm
    mov ecx, 2
    mul ecx
    ret
  end;
  ===============问题代码=============}
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(mul_int(9)));
end;

end.

问题描述：
1）用BASM实现乘2这个功能的时候，使用ECX就是出错，使用EDX正常，我查过资料，EAX、ECX、EDX都可以修改的啊。
为什么程序会出错？

------解决方案--------------------
问题代码反汇编（于mul_int的begin处下端点）：
Unit1.pas.29: begin
0045BF60 53 push ebx//编译器为何会加这句而edx的情况下却不加，这个有待进一步研究...
Unit1.pas.39: mov ecx, 2
0045BF61 B902000000 mov ecx,$00000002
Unit1.pas.40: mul ecx
0045BF66 F7E1 mul ecx
Unit1.pas.41: ret
0045BF68 C3 ret//返回时堆栈不平衡，即使注释掉此ret，也不会返回正确结果
Unit1.pas.44: end;
0045BF69 8BC3 mov eax,ebx//正确结果被ebx覆盖
0045BF6B 5B pop ebx
0045BF6C C3 ret

我觉得在非全汇编过程中，不要出现ret指令，并且要把最后结果赋予@Result。
所以改成这样：
function mul_int(I: Integer): Integer;
begin
asm
mov ecx, 2
mul ecx
mov @Result,eax
end;
end;
如果用全汇编的：
function mul_int(I: Integer): Integer;
asm
mov ecx, 2
mul ecx
ret//ret可以省略，编译器会自动加上
end;

BASM中的mul指令使用出错，求指正解决方法

相关推荐