Fix build of 5 runtime (#2086)

mshinwell · web-flow · commit b4dd4bf93115 · 2023-11-27T09:17:11.000Z
diff --git a/ocaml/runtime/shared_heap.c b/ocaml/runtime/shared_heap.c
@@ -875,7 +875,7 @@ static void compact_update_block(header_t* p)
   if (tag == Cont_tag) {
     value stk = Field(Val_hp(p), 0);
     if (Ptr_val(stk)) {
-      caml_scan_stack(&compact_update_value, 0, NULL, Ptr_val(stk), 0);
+      caml_scan_stack(&compact_update_value, 0, NULL, Ptr_val(stk), 0, NULL);
     }
   } else {
     uintnat offset = 0;

Original file line number	Diff line number	Diff line change
`@@ -875,7 +875,7 @@ static void compact_update_block(header_t* p)`
`875`	`875`	`if (tag == Cont_tag) {`
`876`	`876`	`value stk = Field(Val_hp(p), 0);`
`877`	`877`	`if (Ptr_val(stk)) {`
`878`		`- caml_scan_stack(&compact_update_value, 0, NULL, Ptr_val(stk), 0);`
	`878`	`+ caml_scan_stack(&compact_update_value, 0, NULL, Ptr_val(stk), 0, NULL);`
`879`	`879`	`}`
`880`	`880`	`} else {`
`881`	`881`	`uintnat offset = 0;`