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