/* Delete all objects in list 'p' until (but not including) object 'limit'.  */
static void deletelist(lua_State *L, GCObject *p, GCObject *limit)
/* Delete all objects in list 'p' until (but not including) object 'limit'.  */
static void deletelist(lua_State *L, GCObject *p, GCObject *limit)
{
    GCObject *next = p->next;
    freeobj(L, p);
    p = next;
  }
}