Mercurial > projects > dstress
annotate run/a/asm_fsubp_01_B2.d @ 1607:1bbcc6407d4b
Update module statement for renamed tests.
author | Christian Kamm <kamm incasoftware de> |
---|---|
date | Mon, 13 Apr 2009 13:48:46 +0200 |
parents | ebff718ff18b |
children |
rev | line source |
---|---|
992 | 1 // $HeadURL$ |
2 // $Date$ | |
3 // $Author$ | |
4 | |
1607
1bbcc6407d4b
Update module statement for renamed tests.
Christian Kamm <kamm incasoftware de>
parents:
1606
diff
changeset
|
5 module dstress.run.a.asm_fsubp_01_B2; |
992 | 6 |
7 version(D_InlineAsm_X86){ | |
8 version = runTest; | |
9 }else version(D_InlineAsm_X86_64){ | |
10 version = runTest; | |
11 } | |
12 | |
13 version(runTest){ | |
14 import addon.cpuinfo; | |
1044 | 15 |
992 | 16 int main(){ |
1329 | 17 haveFPU!()(); |
18 | |
1606
ebff718ff18b
Fix tests from #3. Thanks Don!
Christian Kamm <kamm incasoftware de>
parents:
1329
diff
changeset
|
19 double b = -1.2; |
ebff718ff18b
Fix tests from #3. Thanks Don!
Christian Kamm <kamm incasoftware de>
parents:
1329
diff
changeset
|
20 double a = 2.4; |
1044 | 21 |
992 | 22 asm{ |
23 fld1; | |
24 fld a; | |
25 fldz; | |
26 fld b; | |
27 fsubp ST(2), ST; | |
28 fstp b; | |
29 fstp a; | |
30 } | |
1044 | 31 |
992 | 32 a -= 3.6; |
1044 | 33 |
992 | 34 if(a < 0.0){ |
35 a = -a; | |
36 } | |
1044 | 37 |
992 | 38 if(a > a.epsilon * 4.0){ |
39 assert(0); | |
40 } | |
41 | |
42 if(b != 0.0){ | |
43 assert(0); | |
44 } | |
1044 | 45 |
992 | 46 return 0; |
47 } | |
48 }else{ | |
49 pragma(msg, "DSTRESS{XFAIL}: no inline ASM support"); | |
50 static assert(0); | |
51 } |