let intr_pread fd off buf =
      if off < 0
      then invalid_arg "ExtUnix.intr_pread"
      else unsafe_intr_pread fd off buf