Mercurial > projects > ldc

comparison druntime/src/compiler/dmd/typeinfo/ti_Acreal.d @ 1458:e0b2d67cfe7c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added druntime (this should be removed once it works).
author Robert Clipsham <robert@octarineparrot.com>
date Tue, 02 Jun 2009 17:43:06 +0100
parents
children
comparison
equal deleted inserted replaced
1456:7b218ec1044f 1458:e0b2d67cfe7c
1 /**
2 * TypeInfo support code.
3 *
4 * Copyright: Copyright Digital Mars 2004 - 2009.
5 * License: <a href="http://www.boost.org/LICENSE_1_0.txt>Boost License 1.0</a>.
6 * Authors: Walter Bright
7 *
8 * Copyright Digital Mars 2004 - 2009.
9 * Distributed under the Boost Software License, Version 1.0.
10 * (See accompanying file LICENSE_1_0.txt or copy at
11 * http://www.boost.org/LICENSE_1_0.txt)
12 */
13 module rt.typeinfo.ti_Acreal;
14
15 private import rt.typeinfo.ti_creal;
16
17 // creal[]
18
19 class TypeInfo_Ac : TypeInfo
20 {
21 override string toString() { return "creal[]"; }
22
23 override hash_t getHash(in void* p)
24 { creal[] s = *cast(creal[]*)p;
25 size_t len = s.length;
26 creal *str = s.ptr;
27 hash_t hash = 0;
28
29 while (len)
30 {
31 hash *= 9;
32 hash += (cast(uint *)str)[0];
33 hash += (cast(uint *)str)[1];
34 hash += (cast(uint *)str)[2];
35 hash += (cast(uint *)str)[3];
36 hash += (cast(uint *)str)[4];
37 str++;
38 len--;
39 }
40
41 return hash;
42 }
43
44 override equals_t equals(in void* p1, in void* p2)
45 {
46 creal[] s1 = *cast(creal[]*)p1;
47 creal[] s2 = *cast(creal[]*)p2;
48 size_t len = s1.length;
49
50 if (len != s2.length)
51 return 0;
52 for (size_t u = 0; u < len; u++)
53 {
54 if (!TypeInfo_c._equals(s1[u], s2[u]))
55 return false;
56 }
57 return true;
58 }
59
60 override int compare(in void* p1, in void* p2)
61 {
62 creal[] s1 = *cast(creal[]*)p1;
63 creal[] s2 = *cast(creal[]*)p2;
64 size_t len = s1.length;
65
66 if (s2.length < len)
67 len = s2.length;
68 for (size_t u = 0; u < len; u++)
69 {
70 int c = TypeInfo_c._compare(s1[u], s2[u]);
71 if (c)
72 return c;
73 }
74 if (s1.length < s2.length)
75 return -1;
76 else if (s1.length > s2.length)
77 return 1;
78 return 0;
79 }
80
81 override size_t tsize()
82 {
83 return (creal[]).sizeof;
84 }
85
86 override uint flags()
87 {
88 return 1;
89 }
90
91 override TypeInfo next()
92 {
93 return typeid(creal);
94 }
95 }