t_id
1095
t_adddate
2003/10/14
t_result
0
Flag
t_fail
set
t_knownrunerror
0
Record count: 50
Total = 50
OK=4 Percentage= 8.00
Skipped=46 Percentage= 92.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.