blob: 68a290ae0b768b9d964f8673336cb4f4e13c77d8 (
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
34
35
36
37
38
39
|
{ %FAIL }
{ %CPU=i8086,i386,x86_64 }
program tasm18f;
{$ifdef FPC}
{$asmmode intel}
{$else}
{$define CPUI8086}
{$endif FPC}
const
cval = 1;
type
foo2 = packed record
b1: byte;
b2: byte;
end;
foo = packed record
bb1: byte;
fb2: foo2;
end;
begin
asm
{ this produces an error in TP7, while
test [di + 5*foo.fb2], cval
doesn't... go figure :) }
{$ifdef CPUI8086}
test [di + 5*foo.fb2], cval
{$endif}
{$ifdef CPUI386}
test [edi + 5*foo.fb2], cval
{$endif}
{$ifdef CPUX86_64}
test [rdi + 5*foo.fb2], cval
{$endif}
end;
end.
|