Mercurial > projects > ldc
view tests/mini/classinfo5.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 | 8d46c475842a |
children |
line wrap: on
line source
extern(C) int printf(char*, ...); class BaseClass {} void main() { Object o_cr = BaseClass.classinfo.create(); Object o_new = new BaseClass; printf("CIaddr: %X\n", cast(size_t*)BaseClass.classinfo); printf("Create: %X\n", cast(size_t*)o_cr.classinfo); printf("New: %X\n", cast(size_t*)o_new.classinfo); assert(cast(size_t*)o_cr.classinfo == cast(size_t*)o_new.classinfo); }