testcomplexasm2.out

来自「格式化源码的最新板」· OUT 代码 · 共 29 行

unit TestComplexASM2;

{ AFS 9 October 2006 

 This unit compiles but is not semantically meaningfull
 it is test cases for the code formatting utility
}

interface

uses
  SysUtils;

type
  /// TMyClass comment
  TMyClass = class(TObject)
    procedure DoAsm; virtual;
  end;

implementation

uses DB;

/// DoAsm comment
procedure TMyClass.DoAsm;
asm
         MOV     EDX, [EAX] // r閏up閞ation de la VMT

         // test du cas o