Mercurial > projects > ldc
view tango/lib/compiler/llvmdc/typeinfo/ti_Ashort.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 |
line wrap: on
line source
module typeinfo.ti_Ashort; private import tango.stdc.string; // short[] class TypeInfo_As : TypeInfo_Array { char[] toString() { return "short[]"; } hash_t getHash(void *p) { short[] s = *cast(short[]*)p; size_t len = s.length; short *str = s.ptr; hash_t hash = 0; while (1) { switch (len) { case 0: return hash; case 1: hash *= 9; hash += *cast(ushort *)str; return hash; default: hash *= 9; hash += *cast(uint *)str; str += 2; len -= 2; break; } } return hash; } int equals(void *p1, void *p2) { short[] s1 = *cast(short[]*)p1; short[] s2 = *cast(short[]*)p2; return s1.length == s2.length && memcmp(cast(void *)s1, cast(void *)s2, s1.length * short.sizeof) == 0; } int compare(void *p1, void *p2) { short[] s1 = *cast(short[]*)p1; short[] s2 = *cast(short[]*)p2; size_t len = s1.length; if (s2.length < len) len = s2.length; for (size_t u = 0; u < len; u++) { int result = s1[u] - s2[u]; if (result) return result; } if (s1.length < s2.length) return -1; else if (s1.length > s2.length) return 1; return 0; } size_t tsize() { return (short[]).sizeof; } uint flags() { return 1; } TypeInfo next() { return typeid(short); } } // ushort[] class TypeInfo_At : TypeInfo_As { char[] toString() { return "ushort[]"; } int compare(void *p1, void *p2) { ushort[] s1 = *cast(ushort[]*)p1; ushort[] s2 = *cast(ushort[]*)p2; size_t len = s1.length; if (s2.length < len) len = s2.length; for (size_t u = 0; u < len; u++) { int result = s1[u] - s2[u]; if (result) return result; } if (s1.length < s2.length) return -1; else if (s1.length > s2.length) return 1; return 0; } TypeInfo next() { return typeid(ushort); } } // wchar[] class TypeInfo_Au : TypeInfo_At { char[] toString() { return "wchar[]"; } TypeInfo next() { return typeid(wchar); } }