3 template <typename Type> struct data_root : public tagged<Type> {
7 parent->data_roots.push_back(data_root_range(&this->value_, 1));
10 data_root(cell value_, factor_vm* parent_)
11 : tagged<Type>(value_), parent(parent_) {
15 data_root(Type* value_, factor_vm* parent_)
16 : tagged<Type>(value_), parent(parent_) {
20 const data_root<Type>& operator=(const Type* x) {
21 tagged<Type>::operator=(x);
24 const data_root<Type>& operator=(const cell& x) {
25 tagged<Type>::operator=(x);
29 ~data_root() { parent->data_roots.pop_back(); }
32 /* A similar hack for the bignum implementation */
37 gc_bignum(bignum** addr_, factor_vm* parent_) : addr(addr_), parent(parent_) {
39 parent->check_data_pointer(*addr_);
40 parent->bignum_roots.push_back((cell) addr);
45 FACTOR_ASSERT(parent->bignum_roots.back() == (cell) addr);
47 parent->bignum_roots.pop_back();
51 #define GC_BIGNUM(x) gc_bignum x##__data_root(&x, this)