view tangotests/nested2.d @ 306:0baca2feb554 trunk

[svn r327] Fixed some more MinGW32 issues. It's now very close to working. Fixed problems with inline asm like: mov EAX, FS:4 , which incidentally is used in the runtime to get the stack bottom, on Windows.
author lindquist
date Fri, 27 Jun 2008 23:58:22 +0200
parents 88252a1af660
children
line wrap: on
line source

module tangotests.nested2;

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 0;
}