{ %CPU=i386 }
{ Old file: tbs0174.pp }
{ Asm, offsets of fields are not possible yet           OK 0.99.9 (PFV) }

{$ASMMODE ATT}

type
  tobj=object
   l : longint;
  end;
var
  t : tobj;

procedure kl;assembler;
asm
{$ifdef CPUI386}
  movl tobj.l,%eax        // tobj.l should return the offset of l in tobj
{$endif CPUI386}
end;


begin
end.