4 template<typename Type>
5 struct data_root : public tagged<Type> {
10 parent->data_roots.push_back((cell)this);
13 explicit data_root(cell value_, factor_vm *parent_)
14 : tagged<Type>(value_), parent(parent_)
19 explicit data_root(Type *value_, factor_vm *parent_) :
20 tagged<Type>(value_), parent(parent_)
25 const data_root<Type>& operator=(const Type *x) { tagged<Type>::operator=(x); return *this; }
26 const data_root<Type>& operator=(const cell &x) { tagged<Type>::operator=(x); return *this; }
31 assert(parent->data_roots.back() == (cell)this);
33 parent->data_roots.pop_back();
37 /* A similar hack for the bignum implementation */
42 gc_bignum(bignum **addr_, factor_vm *parent_) : addr(addr_), parent(parent_)
44 if(*addr_) parent->check_data_pointer(*addr_);
45 parent->bignum_roots.push_back((cell)addr);
51 assert(parent->bignum_roots.back() == (cell)addr);
53 parent->bignum_roots.pop_back();
57 #define GC_BIGNUM(x) gc_bignum x##__data_root(&x,this)