altos/lisp: Remove some stale frame debugging checks

No-one sets frame->_num to 0xff to hit these

Signed-off-by: Keith Packard <keithp@keithp.com>

diff --git a/src/lisp/ao_lisp.h b/src/lisp/ao_lisp.h
index 25d13fa3f7c94a51e14ddbc8ce721f7982cf6aa4..bcefbabf76abeae8fb3b2fae8166bc48c362660d 100644 (file)
--- a/src/lisp/ao_lisp.h
+++ b/src/lisp/ao_lisp.h
@@ -164,22 +164,15 @@ struct ao_lisp_frame {
 #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);
 }
 

diff --git a/src/lisp/ao_lisp_frame.c b/src/lisp/ao_lisp_frame.c
index 052d27d7246f83228de8c9a9d5785cc39eced6de..9d17f6fa37d12946e3d12952c127996d243fb5c6 100644 (file)
--- a/src/lisp/ao_lisp_frame.c
+++ b/src/lisp/ao_lisp_frame.c
@@ -186,8 +186,6 @@ ao_lisp_frame_mark(struct ao_lisp_frame *frame)
 {
        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);
 }