Mercurial > projects > ldc
view lphobos/typeinfo2/ti_AC.d @ 1041:9dca7182aa75
Added some documentation for the IrFuncTyArg structure, which is key to writing ABI transformations.
author | Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> |
---|---|
date | Wed, 04 Mar 2009 16:13:16 +0100 |
parents | 79c9ac745fbc |
children |
line wrap: on
line source
module typeinfo2.ti_AC; // Object[] class TypeInfo_AC : TypeInfo { 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; int c; c = cast(int)s1.length - cast(int)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; } } } return c; } size_t tsize() { return (Object[]).sizeof; } uint flags() { return 1; } TypeInfo next() { return typeid(Object); } }