Mercurial > projects > dstress

annotate run/a/asm_fdivp_01_A.d @ 715:a35e4f0a9049

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
partial iasm FPU review
author thomask
date Fri, 28 Oct 2005 21:22:25 +0000
parents
children 7b2c5a101190
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
715
a35e4f0a9049 partial iasm FPU review
thomask
parents:
diff changeset
1 // $HeadURL: svn://127.0.0.1/run/a/asm_fcos_01.d $
a35e4f0a9049 partial iasm FPU review
thomask
parents:
diff changeset
2 // $Date: 2005-10-04 11:25:00 +0200 (星期二, 04 十月 2005) $
a35e4f0a9049 partial iasm FPU review
thomask
parents:
diff changeset
3 // $Author: thomask $
a35e4f0a9049 partial iasm FPU review
thomask
parents:
diff changeset
4
a35e4f0a9049 partial iasm FPU review
thomask
parents:
diff changeset
5 // __DSTRESS_DFLAGS__ addon/cpuinfo.d
a35e4f0a9049 partial iasm FPU review
thomask
parents:
diff changeset
6
a35e4f0a9049 partial iasm FPU review
thomask
parents:
diff changeset
7 module dstress.run.a.asm_fdivp_01_A;
a35e4f0a9049 partial iasm FPU review
thomask
parents:
diff changeset
8 import addon.cpuinfo;
a35e4f0a9049 partial iasm FPU review
thomask
parents:
diff changeset
9
a35e4f0a9049 partial iasm FPU review
thomask
parents:
diff changeset
10 int main(){
a35e4f0a9049 partial iasm FPU review
thomask
parents:
diff changeset
11 version(D_InlineAsm){
a35e4f0a9049 partial iasm FPU review
thomask
parents:
diff changeset
12 haveFPU();
a35e4f0a9049 partial iasm FPU review
thomask
parents:
diff changeset
13
a35e4f0a9049 partial iasm FPU review
thomask
parents:
diff changeset
14 double a = 12.0;
a35e4f0a9049 partial iasm FPU review
thomask
parents:
diff changeset
15 double b = -3.0;
a35e4f0a9049 partial iasm FPU review
thomask
parents:
diff changeset
16
a35e4f0a9049 partial iasm FPU review
thomask
parents:
diff changeset
17 asm{
a35e4f0a9049 partial iasm FPU review
thomask
parents:
diff changeset
18 fld a;
a35e4f0a9049 partial iasm FPU review
thomask
parents:
diff changeset
19 fldz;
a35e4f0a9049 partial iasm FPU review
thomask
parents:
diff changeset
20 fld b;
a35e4f0a9049 partial iasm FPU review
thomask
parents:
diff changeset
21 fdivp ST(2),ST;
a35e4f0a9049 partial iasm FPU review
thomask
parents:
diff changeset
22 fstp a;
a35e4f0a9049 partial iasm FPU review
thomask
parents:
diff changeset
23 fstp b;
a35e4f0a9049 partial iasm FPU review
thomask
parents:
diff changeset
24 }
a35e4f0a9049 partial iasm FPU review
thomask
parents:
diff changeset
25
a35e4f0a9049 partial iasm FPU review
thomask
parents:
diff changeset
26 assert(a == 0.0);
a35e4f0a9049 partial iasm FPU review
thomask
parents:
diff changeset
27 assert(b == -4.0);
a35e4f0a9049 partial iasm FPU review
thomask
parents:
diff changeset
28
a35e4f0a9049 partial iasm FPU review
thomask
parents:
diff changeset
29 return 0;
a35e4f0a9049 partial iasm FPU review
thomask
parents:
diff changeset
30 }else{
a35e4f0a9049 partial iasm FPU review
thomask
parents:
diff changeset
31 pragma(msg, "no inline asm support");
a35e4f0a9049 partial iasm FPU review
thomask
parents:
diff changeset
32 static assert(0);
a35e4f0a9049 partial iasm FPU review
thomask
parents:
diff changeset
33 }
a35e4f0a9049 partial iasm FPU review
thomask
parents:
diff changeset
34 }