From 146229666d039720e5ee56d21b8e937abc23f18a Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 12 May 2017 21:03:42 -0700 Subject: gc: use symbolic constants for special vec slots. * gc.c (mark_obj): The vector alloc size and length which lie at negative indices should be accessed using the index constants vec_alloc and vec_length, rather than -2 and -1. --- gc.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/gc.c b/gc.c index e42e7552..dea37403 100644 --- a/gc.c +++ b/gc.c @@ -371,12 +371,12 @@ tail_call: return; case VEC: { - val alloc_size = obj->v.vec[-2]; - val fill_ptr = obj->v.vec[-1]; - cnum i, fp = c_num(fill_ptr); + val alloc_size = obj->v.vec[vec_alloc]; + val len = obj->v.vec[vec_length]; + cnum i, fp = c_num(len); mark_obj(alloc_size); - mark_obj(fill_ptr); + mark_obj(len); for (i = 0; i < fp; i++) mark_obj(obj->v.vec[i]); -- cgit v1.2.3