38 lines
729 B
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;
|
||
|
}
|
||
|
}
|
||
|
|
||
|
|