diff options
| author | Keith Packard <keithp@keithp.com> | 2016-11-05 15:12:05 -0700 |
|---|---|---|
| committer | Keith Packard <keithp@keithp.com> | 2017-02-20 11:16:50 -0800 |
| commit | 286d07d83bd7ff361e5a904c151a75e5a9c8b071 (patch) | |
| tree | 1232516bf90042b01779373c1e740063a7839099 /src/lisp/ao_lisp_mem.c | |
| parent | 3366efb139653939f053c1fe4aba352ba3b66c94 (diff) | |
altos/lisp: make sure stack->formals_last gets moved during GC
Failing this leads to broken formals chains
Signed-off-by: Keith Packard <keithp@keithp.com>
Diffstat (limited to 'src/lisp/ao_lisp_mem.c')
| -rw-r--r-- | src/lisp/ao_lisp_mem.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/lisp/ao_lisp_mem.c b/src/lisp/ao_lisp_mem.c index 29d8dbf4..9e716da9 100644 --- a/src/lisp/ao_lisp_mem.c +++ b/src/lisp/ao_lisp_mem.c @@ -35,8 +35,8 @@ uint8_t ao_lisp_pool[AO_LISP_POOL] __attribute__((aligned(4))); #define DBG_POOL #endif -#if 1 -#define DBG_DUMP +#if 0 +#define DBG_DUMP 0 #define DBG_OFFSET(a) ((int) ((uint8_t *) (a) - ao_lisp_pool)) #define DBG(...) printf(__VA_ARGS__) #define DBG_DO(a) a @@ -194,7 +194,7 @@ move_object(void) DBG_MOVE("move done\n"); } -#ifdef DBG_DUMP +#if DBG_DUMP static void dump_busy(void) { |