Mercurial > projects > ldc
view tango/lib/compiler/llvmdc/typeinfo/ti_AC.d @ 270:d9d5d59873d8 trunk
[svn r291] Fixed a bunch of the old Phobos tests to work with Tango.
Branch statements now emit a new block after it.
Fixed the _adSort runtime function had a bad signature.
Added a missing dot prefix on compiler generated string tables for string switch.
Fixed, PTRSIZE seems like it was wrong on 64bit, now it definitely gets set properly.
author | lindquist |
---|---|
date | Mon, 16 Jun 2008 16:01:19 +0200 |
parents | 7816aafeea3c |
children |
line wrap: on
line source
module typeinfo.ti_AC; // Object[] class TypeInfo_AC : TypeInfo_Array { hash_t getHash(void *p) { Object[] s = *cast(Object[]*)p; hash_t hash = 0; foreach (Object o; s) { if (o) hash += o.toHash(); } return hash; } int equals(void *p1, void *p2) { Object[] s1 = *cast(Object[]*)p1; Object[] s2 = *cast(Object[]*)p2; if (s1.length == s2.length) { for (size_t u = 0; u < s1.length; u++) { Object o1 = s1[u]; Object o2 = s2[u]; // Do not pass null's to Object.opEquals() if (o1 is o2 || (!(o1 is null) && !(o2 is null) && o1.opEquals(o2))) continue; return 0; } return 1; } return 0; } int compare(void *p1, void *p2) { Object[] s1 = *cast(Object[]*)p1; Object[] s2 = *cast(Object[]*)p2; ptrdiff_t c; c = cast(ptrdiff_t)s1.length - cast(ptrdiff_t)s2.length; if (c == 0) { for (size_t u = 0; u < s1.length; u++) { Object o1 = s1[u]; Object o2 = s2[u]; if (o1 is o2) continue; // Regard null references as always being "less than" if (o1) { if (!o2) { c = 1; break; } c = o1.opCmp(o2); if (c) break; } else { c = -1; break; } } } if (c < 0) c = -1; else c = 1; return cast(int)c; } size_t tsize() { return (Object[]).sizeof; } uint flags() { return 1; } TypeInfo next() { return typeid(Object); } }