diff options
| author | Keith Packard <keithp@keithp.com> | 2016-11-18 22:53:36 -0800 |
|---|---|---|
| committer | Keith Packard <keithp@keithp.com> | 2016-11-18 22:53:36 -0800 |
| commit | 3d16073b82cd966de087fdca8f35058b1ebdc6b6 (patch) | |
| tree | 58bad4f753e36f368725f4642f928da6be297b83 | |
| parent | 50e8f645f72c1cef09d4f735ee76691fcfc9db77 (diff) | |
altos/lisp: Cleanup some DBG defines
Get rid of the remaining duplicate defines.
Signed-off-by: Keith Packard <keithp@keithp.com>
| -rw-r--r-- | src/lisp/ao_lisp.h | 3 | ||||
| -rw-r--r-- | src/lisp/ao_lisp_poly.c | 6 | ||||
| -rw-r--r-- | src/lisp/ao_lisp_read.c | 1 | ||||
| -rw-r--r-- | src/lisp/ao_lisp_stack.c | 1 |
4 files changed, 1 insertions, 10 deletions
diff --git a/src/lisp/ao_lisp.h b/src/lisp/ao_lisp.h index 1a8e7e91..fa3632b1 100644 --- a/src/lisp/ao_lisp.h +++ b/src/lisp/ao_lisp.h @@ -20,7 +20,6 @@ #include <stdint.h> #include <string.h> -//#include <stdio.h> #include <ao_lisp_os.h> typedef uint16_t ao_poly; @@ -735,7 +734,7 @@ int ao_lisp_stack_depth; #define DBG_CONS(a) ao_lisp_cons_print(ao_lisp_cons_poly(a)) #define DBG_POLY(a) ao_lisp_poly_print(a) #define OFFSET(a) ((a) ? (int) ((uint8_t *) a - ao_lisp_pool) : -1) -#define DBG_STACK() ao_lisp_stack_print() +#define DBG_STACK() ao_lisp_stack_print(ao_lisp_stack_poly(ao_lisp_stack)) static inline void ao_lisp_frames_dump(void) { diff --git a/src/lisp/ao_lisp_poly.c b/src/lisp/ao_lisp_poly.c index 800ee06d..fb3b06fe 100644 --- a/src/lisp/ao_lisp_poly.c +++ b/src/lisp/ao_lisp_poly.c @@ -14,12 +14,6 @@ #include "ao_lisp.h" -#if 0 -#define DBG(...) printf (__VA_ARGS__) -#else -#define DBG(...) -#endif - struct ao_lisp_funcs { void (*print)(ao_poly); void (*patom)(ao_poly); diff --git a/src/lisp/ao_lisp_read.c b/src/lisp/ao_lisp_read.c index b792c2f1..84ef2a61 100644 --- a/src/lisp/ao_lisp_read.c +++ b/src/lisp/ao_lisp_read.c @@ -12,7 +12,6 @@ * General Public License for more details. */ -#define DBG_EVAL 0 #include "ao_lisp.h" #include "ao_lisp_read.h" diff --git a/src/lisp/ao_lisp_stack.c b/src/lisp/ao_lisp_stack.c index 9c773e83..ef07b88a 100644 --- a/src/lisp/ao_lisp_stack.c +++ b/src/lisp/ao_lisp_stack.c @@ -12,7 +12,6 @@ * General Public License for more details. */ -#define DBG_EVAL 0 #include "ao_lisp.h" const struct ao_lisp_type ao_lisp_stack_type; |