Mercurial > projects > ldc
view tests/mini/classes6.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 | 6aaa3d3c1183 |
children |
line wrap: on
line source
module classes6; extern(C) int printf(char*, ...); class C { void f() { printf("world\n"); } } class D : C { void f() { printf("moon\n"); } } extern(C) { void srand(uint seed); int rand(); } import ldc.intrinsics; void main() { C c; srand(readcyclecounter()); if (rand() % 2) c = new C; else c = new D; c.f(); }