Mercurial > projects > dstress

comparison run/a/asm_fdivp_01_A2.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_fdivp_01_A.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_fdivp_01_A;
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
22 asm{
23 fld a;
24 fldz;
25 fld b;
26 fdivp ST(2),ST;
27 fstp a;
28 fstp b;
29 }
30
31 if(a != 0.0f){
32 assert(0);
33 }
34 if(b != -4.0f){
35 assert(0);
36 }
37
38 return 0;
39 }
40 }else{
41 pragma(msg, "DSTRESS{XFAIL}: no inline ASM support");
42 static assert(0);
43 }