view tests/mini/vararg1.d @ 1065:dc576c7e4b1e

Fix to make sure to create gen/ in build dir and unbreak build with older perl
author Frits van Bommel <fvbommel wxs.nl>
date Sun, 08 Mar 2009 16:37:55 +0100
parents 44f08170f4ef
children
line wrap: on
line source

module vararg1;

import tango.stdc.stdarg;

extern(C) int add(int n, ...)
{
    va_list ap=void;
    va_start(ap, n);
    int r;
    for (int i=0; i<n; i++)
        r += va_arg!(int)(ap);
    va_end(ap);
    return r;
}

void main()
{
    int i = add(4, 1,2,3,4);
    assert(i == 10);
}