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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
{ %cpu=i386,x86_64 }
{$asmmode att}
{$ifdef cpui386}
{$warn 7104 off} //"Using -offset(%ebp) is not recommended"
procedure test_i386; assembler; nostackframe;
asm
vmovd %xmm0, -16(%ebp)
vmovd -16(%ebp), %xmm0
vmovq %xmm6, -16(%ebp)
vmovq -16(%ebp), %xmm6
vmovq %xmm0, %xmm2
end;
const
expected_i386: array[0..23] of byte = (
$C5,$F9,$7E,$45,$F0,
$C5,$F9,$6E,$45,$F0,
$C5,$F9,$D6,$75,$F0,
$C5,$FA,$7E,$75,$F0,
$C5,$FA,$7E,$D0
);
{$endif}
{$ifdef cpux86_64}
procedure test_x86_64; assembler; nostackframe;
asm
vmovq 0x12345678(%rip), %xmm0
vmovq %xmm0, 0x12345678(%rip)
vmovq %xmm1, %xmm0
vmovq %rax, %xmm0
vmovq %xmm0, %rax
end;
const
expected_x86_64: array[0..29] of byte = (
$C5,$FA,$7E,$05,$78,$56,$34,$12,
$C5,$F9,$D6,$05,$78,$56,$34,$12,
$C5,$FA,$7E,$C1,
$C4,$E1,$F9,$6E,$C0,
$C4,$E1,$F9,$7E,$C0
);
{$endif}
procedure check(const id: string; const expected: array of byte; p: pointer);
var
i : longint;
begin
for i:=0 to high(expected) do
if expected[i]<>pbyte(p)[i] then
begin
writeln(id, ' mismatch at offset $',hexstr(i,4), ', expected=$',hexstr(expected[i],2),' actual=$',hexstr(pbyte(p)[i],2));
halt(1);
end;
end;
begin
{$ifdef cpux86_64}
check('x86_64',expected_x86_64,@test_x86_64);
{$endif}
{$ifdef cpui386}
check('i386',expected_i386,@test_i386);
{$endif}
writeln('ok');
end.
|
