blob: 20b81f782d92959c21405c9d5ce3028a96753b4d (
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
40
41
|
{ %cpu=i386 }
{ Source provided for Free Pascal Bug Report 2158 }
{ Submitted by "Maxim Voronov" on 2002-10-03 }
{ e-mail: m_v_voronov@mail.ru }
Program test;
{$asmmode intel}
Function GetXminusYintel(x,y : extended):extended; assembler;
asm
fld x
fld y
fsubp st(1),st(0)
end;
{$asmmode att}
Function GetXminusYatt(x,y : extended):extended; assembler;
asm
fld y
fld x
fsubp %st,%st(1)
end;
var
eatt,eintel : extended;
Begin
writeln;
eintel:= GetXminusYintel(2.0,1.0);
writeln(eintel);
eatt:= GetXminusYatt(2.0,1.0);
writeln(eatt);
if eintel<>eatt then
begin
writeln('intel fsubp is not translated properly into fsubrp');
halt(1);
end;
End.
|
