source: abuse/tags/pd/macabuse/inc/lisp_gc.hpp Tweet

#include "stack.hpp"
#ifndef __LISP_GC_HPP_
#define __LISP_GC_HPP_

extern grow_stack<void> l_user_stack;       // stack user progs can push data and have it GCed
extern grow_stack<void *>l_ptr_stack;      // stack of user pointers, user pointers get remapped on GC

void collect_space(int which_space); // should be tmp or permenant

void register_pointer(void *&addr);
void unregister_pointer(void *&addr);

class p_ref {
  public :
  p_ref(void *&ref) { l_ptr_stack.push(&ref); }
  ~p_ref() { l_ptr_stack.pop(1); }
} ;


#endif