blob: efcf05fcdbc9b2e6b3a4b8f8cc986d24fd10f93b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
{ %skiptarget=android }
{ %CPU=i386 }
{ %OPT=-Cg- }
{$asmmode intel}
const
Count=100;
type
trec=record
a,b : longint;
c: longint;
end;
var
r : trec;
begin
asm
xor esi,esi
mov [esi+r],eax
lea esi,r
mov [esi+2+trec.b],eax
mov trec[esi].b,eax
mov eax,trec.b+2
mov trec[esi].b+2,eax
mov eax,Count
mov eax,Count*100
{$ifdef go32v2}
mov fs:[0468+trec.b],eax
mov fs:[046ch],eax
{$endif}
end ['eax','esi'];
end.
|
