let intr_read fd buf ofs len =
  if (ofs < 0) || ((len < 0) || (ofs > ((String.length buf) - len)))
  then invalid_arg "ExtUnix.intr_read"
  else unsafe_intr_read fd buf ofs len