Mercurial > projects > ldc
view lphobos/typeinfo1/ti_delegate.d @ 1645:1d2d1aa16841
Don't error out with -singleobj, -of, and -c/-output-{bc,ll,o,s}.
author | Matti Niemenmaa <matti.niemenmaa+hg@iki.fi> |
---|---|
date | Tue, 09 Mar 2010 23:20:39 +0200 |
parents | 2c3cd3596187 |
children |
line wrap: on
line source
// delegate module typeinfo1.ti_delegate; alias void delegate(int) dg; class TypeInfo_D : TypeInfo { hash_t getHash(void *p) { long l = *cast(long *)p; return cast(uint)(l + (l >> 32)); } int equals(void *p1, void *p2) { return *cast(dg *)p1 == *cast(dg *)p2; } size_t tsize() { return dg.sizeof; } void swap(void *p1, void *p2) { dg t; t = *cast(dg *)p1; *cast(dg *)p1 = *cast(dg *)p2; *cast(dg *)p2 = t; } uint flags() { return 1; } }