Skip to content
This repository was archived by the owner on Oct 24, 2020. It is now read-only.

Commit 0a1f3e7

Browse files
author
Christopher Zimmermann
committed
prefix c stubs with ocaml_bigstring_unix
1 parent e47f71d commit 0a1f3e7

File tree

2 files changed

+4
-4
lines changed

2 files changed

+4
-4
lines changed

src/bigstring_unix.ml

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -15,8 +15,8 @@ let get_bounds name ?(off=0) ?len t =
1515
then invalid_arg ("Bigstring_unix." ^ name)
1616
else (off, len)
1717

18-
external read_fd : Unix.file_descr -> t -> int -> int -> int = "bigstring_read"
19-
external write_fd : Unix.file_descr -> t -> int -> int -> int = "bigstring_write"
18+
external read_fd : Unix.file_descr -> t -> int -> int -> int = "ocaml_bigstring_unix_read"
19+
external write_fd : Unix.file_descr -> t -> int -> int -> int = "ocaml_bigstring_unix_write"
2020

2121
let read fd ?off ?len t =
2222
let off, len = get_bounds "read" ?off ?len t in

src/bigstring_unix_stubs.c

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -22,7 +22,7 @@
2222
#include <caml/threads.h>
2323

2424
CAMLprim value
25-
bigstring_read(value vfd, value vba, value voff, value vlen)
25+
ocaml_bigstring_unix_read(value vfd, value vba, value voff, value vlen)
2626
{
2727
void *iobuf = ((char *)Caml_ba_data_val(vba)) + Unsigned_long_val(voff);
2828
#ifdef Handle_val
@@ -90,7 +90,7 @@ bigstring_read(value vfd, value vba, value voff, value vlen)
9090
}
9191

9292
CAMLprim value
93-
bigstring_write(value vfd, value vba, value voff, value vlen)
93+
ocaml_bigstring_unix_write(value vfd, value vba, value voff, value vlen)
9494
{
9595
char *iobuf = ((char *)Caml_ba_data_val(vba)) + Unsigned_long_val(voff);
9696
#ifdef Handle_val

0 commit comments

Comments
 (0)