115 bucket = hashbuckets[bucket].
next;
119 *infoptr = &hashbuckets[bucket].
info;
141 long copy_flag, heap_flag;
153 t2 =
copy(t1,copy_flag,heap_flag);
221 long copy_flag,heap_flag;
225 long local_copy_flag;
251 Errorline(
"psi-term too large -- get a bigger Life!\n");
255 if (copy_flag==
EVAL_FLAG && !t->type->evaluate_args)
258 local_copy_flag=copy_flag;
282 switch((
long)t->type->type_def) {
284 if (t->type->properties)
310 if (heap_flag==
HEAP) {
489 flag = t->type->evaluate_args;
493 if (!flag && *infoptr) {
513 switch((
long)t->type->type_def) {
515 if (t->type->properties)
569 if (u && !*infoptr)
return;
573 else *infoptr =
FALSE;
606 if (t && !(t->status&
RMASK)) {
635 if (t && !(t->status&
RMASK)) {
static struct hashentry hashtable[HASHSIZE]
void mark_eval_new(ptr_psi_term t)
ptr_psi_term translate(ptr_psi_term a, long **infoptr)
void push_ptr_value(type_ptr t, GENERIC *p)
ptr_psi_term exact_copy(ptr_psi_term t, long heap_flag)
void mark_quote_tree_c(ptr_node n, long heap_flag)
void bk_mark_quote_tree(ptr_node t)
void mark_nonstrict(ptr_psi_term t)
void insert_translation(ptr_psi_term a, ptr_psi_term b, long info)
ptr_node distinct_tree(ptr_node t)
void mark_eval_tree_new(ptr_node n)
long abort_life(int nlflag)
void traceline(char *format,...)
ptr_psi_term quote_copy(ptr_psi_term t, long heap_flag)
void Errorline(char *format,...)
void bk_mark_quote(ptr_psi_term t)
ptr_psi_term distinct_copy(ptr_psi_term t)
void mark_quote_tree_new(ptr_node n)
ptr_psi_term copy(ptr_psi_term t, long copy_flag, long heap_flag)
static ptr_node copy_tree(ptr_node t, long copy_flag, long heap_flag)
void mark_eval(ptr_psi_term t)
void mark_quote_c(ptr_psi_term t, long heap_flag)
static struct hashbucket * hashbuckets
void mark_quote_new(ptr_psi_term t)
ptr_psi_term inc_heap_copy(ptr_psi_term t)
void mark_quote(ptr_psi_term t)
static long mark_nonstrict_flag
struct wl_psi_term * ptr_psi_term
unsigned long global_time_stamp
ptr_psi_term eval_copy(ptr_psi_term t, long heap_flag)
void mark_quote_new2(ptr_psi_term t)
ptr_choice_point choice_stack