view tests/mini/bug24.d @ 963:fa21062b6948

Fix for tests/mini/callingconv1.d
author Kelly Wilson <wilsonk cpsc.ucalgary.ca>
date Sun, 15 Feb 2009 22:56:10 -0700
parents 1bb99290e03a
children
line wrap: on
line source

module bug24;
extern(C) int printf(char*, ...);

struct S
{
    long l;
    float f;
}

void main()
{
    S s = S(3L,2f);
    delegate {
        S t = S(4L, 1f);
        delegate {
            s.l += t.l;
            s.f += t.f;
        }();
    }();
    printf("%lu %f\n", s.l, s.f);
    assert(s.l == 7 && s.f == 3);
}