ikarus/src/runtime/ikarus-weak-pairs.c

38 lines
729 B
C

#include "ikarus.h"
ikp
ikrt_weak_cons(ikp a, ikp d, ikpcb* pcb){
ikp ap = pcb->weak_pairs_ap;
ikp nap = ap + pair_size;
ikp p;
if(nap > pcb->weak_pairs_ep){
ikp mem = ik_mmap_typed(pagesize, weak_pairs_mt, pcb);
pcb->weak_pairs_ap = mem + pair_size;
pcb->weak_pairs_ep = mem + pagesize;
p = mem + pair_tag;
}
else {
pcb->weak_pairs_ap = nap;
p = ap + pair_tag;
}
ref(p, off_car) = a;
ref(p, off_cdr) = d;
return p;
}
ikp
ikrt_is_weak_pair(ikp x, ikpcb* pcb){
if(tagof(x) != pair_tag){
return false_object;
}
unsigned int t = pcb->segment_vector[page_index(x)];
if((t & type_mask) == weak_pairs_type){
return true_object;
} else {
return false_object;
}
}