Mercurial > projects > dstress
annotate run/a/asm_fdivrp_01_B2.d @ 1630:d0efa3ae5522 default tip
run/mini/naked_asm5: New x86_64 ABI passes the arguments in reverse order.
author | David Nadlinger <code@klickverbot.at> |
---|---|
date | Sat, 23 Apr 2011 22:57:32 +0200 |
parents | 1bbcc6407d4b |
children |
rev | line source |
---|---|
856 | 1 // $HeadURL$ |
2 // $Date$ | |
3 // $Author$ | |
715 | 4 |
1607
1bbcc6407d4b
Update module statement for renamed tests.
Christian Kamm <kamm incasoftware de>
parents:
1606
diff
changeset
|
5 module dstress.run.a.asm_fdivrp_01_B2; |
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 b = -3.0f; |
ebff718ff18b
Fix tests from #3. Thanks Don!
Christian Kamm <kamm incasoftware de>
parents:
1329
diff
changeset
|
20 float a = 12.0f; |
1044 | 21 |
715 | 22 asm{ |
23 fldz; | |
24 fld b; | |
25 fld a; | |
26 fdivrp; | |
27 fstp a; | |
28 fstp b; | |
29 } | |
1044 | 30 |
989 | 31 if(a != -4.0f){ |
32 assert(0); | |
33 } | |
34 if(b != 0.0f){ | |
35 assert(0); | |
36 } | |
1044 | 37 |
715 | 38 return 0; |
39 } | |
989 | 40 }else{ |
41 pragma(msg, "DSTRESS{XFAIL}: no inline ASM support"); | |
42 static assert(0); | |
43 } |