Mercurial > projects > ldc
view runtime/internal/invariant.d @ 1649:36da40ecbbe0
Added tag 0.9.2 for changeset 18bbb1436153
author | Christian Kamm <kamm incasoftware de> |
---|---|
date | Fri, 19 Mar 2010 09:31:25 +0100 |
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); }