Subversion Repositories or1k_old

/*
 *	Interface routines assumed by gc()
 *
 *	Copyright (C) Barak A. Pearlmutter.
 *	Released under the GPL version 2 or later.
 *
 */
 
typedef struct object *pobj;	/* pointer to a guy of the type we gc */
 
/*
 *	How to mark and unmark objects
 */
 
extern void gc_mark(pobj);
extern void gc_unmark(pobj);
extern int gc_marked(pobj);
 
/* 
 *	How to count and access an object's children
 */
 
extern int n_children(pobj);	/* how many children */
extern pobj child_n(pobj, int);	/* child i, numbered 0..n-1 */
 
/*
 *	How to access the root set
 */
 
extern int root_size(void);	/* number of things in root set */
extern pobj root_elt(int);	/* element i of root set, numbered 0..n-1 */
 
/*
 *	How to access the free list
 */
 
extern void clear_freelist(void);
extern void add_to_free_list(pobj);
 
/*
 *	How to iterate through all objects in memory
 */
 
extern int N_OBJS;
extern pobj obj_number(int);