Merge pull request #565 from MatthewFluet/translate-heap-issue-560

Fix bug in heap translation
MLton · May 16, 2024 · 009a897 · 009a897
2 parents b20e542 + 464ed52
commit 009a897
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/runtime/gc/translate.c b/runtime/gc/translate.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 2010,2019-2020 Matthew Fluet.
+/* Copyright (C) 2010,2019-2020,2024 Matthew Fluet.
  * Copyright (C) 1999-2007 Henry Cejtin, Matthew Fluet, Suresh
  *    Jagannathan, and Stephen Weeks.
  * Copyright (C) 1997-2000 NEC Research Institute.
@@ -26,7 +26,7 @@ void translateFun (__attribute__((unused)) GC_state s, objptr *opp, void *env) {
   to = translateState->to;
   p = objptrToPointer (*opp, from);
   if ((from <= p) and
-      (p < from + translateState->size)) {
+      (p <= from + translateState->size)) {
     p = (p - from) + to;
     *opp = pointerToObjptr (p, to);
   }