Mercurial > projects > ldc
view runtime/internal/invariant.d @ 1198:f48500f9350c
Ported script to Tango
author | larsivi@larsivi-gutsy |
---|---|
date | Tue, 07 Apr 2009 18:37:19 +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); }