Merge pull request #445 from hannesm/rename-checsum-stubs

checksum stubs: drop "caml_" from their name
mirage · Mar 26, 2021 · fb5768c · fb5768c
2 parents f0b0094 + 4d20797
commit fb5768c
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/src/tcpip_checksum/checksum_stubs.c b/src/tcpip_checksum/checksum_stubs.c
@@ -69,7 +69,7 @@ ones_complement_checksum_bigarray(unsigned char *addr, size_t ofs, size_t count,
 }
 
 CAMLprim value
-caml_mirage_tcpip_ones_complement_checksum(value v_cstruct)
+mirage_tcpip_ones_complement_checksum(value v_cstruct)
 {
   CAMLparam1(v_cstruct);
   CAMLlocal3(v_ba, v_ofs, v_len);
@@ -86,7 +86,7 @@ caml_mirage_tcpip_ones_complement_checksum(value v_cstruct)
  * forward as 16-byte 1s complement addition if there are more buffers in
  * the chain. */
 CAMLprim value
-caml_mirage_tcpip_ones_complement_checksum_list(value v_cstruct_list)
+mirage_tcpip_ones_complement_checksum_list(value v_cstruct_list)
 {
   CAMLparam1(v_cstruct_list);
   CAMLlocal4(v_hd, v_ba, v_ofs, v_len);
@@ -264,7 +264,7 @@ checksum_bigarray(unsigned char *addr, size_t ofs, size_t count, uint32_t sum)
 }
 
 CAMLprim value
-caml_mirage_tcpip_ones_complement_checksum(value v_cstruct)
+mirage_tcpip_ones_complement_checksum(value v_cstruct)
 {
   CAMLparam1(v_cstruct);
   CAMLlocal3(v_ba, v_ofs, v_len);
@@ -283,7 +283,7 @@ caml_mirage_tcpip_ones_complement_checksum(value v_cstruct)
  * forward as 16-byte 1s complement addition if there are more buffers in
  * the chain. */
 CAMLprim value
-caml_mirage_tcpip_ones_complement_checksum_list(value v_cstruct_list)
+mirage_tcpip_ones_complement_checksum_list(value v_cstruct_list)
 {
   CAMLparam1(v_cstruct_list);
   CAMLlocal4(v_hd, v_ba, v_ofs, v_len);

diff --git a/src/tcpip_checksum/tcpip_checksum.ml b/src/tcpip_checksum/tcpip_checksum.ml
@@ -15,6 +15,6 @@
  *)
 
 (** One's complement checksum, RFC1071 *)
-external ones_complement: Cstruct.t -> int = "caml_mirage_tcpip_ones_complement_checksum"
+external ones_complement: Cstruct.t -> int = "mirage_tcpip_ones_complement_checksum"
 
-external ones_complement_list: Cstruct.t list -> int = "caml_mirage_tcpip_ones_complement_checksum_list"
+external ones_complement_list: Cstruct.t list -> int = "mirage_tcpip_ones_complement_checksum_list"