Mercurial > projects > ldc
view tests/mini/nested13.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 | a34078905d01 |
children | 27948fd2e7ef |
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 0; }