Mercurial > projects > ldc
view runtime/internal/invariant.d @ 1332:de7fad0ad243
Added testcase for #288 .
author | Tomas Lindquist Olsen <tomas.l.olsen gmail com> |
---|---|
date | Sun, 10 May 2009 14:37:30 +0200 |
parents | d30c40f1128d |
children | d7ec997de427 |
line wrap: on
line source
/* * Placed into the Public Domain * written by Walter Bright * www.digitalmars.com */ extern(C) void _d_invariant(Object o) { ClassInfo c; //printf("__d_invariant(%p)\n", o); // BUG: needs to be filename/line of caller, not library routine assert(o !is null); // just do null check, not invariant check c = o.classinfo; do { if (c.classInvariant) { (*c.classInvariant)(o); } c = c.base; } while (c); }