Mercurial > projects > ldc
annotate tango/lib/compiler/llvmdc/typeinfo/ti_Along.d @ 213:7816aafeea3c trunk
[svn r229] Updated the object.d implementation to the latest Tango.
Fixed a bunch of the built-in typeinfos for arrays, they did not inherit TypeInfo_Array.
Applied patch to tango/text/convert/Layout.d by fvbommel, closes #47 .
Cleaned up some type code.
Replaced uses of llvm::Type with LLType (a typedef), same for Value and Constant.
Fixed a few cases where typeinfo for user structs could be emitted multiple times, seems to still be some cases of this :/
| author | lindquist |
|---|---|
| date | Fri, 30 May 2008 19:32:04 +0200 |
| parents | 1700239cab2e |
| children |
| rev | line source |
|---|---|
| 132 | 1 |
| 2 module typeinfo.ti_Along; | |
| 3 | |
| 4 private import tango.stdc.string; | |
| 5 | |
| 6 // long[] | |
| 7 | |
|
213
7816aafeea3c
[svn r229] Updated the object.d implementation to the latest Tango.
lindquist
parents:
132
diff
changeset
|
8 class TypeInfo_Al : TypeInfo_Array |
| 132 | 9 { |
| 10 char[] toString() { return "long[]"; } | |
| 11 | |
| 12 hash_t getHash(void *p) | |
| 13 { long[] s = *cast(long[]*)p; | |
| 14 size_t len = s.length; | |
| 15 auto str = s.ptr; | |
| 16 hash_t hash = 0; | |
| 17 | |
| 18 while (len) | |
| 19 { | |
| 20 hash *= 9; | |
| 21 hash += *cast(uint *)str + *(cast(uint *)str + 1); | |
| 22 str++; | |
| 23 len--; | |
| 24 } | |
| 25 | |
| 26 return hash; | |
| 27 } | |
| 28 | |
| 29 int equals(void *p1, void *p2) | |
| 30 { | |
| 31 long[] s1 = *cast(long[]*)p1; | |
| 32 long[] s2 = *cast(long[]*)p2; | |
| 33 | |
| 34 return s1.length == s2.length && | |
| 35 memcmp(cast(void *)s1, cast(void *)s2, s1.length * long.sizeof) == 0; | |
| 36 } | |
| 37 | |
| 38 int compare(void *p1, void *p2) | |
| 39 { | |
| 40 long[] s1 = *cast(long[]*)p1; | |
| 41 long[] s2 = *cast(long[]*)p2; | |
| 42 size_t len = s1.length; | |
| 43 | |
| 44 if (s2.length < len) | |
| 45 len = s2.length; | |
| 46 for (size_t u = 0; u < len; u++) | |
| 47 { | |
| 48 if (s1[u] < s2[u]) | |
| 49 return -1; | |
| 50 else if (s1[u] > s2[u]) | |
| 51 return 1; | |
| 52 } | |
| 53 if (s1.length < s2.length) | |
| 54 return -1; | |
| 55 else if (s1.length > s2.length) | |
| 56 return 1; | |
| 57 return 0; | |
| 58 } | |
| 59 | |
| 60 size_t tsize() | |
| 61 { | |
| 62 return (long[]).sizeof; | |
| 63 } | |
| 64 | |
| 65 uint flags() | |
| 66 { | |
| 67 return 1; | |
| 68 } | |
| 69 | |
| 70 TypeInfo next() | |
| 71 { | |
| 72 return typeid(long); | |
| 73 } | |
| 74 } | |
| 75 | |
| 76 | |
| 77 // ulong[] | |
| 78 | |
| 79 class TypeInfo_Am : TypeInfo_Al | |
| 80 { | |
| 81 char[] toString() { return "ulong[]"; } | |
| 82 | |
| 83 int compare(void *p1, void *p2) | |
| 84 { | |
| 85 ulong[] s1 = *cast(ulong[]*)p1; | |
| 86 ulong[] s2 = *cast(ulong[]*)p2; | |
| 87 size_t len = s1.length; | |
| 88 | |
| 89 if (s2.length < len) | |
| 90 len = s2.length; | |
| 91 for (size_t u = 0; u < len; u++) | |
| 92 { | |
| 93 if (s1[u] < s2[u]) | |
| 94 return -1; | |
| 95 else if (s1[u] > s2[u]) | |
| 96 return 1; | |
| 97 } | |
| 98 if (s1.length < s2.length) | |
| 99 return -1; | |
| 100 else if (s1.length > s2.length) | |
| 101 return 1; | |
| 102 return 0; | |
| 103 } | |
| 104 | |
| 105 TypeInfo next() | |
| 106 { | |
| 107 return typeid(ulong); | |
| 108 } | |
| 109 } |