1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
/*
* duk_heaphdr assertion helpers
*/
#include "duk_internal.h"
#if defined(DUK_USE_ASSERTIONS)
#if defined(DUK_USE_DOUBLE_LINKED_HEAP)
DUK_INTERNAL void duk_heaphdr_assert_links(duk_heap *heap, duk_heaphdr *h) {
DUK_UNREF(heap);
if (h != NULL) {
duk_heaphdr *h_prev, *h_next;
h_prev = DUK_HEAPHDR_GET_PREV(heap, h);
h_next = DUK_HEAPHDR_GET_NEXT(heap, h);
DUK_ASSERT(h_prev == NULL || (DUK_HEAPHDR_GET_NEXT(heap, h_prev) == h));
DUK_ASSERT(h_next == NULL || (DUK_HEAPHDR_GET_PREV(heap, h_next) == h));
}
}
#else
DUK_INTERNAL void duk_heaphdr_assert_links(duk_heap *heap, duk_heaphdr *h) {
DUK_UNREF(heap);
DUK_UNREF(h);
}
#endif
DUK_INTERNAL void duk_heaphdr_assert_valid(duk_heaphdr *h) {
DUK_ASSERT(h != NULL);
DUK_ASSERT(DUK_HEAPHDR_HTYPE_VALID(h));
}
/* Assert validity of a heaphdr, including all subclasses. */
DUK_INTERNAL void duk_heaphdr_assert_valid_subclassed(duk_heaphdr *h) {
switch (DUK_HEAPHDR_GET_TYPE(h)) {
case DUK_HTYPE_OBJECT: {
duk_hobject *h_obj = (duk_hobject *) h;
DUK_HOBJECT_ASSERT_VALID(h_obj);
if (DUK_HOBJECT_IS_COMPFUNC(h_obj)) {
DUK_HCOMPFUNC_ASSERT_VALID((duk_hcompfunc *) h_obj);
} else if (DUK_HOBJECT_IS_NATFUNC(h_obj)) {
DUK_HNATFUNC_ASSERT_VALID((duk_hnatfunc *) h_obj);
} else if (DUK_HOBJECT_IS_DECENV(h_obj)) {
DUK_HDECENV_ASSERT_VALID((duk_hdecenv *) h_obj);
} else if (DUK_HOBJECT_IS_OBJENV(h_obj)) {
DUK_HOBJENV_ASSERT_VALID((duk_hobjenv *) h_obj);
} else if (DUK_HOBJECT_IS_BUFOBJ(h_obj)) {
#if defined(DUK_USE_BUFFEROBJECT_SUPPORT)
DUK_HBUFOBJ_ASSERT_VALID((duk_hbufobj *) h_obj);
#endif
} else if (DUK_HOBJECT_IS_BOUNDFUNC(h_obj)) {
DUK_HBOUNDFUNC_ASSERT_VALID((duk_hboundfunc *) h_obj);
} else if (DUK_HOBJECT_IS_PROXY(h_obj)) {
DUK_HPROXY_ASSERT_VALID((duk_hproxy *) h_obj);
} else if (DUK_HOBJECT_IS_THREAD(h_obj)) {
DUK_HTHREAD_ASSERT_VALID((duk_hthread *) h_obj);
} else {
/* Just a plain object. */
;
}
break;
}
case DUK_HTYPE_STRING: {
duk_hstring *h_str = (duk_hstring *) h;
DUK_HSTRING_ASSERT_VALID(h_str);
break;
}
case DUK_HTYPE_BUFFER: {
duk_hbuffer *h_buf = (duk_hbuffer *) h;
DUK_HBUFFER_ASSERT_VALID(h_buf);
break;
}
default: {
DUK_ASSERT(0);
}
}
}
#endif /* DUK_USE_ASSERTIONS */
|
