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