Mercurial > projects > dstress

comparison run/a/asm_fdivr_01_D2.d @ 1606:ebff718ff18b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
1605:392a442e2d64 1606:ebff718ff18b
1 // $HeadURL$
2 // $Date$
3 // $Author$
4
5 module dstress.run.a.asm_fdivr_01_D;
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;
15
16 int main(){
17 haveFPU!()();
18
19 float a = 12.0f;
20 float b = -3.0f;
21 float c = 9.9f;
22
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 }
32
33 if(a != 12.0f){
34 assert(0);
35 }
36 if(b != 0.0f){
37 assert(0);
38 }
39 if(c != -4.0f){
40 assert(0);
41 }
42
43 return 0;
44 }
45 }else{
46 pragma(msg, "DSTRESS{XFAIL}: no inline ASM support");
47 static assert(0);
48 }