add new function to headers

ncik-roberts · ncik-roberts · commit be708749ef1e · 2024-04-07T16:01:21.000-04:00
diff --git a/ocaml/runtime/alloc.c b/ocaml/runtime/alloc.c
@@ -100,7 +100,7 @@ CAMLexport value caml_alloc_shr_check_gc (mlsize_t wosize, tag_t tag)
 }
 
 CAMLexport value caml_alloc_mixed_shr_check_gc (mlsize_t wosize, tag_t tag,
-                                                intnat scannable_prefix_len)
+                                                mlsize_t scannable_prefix_len)
 {
   reserved_t reserved =
     Reserved_mixed_block_scannable_wosize(scannable_prefix_len);
diff --git a/ocaml/runtime/caml/alloc.h b/ocaml/runtime/caml/alloc.h
@@ -46,6 +46,8 @@ CAMLextern value caml_alloc_9(tag_t, value, value, value, value,
 CAMLextern value caml_alloc_small (mlsize_t, tag_t);
 CAMLextern value caml_alloc_small_with_reserved (mlsize_t, tag_t, reserved_t);
 CAMLextern value caml_alloc_shr_check_gc (mlsize_t, tag_t);
+CAMLextern value caml_alloc_mixed_shr_check_gc (mlsize_t, tag_t,
+                                                mlsize_t scannable_wosize);
 CAMLextern value caml_alloc_tuple (mlsize_t);
 CAMLextern value caml_alloc_float_array (mlsize_t len);
 CAMLextern value caml_alloc_string (mlsize_t len);  /* len in bytes (chars) */

Original file line number	Diff line number	Diff line change
`@@ -100,7 +100,7 @@ CAMLexport value caml_alloc_shr_check_gc (mlsize_t wosize, tag_t tag)`
`100`	`100`	`}`
`101`	`101`
`102`	`102`	`CAMLexport value caml_alloc_mixed_shr_check_gc (mlsize_t wosize, tag_t tag,`
`103`		`- intnat scannable_prefix_len)`
	`103`	`+ mlsize_t scannable_prefix_len)`
`104`	`104`	`{`
`105`	`105`	`reserved_t reserved =`
`106`	`106`	`Reserved_mixed_block_scannable_wosize(scannable_prefix_len);`