view tests/mini/nested13.d @ 1595:628433c343b4

Fixed DStress tests nocompile/c/{const_32_B.d,const_32_C.d}. Updated the runtest script to build libtangobos-partial.a if it hasn't already been built. Added in signbit() and va_arg!()() to libtangobos-partial.a so more of the phobos dependent DStress tests pass.
author Robert Clipsham <robert@octarineparrot.com>
date Sun, 08 Nov 2009 16:16:17 +0000
parents 27948fd2e7ef
children
line wrap: on
line source

module mini.nested13;

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

void main()
{
    int var = 2;

    void exec(void delegate() dg)
    {
        printf("var = %d\n", var);
        dg();
    }

    void foo()
    {
        printf("var = %d\n", var);
        assert(var == 5);
    }

    void bar()
    {
        printf("var = %d\n", var);
        var += 3;
        exec(&foo);
    }

    printf("var = %d\n", var);
    exec(&bar);

    return;
}