Mercurial > projects > ldc
view tests/mini/typeinfo10.d @ 811:8e6135be6999
Fixed ModuleInfo generation to no longer use the ModuleInfo class' default initializer for types/defaults, it's unsafe as initializers don't necesarily match the "formal" type. There might be explicit padding.
Changed -g switch to emit DW_LANG_D debug info, make demangling work with a patched GDB, still more work to do for full support of D's Dwarf extensions.
Added getNullValue helper method.
author | Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> |
---|---|
date | Mon, 01 Dec 2008 02:10:16 +0100 |
parents | 1bb99290e03a |
children | 0a5f7890f327 |
line wrap: on
line source
module typeinfo10; struct S { long l; float f; void* vp; hash_t toHash() { return l + cast(size_t)f; } int opEquals(S s) { return (s.l == l) && (s.f == f); } int opCmp(S a) { if (l == a.l) { return (f < a.f) ? -1 : (f > a.f) ? 1 : 0; } return (l < a.l) ? -1 : 1; } char[] toString() { return "S instance"; } } void main() { S s=S(-1, 0); S t=S(-1, 1); S u=S(11,-1); S v=S(12,13); { assert(s == s); assert(s != t); assert(s != v); assert(s < t); assert(u > s); assert(v > u); } { auto ti = typeid(S); assert(ti.getHash(&s) == s.toHash()); assert(ti.equals(&s,&s)); assert(!ti.equals(&s,&t)); assert(!ti.equals(&s,&v)); assert(ti.compare(&s,&s) == 0); assert(ti.compare(&s,&t) < 0); assert(ti.compare(&u,&s) > 0); assert(ti.compare(&v,&u) > 0); { auto tis = cast(TypeInfo_Struct)ti; assert(tis.xtoString(&s) == s.toString()); } } }