From: Keith Packard <keithp@keithp.com>
Date: Fri, 18 Nov 2016 00:04:38 +0000 (-0800)
Subject: altos/lisp: Remove some stale frame debugging checks
X-Git-Tag: 1.7~145
X-Git-Url: https://git.gag.com/?p=fw%2Faltos;a=commitdiff_plain;h=2ce7ab37df07b3c1ea1ca9befc06477e3b6cdeac

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 25d13fa3..bcefbabf 100644
--- 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 052d27d7..9d17f6fa 100644
--- 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);
 }