annotate libphobos/libdruntime/rt/invariant.d @ 158:494b0b89df80 default tip

...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 25 May 2020 18:13:55 +0900
parents 1830386684a0
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
145
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
1 /**
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
2 * Implementation of invariant support routines.
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
3 *
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
4 * Copyright: Copyright Digital Mars 2007 - 2010.
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
5 * License: $(WEB www.boost.org/LICENSE_1_0.txt, Boost License 1.0).
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
6 * Authors: Walter Bright
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
7 */
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
8
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
9 /* Copyright Digital Mars 2007 - 2010.
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
10 * Distributed under the Boost Software License, Version 1.0.
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
11 * (See accompanying file LICENSE or copy at
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
12 * http://www.boost.org/LICENSE_1_0.txt)
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
13 */
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
14
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
15
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
16 /**
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
17 *
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
18 */
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
19 void _d_invariant(Object o)
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
20 { ClassInfo c;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
21
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
22 //printf("__d_invariant(%p)\n", o);
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
23
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
24 // BUG: needs to be filename/line of caller, not library routine
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
25 assert(o !is null); // just do null check, not invariant check
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
26
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
27 c = typeid(o);
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
28 do
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
29 {
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
30 if (c.classInvariant)
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
31 {
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
32 (*c.classInvariant)(o);
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
33 }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
34 c = c.base;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
35 } while (c);
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
36 }