Mercurial > projects > ldc
view runtime/internal/typeinfo/ti_Ashort.d @ 837:331a176c1f4f
Removed error on naked, not fully complete, but I'll be doing more work on it during this Christmas, and some things do work.
Fixed taking delegate of final class method. see mini/delegate3.d.
author | Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> |
---|---|
date | Tue, 09 Dec 2008 14:07:30 +0100 |
parents | 44f08170f4ef |
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); } }