testasmoffsetkeyword.obs

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

unit testasmoffsetkeyword;interface uses sysutils;type tmyclass=class(TObject)field1
:integer;procedure dosomething(offset,x,y,dx,dy:integer);virtual;end;implementation
procedure tmyclass.dosomething(offset,x,y,dx,dy:integer);asm
push dy;
push &dx;
push y;
push x;
test &offset, &offset;
end;end.