Mercurial > projects > ldc
view runtime/internal/invariant.d @ 1645:1d2d1aa16841
Don't error out with -singleobj, -of, and -c/-output-{bc,ll,o,s}.
author | Matti Niemenmaa <matti.niemenmaa+hg@iki.fi> |
---|---|
date | Tue, 09 Mar 2010 23:20:39 +0200 |
parents | d7ec997de427 |
children |
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) { void delegate() inv; inv.ptr = cast(void*) o; inv.funcptr = c.classInvariant; inv(); } c = c.base; } while (c); }