blob: 21cd2f5dfec93233beb79455ba3fffb659675249 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
{ %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.
|
