No-one sets frame->_num to 0xff to hit these
Signed-off-by: Keith Packard <keithp@keithp.com>
#define AO_LISP_FRAME_MARK 0x80
static inline int ao_lisp_frame_num(struct ao_lisp_frame *f) {
- if (f->_num == 0xff)
- ao_lisp_abort();
return f->_num & AO_LISP_FRAME_NUM_MASK;
}
static inline int ao_lisp_frame_marked(struct ao_lisp_frame *f) {
- if (f->_num == 0xff)
- ao_lisp_abort();
return f->_num & AO_LISP_FRAME_MARK;
}
static inline struct ao_lisp_frame *
ao_lisp_poly_frame(ao_poly poly) {
- struct ao_lisp_frame *frame = ao_lisp_ref(poly);
- if (frame && frame->_num == 0xff)
- ao_lisp_abort();
return ao_lisp_ref(poly);
}
{
if (!frame)
return AO_LISP_NIL;
- if (frame->_num == 0xff)
- ao_lisp_abort();
frame->_num |= AO_LISP_FRAME_MARK;
return ao_lisp_frame_poly(frame);
}