Skip to content

Commit b76b8bd

Browse files
committed
Fix bug in caml_gc_counters in the 5 runtime
1 parent 599fe9c commit b76b8bd

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

ocaml/runtime/gc_ctrl.c

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -109,8 +109,8 @@ CAMLprim value caml_gc_counters(value v)
109109

110110
/* get a copy of these before allocating anything... */
111111
double minwords = Caml_state->stat_minor_words
112-
+ ((double) Wsize_bsize ((uintnat)Caml_state->young_end -
113-
(uintnat) Caml_state->young_ptr)) / sizeof(value);
112+
+ (double) Wsize_bsize ((uintnat)Caml_state->young_end -
113+
(uintnat) Caml_state->young_ptr);
114114
double prowords = Caml_state->stat_promoted_words;
115115
double majwords = Caml_state->stat_major_words +
116116
(double) Caml_state->allocated_words;

0 commit comments

Comments
 (0)