Merge pull request #9780 from yallop/remove-unused

Remove some unused primitives.

runtime/intern.c

@@ -868,11 +868,6 @@ CAMLexport value caml_input_val_from_bytes(value str, intnat ofs)
   CAMLreturn (intern_end(obj, h.whsize));
 }
 
-CAMLprim value caml_input_value_from_string(value str, value ofs)
-{
-  return caml_input_val_from_bytes(str, Long_val(ofs));
-}
-
 CAMLprim value caml_input_value_from_bytes(value str, value ofs)
 {
   return caml_input_val_from_bytes(str, Long_val(ofs));

runtime/io.c

@@ -601,19 +601,6 @@ CAMLprim value caml_ml_set_binary_mode(value vchannel, value mode)
    file descriptors that may be closed.
 */
 
-CAMLprim value caml_ml_flush_partial(value vchannel)
-{
-  CAMLparam1 (vchannel);
-  struct channel * channel = Channel(vchannel);
-  int res;
-
-  if (channel->fd == -1) CAMLreturn(Val_true);
-  Lock(channel);
-  res = caml_flush_partial(channel);
-  Unlock(channel);
-  CAMLreturn (Val_bool(res));
-}
-
 CAMLprim value caml_ml_flush(value vchannel)
 {
   CAMLparam1 (vchannel);
@@ -648,19 +635,6 @@ CAMLprim value caml_ml_output_int(value vchannel, value w)
   CAMLreturn (Val_unit);
 }
 
-CAMLprim value caml_ml_output_partial(value vchannel, value buff, value start,
-                                      value length)
-{
-  CAMLparam4 (vchannel, buff, start, length);
-  struct channel * channel = Channel(vchannel);
-  int res;
-
-  Lock(channel);
-  res = caml_putblock(channel, &Byte(buff, Long_val(start)), Long_val(length));
-  Unlock(channel);
-  CAMLreturn (Val_int(res));
-}
-
 CAMLprim value caml_ml_output_bytes(value vchannel, value buff, value start,
                               value length)
 {

runtime/obj.c

@@ -31,12 +31,6 @@
 #include "caml/signals.h"
 #include "caml/spacetime.h"
 
-/* unused since GPR#427 */
-CAMLprim value caml_obj_is_block(value arg)
-{
-  return Val_bool(Is_block(arg));
-}
-
 CAMLprim value caml_obj_tag(value arg)
 {
   if (Is_long (arg)){