From 4d20797df3119aff0439d60ea318535d88d17396 Mon Sep 17 00:00:00 2001 From: Hannes Mehnert Date: Fri, 26 Mar 2021 12:10:31 +0100 Subject: [PATCH] checksum stubs: drop "caml_" from their name --- src/tcpip_checksum/checksum_stubs.c | 8 ++++---- src/tcpip_checksum/tcpip_checksum.ml | 4 ++-- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/src/tcpip_checksum/checksum_stubs.c b/src/tcpip_checksum/checksum_stubs.c index ea0d03d50..fb13534fe 100644 --- 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 index b35bf26da..fc8331e00 100644 --- 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"