From abe8ca3b957307e916e753448d446cd3e5e3f8a3 Mon Sep 17 00:00:00 2001
From: Alex Shinn <alexshinn@gmail.com>
Date: Thu, 7 May 2020 21:48:51 +0900
Subject: [PATCH] obi-wan error

---
 gc.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gc.c b/gc.c
index c821f0f0..942eb1b6 100644
--- a/gc.c
+++ b/gc.c
@@ -631,7 +631,7 @@ void* sexp_alloc (sexp ctx, size_t size) {
 #endif
   size = sexp_heap_align(size) + SEXP_GC_PAD;
 #if SEXP_USE_TRACK_ALLOC_SIZES
-  size_bucket = (size - SEXP_GC_PAD) / sexp_heap_align(1);
+  size_bucket = (size - SEXP_GC_PAD) / sexp_heap_align(1) - 1;
   ++sexp_context_alloc_histogram(ctx)[size_bucket >= SEXP_ALLOC_HISTOGRAM_BUCKETS ? SEXP_ALLOC_HISTOGRAM_BUCKETS-1 : size_bucket];
 #endif
   res = sexp_try_alloc(ctx, size);