Mercurial > projects > dstress

annotate run/creal_13.d @ 1630:d0efa3ae5522 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 56d43974b468
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
374
f87ba6507260 added missing meta-data
thomask
parents: 97
diff changeset
1 // $HeadURL$
f87ba6507260 added missing meta-data
thomask
parents: 97
diff changeset
2 // $Date$
f87ba6507260 added missing meta-data
thomask
parents: 97
diff changeset
3 // $Author$
f87ba6507260 added missing meta-data
thomask
parents: 97
diff changeset
4
95
f4dcf89f7796 extended creal tests
thomask
parents:
diff changeset
5 module dstress.run.creal_13;
f4dcf89f7796 extended creal tests
thomask
parents:
diff changeset
6
1602
56d43974b468 Fix broken tests fvbommel pointed out in #2.
Christian Kamm <kamm incasoftware de>
parents: 920
diff changeset
7 bool isIdentical(real x, real y)
56d43974b468 Fix broken tests fvbommel pointed out in #2.
Christian Kamm <kamm incasoftware de>
parents: 920
diff changeset
8 {
56d43974b468 Fix broken tests fvbommel pointed out in #2.
Christian Kamm <kamm incasoftware de>
parents: 920
diff changeset
9 long* x64 = cast(long*)&x;
56d43974b468 Fix broken tests fvbommel pointed out in #2.
Christian Kamm <kamm incasoftware de>
parents: 920
diff changeset
10 long* y64 = cast(long*)&y;
56d43974b468 Fix broken tests fvbommel pointed out in #2.
Christian Kamm <kamm incasoftware de>
parents: 920
diff changeset
11 ushort* x16 = cast(ushort*)&x + 4;
56d43974b468 Fix broken tests fvbommel pointed out in #2.
Christian Kamm <kamm incasoftware de>
parents: 920
diff changeset
12 ushort* y16 = cast(ushort*)&y + 4;
56d43974b468 Fix broken tests fvbommel pointed out in #2.
Christian Kamm <kamm incasoftware de>
parents: 920
diff changeset
13 return *x64 == *y64 && *x16 == *y16;
56d43974b468 Fix broken tests fvbommel pointed out in #2.
Christian Kamm <kamm incasoftware de>
parents: 920
diff changeset
14 }
56d43974b468 Fix broken tests fvbommel pointed out in #2.
Christian Kamm <kamm incasoftware de>
parents: 920
diff changeset
15
95
f4dcf89f7796 extended creal tests
thomask
parents:
diff changeset
16 int main(){
528
9e0847cf535a pre DMD-0.123 review
thomask
parents: 374
diff changeset
17 creal a;
9e0847cf535a pre DMD-0.123 review
thomask
parents: 374
diff changeset
18 creal b;
9e0847cf535a pre DMD-0.123 review
thomask
parents: 374
diff changeset
19
9e0847cf535a pre DMD-0.123 review
thomask
parents: 374
diff changeset
20 b = real.init + ireal.init;
1602
56d43974b468 Fix broken tests fvbommel pointed out in #2.
Christian Kamm <kamm incasoftware de>
parents: 920
diff changeset
21 assert(isIdentical(a.re, b.re));
56d43974b468 Fix broken tests fvbommel pointed out in #2.
Christian Kamm <kamm incasoftware de>
parents: 920
diff changeset
22 assert(isIdentical(a.im, b.im));
528
9e0847cf535a pre DMD-0.123 review
thomask
parents: 374
diff changeset
23
9e0847cf535a pre DMD-0.123 review
thomask
parents: 374
diff changeset
24 real c;
1602
56d43974b468 Fix broken tests fvbommel pointed out in #2.
Christian Kamm <kamm incasoftware de>
parents: 920
diff changeset
25
528
9e0847cf535a pre DMD-0.123 review
thomask
parents: 374
diff changeset
26 real d=a.re;
1602
56d43974b468 Fix broken tests fvbommel pointed out in #2.
Christian Kamm <kamm incasoftware de>
parents: 920
diff changeset
27 assert(isIdentical(c, d));
528
9e0847cf535a pre DMD-0.123 review
thomask
parents: 374
diff changeset
28
9e0847cf535a pre DMD-0.123 review
thomask
parents: 374
diff changeset
29 d=a.im;
1602
56d43974b468 Fix broken tests fvbommel pointed out in #2.
Christian Kamm <kamm incasoftware de>
parents: 920
diff changeset
30 assert(isIdentical(c, d));
56d43974b468 Fix broken tests fvbommel pointed out in #2.
Christian Kamm <kamm incasoftware de>
parents: 920
diff changeset
31
95
f4dcf89f7796 extended creal tests
thomask
parents:
diff changeset
32 return 0;
f4dcf89f7796 extended creal tests
thomask
parents:
diff changeset
33 }