t_id
1095
t_adddate
2003/10/14
t_result
0
Flag
t_fail
set
t_knownrunerror
0
Record count: 50
Total = 50
OK=5 Percentage= 10.00
Skipped=45 Percentage= 90.00
{ %fail } {$ifdef fpc} {$mode delphi} {$asmmode intel} {$endif} type tscreen = class x : Cardinal; end; type ttestobj = class screen : tscreen; constructor create; function testasmcall : tscreen; end; var testobj : ttestobj; constructor ttestobj.create; begin asm mov screen.x,0 end; end; function ttestobj.testasmcall : tscreen; begin asm mov screen.x, 0 ADD screen.x, 1 end; result := screen; end; begin testobj := ttestobj.create; testobj.testasmcall; testobj.destroy; end.