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