view lphobos/typeinfo1/ti_delegate.d @ 1274:4ff9ab0d472c

Check in some old changes to the binding, from before I had commit access. - Add bindings for InsertValue and ExtractValue - Updates to use new APIs where they were renamed or removed. - Add generic error messages if LLVM didn't provide one. - Enable typesafe variadic arguments for GetGEP.
author Frits van Bommel <fvbommel wxs.nl>
date Mon, 27 Apr 2009 22:34:36 +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;
    }
}