view tests/mini/vararg4.d @ 1442:0a5f7890f327

Adjust some more code that was depending on the function and delegate calling conventions being equal. There's also an instance in `tango.text.convert.Layout` that should be adjusted: {{{ Index: tango/text/convert/Layout.d =================================================================== --- tango/text/convert/Layout.d (revision 4578) +++ tango/text/convert/Layout.d (working copy) -660,8 +660,12 @@ case TypeCode.STRUCT: auto s = cast(TypeInfo_Struct) type; - if (s.xtoString) - return Utf.fromString8 (s.xtoString(p), result); + if (s.xtoString) { + char[] delegate() toString; + toString.ptr = p; + toString.funcptr = cast(char[] function()) s.xtoString; + return Utf.fromString8 (toString(), result); + } goto default; case TypeCode.INTERFACE: }}}
author Frits van Bommel <fvbommel wxs.nl>
date Sun, 31 May 2009 15:27:01 +0200
parents 1bb99290e03a
children
line wrap: on
line source

module vararg4;
import tango.core.Vararg;
extern(C) int printf(char*, ...);

void vafunc(...)
{
    foreach(i,v; _arguments) {
        if (typeid(byte) == v) {
            printf("byte(%d)\n", va_arg!(byte)(_argptr));
        }
        else if (typeid(short) == v) {
            printf("short(%d)\n", va_arg!(short)(_argptr));
        }
        else if (typeid(int) == v) {
            printf("int(%d)\n", va_arg!(int)(_argptr));
        }
        else if (typeid(long) == v) {
            printf("long(%ld)\n", va_arg!(long)(_argptr));
        }
        else if (typeid(float) == v) {
            printf("float(%f)\n", va_arg!(float)(_argptr));
        }
        else if (typeid(double) == v) {
            printf("double(%f)\n", va_arg!(double)(_argptr));
        }
        else if (typeid(real) == v) {
            printf("real(%f)\n", va_arg!(real)(_argptr));
        }
        else
        assert(0, "unsupported type");
    }
}

void main()
{
    vafunc(byte.max,short.max,1,2,3,4L,5.0f,6.0,cast(real)7);
}