Merge pull request #9 from janestreet/v0.14.2-fix-bytecode-bits-stubs

cwong-ocaml · web-flow · commit 02c41d4c3bfc · 2021-03-25T13:04:00.000-04:00
Patch the v0.14.1 opam release with a byte code fix.
diff --git a/src/bits_stubs.c b/src/bits_stubs.c
@@ -35,7 +35,7 @@ CAMLprim value hardcaml_bits_mask(intnat width, value vdst) {
 }
 
 CAMLprim value hardcaml_bits_mask_bc(value width, value vdst) {
-  return hardcaml_bits_mask(Val_int(width), vdst);
+  return hardcaml_bits_mask(Int_val(width), vdst);
 }
 
 /* Add two multiword [Bits.t].  The widths of the arguments and results are the same.

Original file line number	Diff line number	Diff line change
`@@ -35,7 +35,7 @@ CAMLprim value hardcaml_bits_mask(intnat width, value vdst) {`
`35`	`35`	`}`
`36`	`36`
`37`	`37`	`CAMLprim value hardcaml_bits_mask_bc(value width, value vdst) {`
`38`		`- return hardcaml_bits_mask(Val_int(width), vdst);`
	`38`	`+ return hardcaml_bits_mask(Int_val(width), vdst);`
`39`	`39`	`}`
`40`	`40`
`41`	`41`	`/* Add two multiword [Bits.t]. The widths of the arguments and results are the same.`