let intr_pread fd off buf ofs len =
      if off < Int64.zero
      then invalid_arg "ExtUnix.LargeFile.intr_pread"
      else unsafe_intr_pread fd off buf ofs len