Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Remove CAMLexport from Cash-exported primitives

master
David Allsopp 2020-09-07 13:54:08 +01:00
parent bf05018a1a
commit 422c20013d
2 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
runtime/caml/io.h
View File

@ -75,9 +75,6 @@ CAMLextern void caml_seek_out (struct channel *, file_offset);
CAMLextern file_offset caml_pos_in (struct channel *);
CAMLextern file_offset caml_pos_out (struct channel *);
CAMLextern void caml_finalize_channel (value);
CAMLextern int caml_do_read (int, char *, unsigned int);
/* I/O on channels from C. The channel must be locked (see below) before
calling any of the functions and macros below */

6
runtime/io.c
View File

@ -266,8 +266,7 @@ CAMLexport file_offset caml_pos_out(struct channel *channel)
/* Input */
/* caml_do_read is exported for Cash */
CAMLexport int caml_do_read(int fd, char *p, unsigned int n)
int caml_do_read(int fd, char *p, unsigned int n)
{
int r;
do {
@ -416,8 +415,7 @@ intnat caml_input_scan_line(struct channel *channel)
objects into a heap-allocated object. Perform locking
and unlocking around the I/O operations. */
/* caml_finalize_channel is exported for Cash */
CAMLexport void caml_finalize_channel(value vchan)
void caml_finalize_channel(value vchan)
{
struct channel * chan = Channel(vchan);
if ((chan->flags & CHANNEL_FLAG_MANAGED_BY_GC) == 0) return;