ec: fix 25519_pub_ok

hannesm · hannesm · commit 38199d926538 · 2024-02-09T13:15:18.000+01:00
diff --git a/ec/native/curve25519_stubs.c b/ec/native/curve25519_stubs.c
@@ -1858,6 +1858,6 @@ CAMLprim value mc_25519_pub_ok(value key)
   CAMLparam1(key);
   int success = 0;
   ge_p3 B;
-  success = x25519_ge_frombytes_vartime(&B, Caml_ba_data_val(key));
+  success = x25519_ge_frombytes_vartime(&B, Bytes_val(key));
   CAMLreturn(Val_bool(success));
 }

Original file line number	Diff line number	Diff line change
`@@ -1858,6 +1858,6 @@ CAMLprim value mc_25519_pub_ok(value key)`
`1858`	`1858`	`CAMLparam1(key);`
`1859`	`1859`	`int success = 0;`
`1860`	`1860`	`ge_p3 B;`
`1861`		`- success = x25519_ge_frombytes_vartime(&B, Caml_ba_data_val(key));`
	`1861`	`+ success = x25519_ge_frombytes_vartime(&B, Bytes_val(key));`
`1862`	`1862`	`CAMLreturn(Val_bool(success));`
`1863`	`1863`	`}`