Mercurial > projects > ldc

comparison druntime/src/compiler/dmd/typeinfo/ti_cdouble.d @ 759:d3eb054172f9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added copy of druntime from DMD 2.020 modified for LDC.
author Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>
date Tue, 11 Nov 2008 01:52:37 +0100
parents
children
comparison
equal deleted inserted replaced
758:f04dde6e882c 759:d3eb054172f9
1
2 // cdouble
3
4 module rt.typeinfo.ti_cdouble;
5
6 class TypeInfo_r : TypeInfo
7 {
8 override string toString() { return "cdouble"; }
9
10 override hash_t getHash(in void* p)
11 {
12 return (cast(uint *)p)[0] + (cast(uint *)p)[1] +
13 (cast(uint *)p)[2] + (cast(uint *)p)[3];
14 }
15
16 static equals_t _equals(cdouble f1, cdouble f2)
17 {
18 return f1 == f2;
19 }
20
21 static int _compare(cdouble f1, cdouble f2)
22 { int result;
23
24 if (f1.re < f2.re)
25 result = -1;
26 else if (f1.re > f2.re)
27 result = 1;
28 else if (f1.im < f2.im)
29 result = -1;
30 else if (f1.im > f2.im)
31 result = 1;
32 else
33 result = 0;
34 return result;
35 }
36
37 override equals_t equals(in void* p1, in void* p2)
38 {
39 return _equals(*cast(cdouble *)p1, *cast(cdouble *)p2);
40 }
41
42 override int compare(in void* p1, in void* p2)
43 {
44 return _compare(*cast(cdouble *)p1, *cast(cdouble *)p2);
45 }
46
47 override size_t tsize()
48 {
49 return cdouble.sizeof;
50 }
51
52 override void swap(void *p1, void *p2)
53 {
54 cdouble t;
55
56 t = *cast(cdouble *)p1;
57 *cast(cdouble *)p1 = *cast(cdouble *)p2;
58 *cast(cdouble *)p2 = t;
59 }
60
61 override void[] init()
62 { static cdouble r;
63
64 return (cast(cdouble *)&r)[0 .. 1];
65 }
66 }