VM: silly error: should be index * check_r_count, not index + check_r_count

diff --git a/vm/gc_info.hpp b/vm/gc_info.hpp
index 60794a79a0009e459e54b97fe95ababb9f0af9b6..06710aa856895343164f74a9aebaccc823e2ed6e 100644 (file)
--- a/vm/gc_info.hpp
+++ b/vm/gc_info.hpp
@@ -61,7 +61,7 @@ struct gc_info {
         return_address_count * scrub_d_count +
         return_address_count * scrub_r_count +
         return_address_count * check_d_count;
-    return base + index + check_r_count;
+    return base + index * check_r_count;
   }
 
   cell callsite_gc_roots(cell index) {