fs/ntfs3/attrib.c

   1 // SPDX-License-Identifier: GPL-2.0
   2 /*
   3  *
   4  * Copyright (C) 2019-2021 Paragon Software GmbH, All rights reserved.
   5  *
   6  * TODO: Merge attr_set_size/attr_data_get_block/attr_allocate_frame?
   7  */
   8
   9 #include <linux/fs.h>
  10 #include <linux/slab.h>
  11 #include <linux/kernel.h>
  12
  13 #include "debug.h"
  14 #include "ntfs.h"
  15 #include "ntfs_fs.h"
  16
  17 /*
  18  * You can set external NTFS_MIN_LOG2_OF_CLUMP/NTFS_MAX_LOG2_OF_CLUMP to manage
  19  * preallocate algorithm.
  20  */
  21 #ifndef NTFS_MIN_LOG2_OF_CLUMP
  22 #define NTFS_MIN_LOG2_OF_CLUMP 16
  23 #endif
  24
  25 #ifndef NTFS_MAX_LOG2_OF_CLUMP
  26 #define NTFS_MAX_LOG2_OF_CLUMP 26
  27 #endif
  28
  29 // 16M
  30 #define NTFS_CLUMP_MIN (1 << (NTFS_MIN_LOG2_OF_CLUMP + 8))
  31 // 16G
  32 #define NTFS_CLUMP_MAX (1ull << (NTFS_MAX_LOG2_OF_CLUMP + 8))
  33
  34 static inline u64 get_pre_allocated(u64 size)
  35 {
  36         u32 clump;
  37         u8 align_shift;
  38         u64 ret;
  39
  40         if (size <= NTFS_CLUMP_MIN) {
  41                 clump = 1 << NTFS_MIN_LOG2_OF_CLUMP;
  42                 align_shift = NTFS_MIN_LOG2_OF_CLUMP;
  43         } else if (size >= NTFS_CLUMP_MAX) {
  44                 clump = 1 << NTFS_MAX_LOG2_OF_CLUMP;
  45                 align_shift = NTFS_MAX_LOG2_OF_CLUMP;
  46         } else {
  47                 align_shift = NTFS_MIN_LOG2_OF_CLUMP - 1 +
  48                               __ffs(size >> (8 + NTFS_MIN_LOG2_OF_CLUMP));
  49                 clump = 1u << align_shift;
  50         }
  51
  52         ret = (((size + clump - 1) >> align_shift)) << align_shift;
  53
  54         return ret;
  55 }
  56
  57 /*
  58  * attr_load_runs - Load all runs stored in @attr.
  59  */
  60 static int attr_load_runs(struct ATTRIB *attr, struct ntfs_inode *ni,
  61                           struct runs_tree *run, const CLST *vcn)
  62 {
  63         int err;
  64         CLST svcn = le64_to_cpu(attr->nres.svcn);
  65         CLST evcn = le64_to_cpu(attr->nres.evcn);
  66         u32 asize;
  67         u16 run_off;
  68
  69         if (svcn >= evcn + 1 || run_is_mapped_full(run, svcn, evcn))
  70                 return 0;
  71
  72         if (vcn && (evcn < *vcn || *vcn < svcn))
  73                 return -EINVAL;
  74
  75         asize = le32_to_cpu(attr->size);
  76         run_off = le16_to_cpu(attr->nres.run_off);
  77
  78         if (run_off > asize)
  79                 return -EINVAL;
  80
  81         err = run_unpack_ex(run, ni->mi.sbi, ni->mi.rno, svcn, evcn,
  82                             vcn ? *vcn : svcn, Add2Ptr(attr, run_off),
  83                             asize - run_off);
  84         if (err < 0)
  85                 return err;
  86
  87         return 0;
  88 }
  89
  90 /*
  91  * run_deallocate_ex - Deallocate clusters.
  92  */
  93 static int run_deallocate_ex(struct ntfs_sb_info *sbi, struct runs_tree *run,
  94                              CLST vcn, CLST len, CLST *done, bool trim)
  95 {
  96         int err = 0;
  97         CLST vcn_next, vcn0 = vcn, lcn, clen, dn = 0;
  98         size_t idx;
  99
 100         if (!len)
 101                 goto out;
 102
 103         if (!run_lookup_entry(run, vcn, &lcn, &clen, &idx)) {
 104 failed:
 105                 run_truncate(run, vcn0);
 106                 err = -EINVAL;
 107                 goto out;
 108         }
 109
 110         for (;;) {
 111                 if (clen > len)
 112                         clen = len;
 113
 114                 if (!clen) {
 115                         err = -EINVAL;
 116                         goto out;
 117                 }
 118
 119                 if (lcn != SPARSE_LCN) {
 120                         if (sbi) {
 121                                 /* mark bitmap range [lcn + clen) as free and trim clusters. */
 122                                 mark_as_free_ex(sbi, lcn, clen, trim);
 123                         }
 124                         dn += clen;
 125                 }
 126
 127                 len -= clen;
 128                 if (!len)
 129                         break;
 130
 131                 vcn_next = vcn + clen;
 132                 if (!run_get_entry(run, ++idx, &vcn, &lcn, &clen) ||
 133                     vcn != vcn_next) {
 134                         /* Save memory - don't load entire run. */
 135                         goto failed;
 136                 }
 137         }
 138
 139 out:
 140         if (done)
 141                 *done += dn;
 142
 143         return err;
 144 }
 145
 146 /*
 147  * attr_allocate_clusters - Find free space, mark it as used and store in @run.
 148  */
 149 int attr_allocate_clusters(struct ntfs_sb_info *sbi, struct runs_tree *run,
 150                            CLST vcn, CLST lcn, CLST len, CLST *pre_alloc,
 151                            enum ALLOCATE_OPT opt, CLST *alen, const size_t fr,
 152                            CLST *new_lcn, CLST *new_len)
 153 {
 154         int err;
 155         CLST flen, vcn0 = vcn, pre = pre_alloc ? *pre_alloc : 0;
 156         size_t cnt = run->count;
 157
 158         for (;;) {
 159                 err = ntfs_look_for_free_space(sbi, lcn, len + pre, &lcn, &flen,
 160                                                opt);
 161
 162                 if (err == -ENOSPC && pre) {
 163                         pre = 0;
 164                         if (*pre_alloc)
 165                                 *pre_alloc = 0;
 166                         continue;
 167                 }
 168
 169                 if (err)
 170                         goto out;
 171
 172                 if (vcn == vcn0) {
 173                         /* Return the first fragment. */
 174                         if (new_lcn)
 175                                 *new_lcn = lcn;
 176                         if (new_len)
 177                                 *new_len = flen;
 178                 }
 179
 180                 /* Add new fragment into run storage. */
 181                 if (!run_add_entry(run, vcn, lcn, flen, opt & ALLOCATE_MFT)) {
 182                         /* Undo last 'ntfs_look_for_free_space' */
 183                         mark_as_free_ex(sbi, lcn, len, false);
 184                         err = -ENOMEM;
 185                         goto out;
 186                 }
 187
 188                 if (opt & ALLOCATE_ZERO) {
 189                         u8 shift = sbi->cluster_bits - SECTOR_SHIFT;
 190
 191                         err = blkdev_issue_zeroout(sbi->sb->s_bdev,
 192                                                    (sector_t)lcn << shift,
 193                                                    (sector_t)flen << shift,
 194                                                    GFP_NOFS, 0);
 195                         if (err)
 196                                 goto out;
 197                 }
 198
 199                 vcn += flen;
 200
 201                 if (flen >= len || (opt & ALLOCATE_MFT) ||
 202                     (fr && run->count - cnt >= fr)) {
 203                         *alen = vcn - vcn0;
 204                         return 0;
 205                 }
 206
 207                 len -= flen;
 208         }
 209
 210 out:
 211         /* Undo 'ntfs_look_for_free_space' */
 212         if (vcn - vcn0) {
 213                 run_deallocate_ex(sbi, run, vcn0, vcn - vcn0, NULL, false);
 214                 run_truncate(run, vcn0);
 215         }
 216
 217         return err;
 218 }
 219
 220 /*
 221  * attr_make_nonresident
 222  *
 223  * If page is not NULL - it is already contains resident data
 224  * and locked (called from ni_write_frame()).
 225  */
 226 int attr_make_nonresident(struct ntfs_inode *ni, struct ATTRIB *attr,
 227                           struct ATTR_LIST_ENTRY *le, struct mft_inode *mi,
 228                           u64 new_size, struct runs_tree *run,
 229                           struct ATTRIB **ins_attr, struct page *page)
 230 {
 231         struct ntfs_sb_info *sbi;
 232         struct ATTRIB *attr_s;
 233         struct MFT_REC *rec;
 234         u32 used, asize, rsize, aoff;
 235         bool is_data;
 236         CLST len, alen;
 237         char *next;
 238         int err;
 239
 240         if (attr->non_res) {
 241                 *ins_attr = attr;
 242                 return 0;
 243         }
 244
 245         sbi = mi->sbi;
 246         rec = mi->mrec;
 247         attr_s = NULL;
 248         used = le32_to_cpu(rec->used);
 249         asize = le32_to_cpu(attr->size);
 250         next = Add2Ptr(attr, asize);
 251         aoff = PtrOffset(rec, attr);
 252         rsize = le32_to_cpu(attr->res.data_size);
 253         is_data = attr->type == ATTR_DATA && !attr->name_len;
 254
 255         /* len - how many clusters required to store 'rsize' bytes */
 256         if (is_attr_compressed(attr)) {
 257                 u8 shift = sbi->cluster_bits + NTFS_LZNT_CUNIT;
 258                 len = ((rsize + (1u << shift) - 1) >> shift) << NTFS_LZNT_CUNIT;
 259         } else {
 260                 len = bytes_to_cluster(sbi, rsize);
 261         }
 262
 263         run_init(run);
 264
 265         /* Make a copy of original attribute. */
 266         attr_s = kmemdup(attr, asize, GFP_NOFS);
 267         if (!attr_s) {
 268                 err = -ENOMEM;
 269                 goto out;
 270         }
 271
 272         if (!len) {
 273                 /* Empty resident -> Empty nonresident. */
 274                 alen = 0;
 275         } else {
 276                 const char *data = resident_data(attr);
 277
 278                 err = attr_allocate_clusters(sbi, run, 0, 0, len, NULL,
 279                                              ALLOCATE_DEF, &alen, 0, NULL,
 280                                              NULL);
 281                 if (err)
 282                         goto out1;
 283
 284                 if (!rsize) {
 285                         /* Empty resident -> Non empty nonresident. */
 286                 } else if (!is_data) {
 287                         err = ntfs_sb_write_run(sbi, run, 0, data, rsize, 0);
 288                         if (err)
 289                                 goto out2;
 290                 } else if (!page) {
 291                         struct address_space *mapping = ni->vfs_inode.i_mapping;
 292                         struct folio *folio;
 293
 294                         folio = __filemap_get_folio(
 295                                 mapping, 0, FGP_LOCK | FGP_ACCESSED | FGP_CREAT,
 296                                 mapping_gfp_mask(mapping));
 297                         if (IS_ERR(folio)) {
 298                                 err = PTR_ERR(folio);
 299                                 goto out2;
 300                         }
 301                         folio_fill_tail(folio, 0, data, rsize);
 302                         folio_mark_uptodate(folio);
 303                         folio_mark_dirty(folio);
 304                         folio_unlock(folio);
 305                         folio_put(folio);
 306                 }
 307         }
 308
 309         /* Remove original attribute. */
 310         used -= asize;
 311         memmove(attr, Add2Ptr(attr, asize), used - aoff);
 312         rec->used = cpu_to_le32(used);
 313         mi->dirty = true;
 314         if (le)
 315                 al_remove_le(ni, le);
 316
 317         err = ni_insert_nonresident(ni, attr_s->type, attr_name(attr_s),
 318                                     attr_s->name_len, run, 0, alen,
 319                                     attr_s->flags, &attr, NULL, NULL);
 320         if (err)
 321                 goto out3;
 322
 323         kfree(attr_s);
 324         attr->nres.data_size = cpu_to_le64(rsize);
 325         attr->nres.valid_size = attr->nres.data_size;
 326
 327         *ins_attr = attr;
 328
 329         if (is_data)
 330                 ni->ni_flags &= ~NI_FLAG_RESIDENT;
 331
 332         /* Resident attribute becomes non resident. */
 333         return 0;
 334
 335 out3:
 336         attr = Add2Ptr(rec, aoff);
 337         memmove(next, attr, used - aoff);
 338         memcpy(attr, attr_s, asize);
 339         rec->used = cpu_to_le32(used + asize);
 340         mi->dirty = true;
 341 out2:
 342         /* Undo: do not trim new allocated clusters. */
 343         run_deallocate(sbi, run, false);
 344         run_close(run);
 345 out1:
 346         kfree(attr_s);
 347 out:
 348         return err;
 349 }
 350
 351 /*
 352  * attr_set_size_res - Helper for attr_set_size().
 353  */
 354 static int attr_set_size_res(struct ntfs_inode *ni, struct ATTRIB *attr,
 355                              struct ATTR_LIST_ENTRY *le, struct mft_inode *mi,
 356                              u64 new_size, struct runs_tree *run,
 357                              struct ATTRIB **ins_attr)
 358 {
 359         struct ntfs_sb_info *sbi = mi->sbi;
 360         struct MFT_REC *rec = mi->mrec;
 361         u32 used = le32_to_cpu(rec->used);
 362         u32 asize = le32_to_cpu(attr->size);
 363         u32 aoff = PtrOffset(rec, attr);
 364         u32 rsize = le32_to_cpu(attr->res.data_size);
 365         u32 tail = used - aoff - asize;
 366         char *next = Add2Ptr(attr, asize);
 367         s64 dsize = ALIGN(new_size, 8) - ALIGN(rsize, 8);
 368
 369         if (dsize < 0) {
 370                 memmove(next + dsize, next, tail);
 371         } else if (dsize > 0) {
 372                 if (used + dsize > sbi->max_bytes_per_attr)
 373                         return attr_make_nonresident(ni, attr, le, mi, new_size,
 374                                                      run, ins_attr, NULL);
 375
 376                 memmove(next + dsize, next, tail);
 377                 memset(next, 0, dsize);
 378         }
 379
 380         if (new_size > rsize)
 381                 memset(Add2Ptr(resident_data(attr), rsize), 0,
 382                        new_size - rsize);
 383
 384         rec->used = cpu_to_le32(used + dsize);
 385         attr->size = cpu_to_le32(asize + dsize);
 386         attr->res.data_size = cpu_to_le32(new_size);
 387         mi->dirty = true;
 388         *ins_attr = attr;
 389
 390         return 0;
 391 }
 392
 393 /*
 394  * attr_set_size - Change the size of attribute.
 395  *
 396  * Extend:
 397  *   - Sparse/compressed: No allocated clusters.
 398  *   - Normal: Append allocated and preallocated new clusters.
 399  * Shrink:
 400  *   - No deallocate if @keep_prealloc is set.
 401  */
 402 int attr_set_size(struct ntfs_inode *ni, enum ATTR_TYPE type,
 403                   const __le16 *name, u8 name_len, struct runs_tree *run,
 404                   u64 new_size, const u64 *new_valid, bool keep_prealloc,
 405                   struct ATTRIB **ret)
 406 {
 407         int err = 0;
 408         struct ntfs_sb_info *sbi = ni->mi.sbi;
 409         u8 cluster_bits = sbi->cluster_bits;
 410         bool is_mft = ni->mi.rno == MFT_REC_MFT && type == ATTR_DATA &&
 411                       !name_len;
 412         u64 old_valid, old_size, old_alloc, new_alloc, new_alloc_tmp;
 413         struct ATTRIB *attr = NULL, *attr_b;
 414         struct ATTR_LIST_ENTRY *le, *le_b;
 415         struct mft_inode *mi, *mi_b;
 416         CLST alen, vcn, lcn, new_alen, old_alen, svcn, evcn;
 417         CLST next_svcn, pre_alloc = -1, done = 0;
 418         bool is_ext, is_bad = false;
 419         bool dirty = false;
 420         u32 align;
 421         struct MFT_REC *rec;
 422
 423 again:
 424         alen = 0;
 425         le_b = NULL;
 426         attr_b = ni_find_attr(ni, NULL, &le_b, type, name, name_len, NULL,
 427                               &mi_b);
 428         if (!attr_b) {
 429                 err = -ENOENT;
 430                 goto bad_inode;
 431         }
 432
 433         if (!attr_b->non_res) {
 434                 err = attr_set_size_res(ni, attr_b, le_b, mi_b, new_size, run,
 435                                         &attr_b);
 436                 if (err)
 437                         return err;
 438
 439                 /* Return if file is still resident. */
 440                 if (!attr_b->non_res) {
 441                         dirty = true;
 442                         goto ok1;
 443                 }
 444
 445                 /* Layout of records may be changed, so do a full search. */
 446                 goto again;
 447         }
 448
 449         is_ext = is_attr_ext(attr_b);
 450         align = sbi->cluster_size;
 451         if (is_ext)
 452                 align <<= attr_b->nres.c_unit;
 453
 454         old_valid = le64_to_cpu(attr_b->nres.valid_size);
 455         old_size = le64_to_cpu(attr_b->nres.data_size);
 456         old_alloc = le64_to_cpu(attr_b->nres.alloc_size);
 457
 458 again_1:
 459         old_alen = old_alloc >> cluster_bits;
 460
 461         new_alloc = (new_size + align - 1) & ~(u64)(align - 1);
 462         new_alen = new_alloc >> cluster_bits;
 463
 464         if (keep_prealloc && new_size < old_size) {
 465                 attr_b->nres.data_size = cpu_to_le64(new_size);
 466                 mi_b->dirty = dirty = true;
 467                 goto ok;
 468         }
 469
 470         vcn = old_alen - 1;
 471
 472         svcn = le64_to_cpu(attr_b->nres.svcn);
 473         evcn = le64_to_cpu(attr_b->nres.evcn);
 474
 475         if (svcn <= vcn && vcn <= evcn) {
 476                 attr = attr_b;
 477                 le = le_b;
 478                 mi = mi_b;
 479         } else if (!le_b) {
 480                 err = -EINVAL;
 481                 goto bad_inode;
 482         } else {
 483                 le = le_b;
 484                 attr = ni_find_attr(ni, attr_b, &le, type, name, name_len, &vcn,
 485                                     &mi);
 486                 if (!attr) {
 487                         err = -EINVAL;
 488                         goto bad_inode;
 489                 }
 490
 491 next_le_1:
 492                 svcn = le64_to_cpu(attr->nres.svcn);
 493                 evcn = le64_to_cpu(attr->nres.evcn);
 494         }
 495         /*
 496          * Here we have:
 497          * attr,mi,le - last attribute segment (containing 'vcn').
 498          * attr_b,mi_b,le_b - base (primary) attribute segment.
 499          */
 500 next_le:
 501         rec = mi->mrec;
 502         err = attr_load_runs(attr, ni, run, NULL);
 503         if (err)
 504                 goto out;
 505
 506         if (new_size > old_size) {
 507                 CLST to_allocate;
 508                 size_t free;
 509
 510                 if (new_alloc <= old_alloc) {
 511                         attr_b->nres.data_size = cpu_to_le64(new_size);
 512                         mi_b->dirty = dirty = true;
 513                         goto ok;
 514                 }
 515
 516                 /*
 517                  * Add clusters. In simple case we have to:
 518                  *  - allocate space (vcn, lcn, len)
 519                  *  - update packed run in 'mi'
 520                  *  - update attr->nres.evcn
 521                  *  - update attr_b->nres.data_size/attr_b->nres.alloc_size
 522                  */
 523                 to_allocate = new_alen - old_alen;
 524 add_alloc_in_same_attr_seg:
 525                 lcn = 0;
 526                 if (is_mft) {
 527                         /* MFT allocates clusters from MFT zone. */
 528                         pre_alloc = 0;
 529                 } else if (is_ext) {
 530                         /* No preallocate for sparse/compress. */
 531                         pre_alloc = 0;
 532                 } else if (pre_alloc == -1) {
 533                         pre_alloc = 0;
 534                         if (type == ATTR_DATA && !name_len &&
 535                             sbi->options->prealloc) {
 536                                 pre_alloc = bytes_to_cluster(
 537                                                     sbi, get_pre_allocated(
 538                                                                  new_size)) -
 539                                             new_alen;
 540                         }
 541
 542                         /* Get the last LCN to allocate from. */
 543                         if (old_alen &&
 544                             !run_lookup_entry(run, vcn, &lcn, NULL, NULL)) {
 545                                 lcn = SPARSE_LCN;
 546                         }
 547
 548                         if (lcn == SPARSE_LCN)
 549                                 lcn = 0;
 550                         else if (lcn)
 551                                 lcn += 1;
 552
 553                         free = wnd_zeroes(&sbi->used.bitmap);
 554                         if (to_allocate > free) {
 555                                 err = -ENOSPC;
 556                                 goto out;
 557                         }
 558
 559                         if (pre_alloc && to_allocate + pre_alloc > free)
 560                                 pre_alloc = 0;
 561                 }
 562
 563                 vcn = old_alen;
 564
 565                 if (is_ext) {
 566                         if (!run_add_entry(run, vcn, SPARSE_LCN, to_allocate,
 567                                            false)) {
 568                                 err = -ENOMEM;
 569                                 goto out;
 570                         }
 571                         alen = to_allocate;
 572                 } else {
 573                         /* ~3 bytes per fragment. */
 574                         err = attr_allocate_clusters(
 575                                 sbi, run, vcn, lcn, to_allocate, &pre_alloc,
 576                                 is_mft ? ALLOCATE_MFT : ALLOCATE_DEF, &alen,
 577                                 is_mft ? 0 :
 578                                          (sbi->record_size -
 579                                           le32_to_cpu(rec->used) + 8) /
 580                                                          3 +
 581                                                  1,
 582                                 NULL, NULL);
 583                         if (err)
 584                                 goto out;
 585                 }
 586
 587                 done += alen;
 588                 vcn += alen;
 589                 if (to_allocate > alen)
 590                         to_allocate -= alen;
 591                 else
 592                         to_allocate = 0;
 593
 594 pack_runs:
 595                 err = mi_pack_runs(mi, attr, run, vcn - svcn);
 596                 if (err)
 597                         goto undo_1;
 598
 599                 next_svcn = le64_to_cpu(attr->nres.evcn) + 1;
 600                 new_alloc_tmp = (u64)next_svcn << cluster_bits;
 601                 attr_b->nres.alloc_size = cpu_to_le64(new_alloc_tmp);
 602                 mi_b->dirty = dirty = true;
 603
 604                 if (next_svcn >= vcn && !to_allocate) {
 605                         /* Normal way. Update attribute and exit. */
 606                         attr_b->nres.data_size = cpu_to_le64(new_size);
 607                         goto ok;
 608                 }
 609
 610                 /* At least two MFT to avoid recursive loop. */
 611                 if (is_mft && next_svcn == vcn &&
 612                     ((u64)done << sbi->cluster_bits) >= 2 * sbi->record_size) {
 613                         new_size = new_alloc_tmp;
 614                         attr_b->nres.data_size = attr_b->nres.alloc_size;
 615                         goto ok;
 616                 }
 617
 618                 if (le32_to_cpu(rec->used) < sbi->record_size) {
 619                         old_alen = next_svcn;
 620                         evcn = old_alen - 1;
 621                         goto add_alloc_in_same_attr_seg;
 622                 }
 623
 624                 attr_b->nres.data_size = attr_b->nres.alloc_size;
 625                 if (new_alloc_tmp < old_valid)
 626                         attr_b->nres.valid_size = attr_b->nres.data_size;
 627
 628                 if (type == ATTR_LIST) {
 629                         err = ni_expand_list(ni);
 630                         if (err)
 631                                 goto undo_2;
 632                         if (next_svcn < vcn)
 633                                 goto pack_runs;
 634
 635                         /* Layout of records is changed. */
 636                         goto again;
 637                 }
 638
 639                 if (!ni->attr_list.size) {
 640                         err = ni_create_attr_list(ni);
 641                         /* In case of error layout of records is not changed. */
 642                         if (err)
 643                                 goto undo_2;
 644                         /* Layout of records is changed. */
 645                 }
 646
 647                 if (next_svcn >= vcn) {
 648                         /* This is MFT data, repeat. */
 649                         goto again;
 650                 }
 651
 652                 /* Insert new attribute segment. */
 653                 err = ni_insert_nonresident(ni, type, name, name_len, run,
 654                                             next_svcn, vcn - next_svcn,
 655                                             attr_b->flags, &attr, &mi, NULL);
 656
 657                 /*
 658                  * Layout of records maybe changed.
 659                  * Find base attribute to update.
 660                  */
 661                 le_b = NULL;
 662                 attr_b = ni_find_attr(ni, NULL, &le_b, type, name, name_len,
 663                                       NULL, &mi_b);
 664                 if (!attr_b) {
 665                         err = -EINVAL;
 666                         goto bad_inode;
 667                 }
 668
 669                 if (err) {
 670                         /* ni_insert_nonresident failed. */
 671                         attr = NULL;
 672                         goto undo_2;
 673                 }
 674
 675                 /* keep runs for $MFT::$ATTR_DATA and $MFT::$ATTR_BITMAP. */
 676                 if (ni->mi.rno != MFT_REC_MFT)
 677                         run_truncate_head(run, evcn + 1);
 678
 679                 svcn = le64_to_cpu(attr->nres.svcn);
 680                 evcn = le64_to_cpu(attr->nres.evcn);
 681
 682                 /*
 683                  * Attribute is in consistency state.
 684                  * Save this point to restore to if next steps fail.
 685                  */
 686                 old_valid = old_size = old_alloc = (u64)vcn << cluster_bits;
 687                 attr_b->nres.valid_size = attr_b->nres.data_size =
 688                         attr_b->nres.alloc_size = cpu_to_le64(old_size);
 689                 mi_b->dirty = dirty = true;
 690                 goto again_1;
 691         }
 692
 693         if (new_size != old_size ||
 694             (new_alloc != old_alloc && !keep_prealloc)) {
 695                 /*
 696                  * Truncate clusters. In simple case we have to:
 697                  *  - update packed run in 'mi'
 698                  *  - update attr->nres.evcn
 699                  *  - update attr_b->nres.data_size/attr_b->nres.alloc_size
 700                  *  - mark and trim clusters as free (vcn, lcn, len)
 701                  */
 702                 CLST dlen = 0;
 703
 704                 vcn = max(svcn, new_alen);
 705                 new_alloc_tmp = (u64)vcn << cluster_bits;
 706
 707                 if (vcn > svcn) {
 708                         err = mi_pack_runs(mi, attr, run, vcn - svcn);
 709                         if (err)
 710                                 goto out;
 711                 } else if (le && le->vcn) {
 712                         u16 le_sz = le16_to_cpu(le->size);
 713
 714                         /*
 715                          * NOTE: List entries for one attribute are always
 716                          * the same size. We deal with last entry (vcn==0)
 717                          * and it is not first in entries array
 718                          * (list entry for std attribute always first).
 719                          * So it is safe to step back.
 720                          */
 721                         mi_remove_attr(NULL, mi, attr);
 722
 723                         if (!al_remove_le(ni, le)) {
 724                                 err = -EINVAL;
 725                                 goto bad_inode;
 726                         }
 727
 728                         le = (struct ATTR_LIST_ENTRY *)((u8 *)le - le_sz);
 729                 } else {
 730                         attr->nres.evcn = cpu_to_le64((u64)vcn - 1);
 731                         mi->dirty = true;
 732                 }
 733
 734                 attr_b->nres.alloc_size = cpu_to_le64(new_alloc_tmp);
 735
 736                 if (vcn == new_alen) {
 737                         attr_b->nres.data_size = cpu_to_le64(new_size);
 738                         if (new_size < old_valid)
 739                                 attr_b->nres.valid_size =
 740                                         attr_b->nres.data_size;
 741                 } else {
 742                         if (new_alloc_tmp <=
 743                             le64_to_cpu(attr_b->nres.data_size))
 744                                 attr_b->nres.data_size =
 745                                         attr_b->nres.alloc_size;
 746                         if (new_alloc_tmp <
 747                             le64_to_cpu(attr_b->nres.valid_size))
 748                                 attr_b->nres.valid_size =
 749                                         attr_b->nres.alloc_size;
 750                 }
 751                 mi_b->dirty = dirty = true;
 752
 753                 err = run_deallocate_ex(sbi, run, vcn, evcn - vcn + 1, &dlen,
 754                                         true);
 755                 if (err)
 756                         goto out;
 757
 758                 if (is_ext) {
 759                         /* dlen - really deallocated clusters. */
 760                         le64_sub_cpu(&attr_b->nres.total_size,
 761                                      ((u64)dlen << cluster_bits));
 762                 }
 763
 764                 run_truncate(run, vcn);
 765
 766                 if (new_alloc_tmp <= new_alloc)
 767                         goto ok;
 768
 769                 old_size = new_alloc_tmp;
 770                 vcn = svcn - 1;
 771
 772                 if (le == le_b) {
 773                         attr = attr_b;
 774                         mi = mi_b;
 775                         evcn = svcn - 1;
 776                         svcn = 0;
 777                         goto next_le;
 778                 }
 779
 780                 if (le->type != type || le->name_len != name_len ||
 781                     memcmp(le_name(le), name, name_len * sizeof(short))) {
 782                         err = -EINVAL;
 783                         goto bad_inode;
 784                 }
 785
 786                 err = ni_load_mi(ni, le, &mi);
 787                 if (err)
 788                         goto out;
 789
 790                 attr = mi_find_attr(mi, NULL, type, name, name_len, &le->id);
 791                 if (!attr) {
 792                         err = -EINVAL;
 793                         goto bad_inode;
 794                 }
 795                 goto next_le_1;
 796         }
 797
 798 ok:
 799         if (new_valid) {
 800                 __le64 valid = cpu_to_le64(min(*new_valid, new_size));
 801
 802                 if (attr_b->nres.valid_size != valid) {
 803                         attr_b->nres.valid_size = valid;
 804                         mi_b->dirty = true;
 805                 }
 806         }
 807
 808 ok1:
 809         if (ret)
 810                 *ret = attr_b;
 811
 812         if (((type == ATTR_DATA && !name_len) ||
 813              (type == ATTR_ALLOC && name == I30_NAME))) {
 814                 /* Update inode_set_bytes. */
 815                 if (attr_b->non_res) {
 816                         new_alloc = le64_to_cpu(attr_b->nres.alloc_size);
 817                         if (inode_get_bytes(&ni->vfs_inode) != new_alloc) {
 818                                 inode_set_bytes(&ni->vfs_inode, new_alloc);
 819                                 dirty = true;
 820                         }
 821                 }
 822
 823                 /* Don't forget to update duplicate information in parent. */
 824                 if (dirty) {
 825                         ni->ni_flags |= NI_FLAG_UPDATE_PARENT;
 826                         mark_inode_dirty(&ni->vfs_inode);
 827                 }
 828         }
 829
 830         return 0;
 831
 832 undo_2:
 833         vcn -= alen;
 834         attr_b->nres.data_size = cpu_to_le64(old_size);
 835         attr_b->nres.valid_size = cpu_to_le64(old_valid);
 836         attr_b->nres.alloc_size = cpu_to_le64(old_alloc);
 837
 838         /* Restore 'attr' and 'mi'. */
 839         if (attr)
 840                 goto restore_run;
 841
 842         if (le64_to_cpu(attr_b->nres.svcn) <= svcn &&
 843             svcn <= le64_to_cpu(attr_b->nres.evcn)) {
 844                 attr = attr_b;
 845                 le = le_b;
 846                 mi = mi_b;
 847         } else if (!le_b) {
 848                 err = -EINVAL;
 849                 goto bad_inode;
 850         } else {
 851                 le = le_b;
 852                 attr = ni_find_attr(ni, attr_b, &le, type, name, name_len,
 853                                     &svcn, &mi);
 854                 if (!attr)
 855                         goto bad_inode;
 856         }
 857
 858 restore_run:
 859         if (mi_pack_runs(mi, attr, run, evcn - svcn + 1))
 860                 is_bad = true;
 861
 862 undo_1:
 863         run_deallocate_ex(sbi, run, vcn, alen, NULL, false);
 864
 865         run_truncate(run, vcn);
 866 out:
 867         if (is_bad) {
 868 bad_inode:
 869                 _ntfs_bad_inode(&ni->vfs_inode);
 870         }
 871         return err;
 872 }
 873
 874 /*
 875  * attr_data_get_block - Returns 'lcn' and 'len' for given 'vcn'.
 876  *
 877  * @new == NULL means just to get current mapping for 'vcn'
 878  * @new != NULL means allocate real cluster if 'vcn' maps to hole
 879  * @zero - zeroout new allocated clusters
 880  *
 881  *  NOTE:
 882  *  - @new != NULL is called only for sparsed or compressed attributes.
 883  *  - new allocated clusters are zeroed via blkdev_issue_zeroout.
 884  */
 885 int attr_data_get_block(struct ntfs_inode *ni, CLST vcn, CLST clen, CLST *lcn,
 886                         CLST *len, bool *new, bool zero)
 887 {
 888         int err = 0;
 889         struct runs_tree *run = &ni->file.run;
 890         struct ntfs_sb_info *sbi;
 891         u8 cluster_bits;
 892         struct ATTRIB *attr, *attr_b;
 893         struct ATTR_LIST_ENTRY *le, *le_b;
 894         struct mft_inode *mi, *mi_b;
 895         CLST hint, svcn, to_alloc, evcn1, next_svcn, asize, end, vcn0, alen;
 896         CLST alloc, evcn;
 897         unsigned fr;
 898         u64 total_size, total_size0;
 899         int step = 0;
 900
 901         if (new)
 902                 *new = false;
 903
 904         /* Try to find in cache. */
 905         down_read(&ni->file.run_lock);
 906         if (!run_lookup_entry(run, vcn, lcn, len, NULL))
 907                 *len = 0;
 908         up_read(&ni->file.run_lock);
 909
 910         if (*len && (*lcn != SPARSE_LCN || !new))
 911                 return 0; /* Fast normal way without allocation. */
 912
 913         /* No cluster in cache or we need to allocate cluster in hole. */
 914         sbi = ni->mi.sbi;
 915         cluster_bits = sbi->cluster_bits;
 916
 917         ni_lock(ni);
 918         down_write(&ni->file.run_lock);
 919
 920         /* Repeat the code above (under write lock). */
 921         if (!run_lookup_entry(run, vcn, lcn, len, NULL))
 922                 *len = 0;
 923
 924         if (*len) {
 925                 if (*lcn != SPARSE_LCN || !new)
 926                         goto out; /* normal way without allocation. */
 927                 if (clen > *len)
 928                         clen = *len;
 929         }
 930
 931         le_b = NULL;
 932         attr_b = ni_find_attr(ni, NULL, &le_b, ATTR_DATA, NULL, 0, NULL, &mi_b);
 933         if (!attr_b) {
 934                 err = -ENOENT;
 935                 goto out;
 936         }
 937
 938         if (!attr_b->non_res) {
 939                 *lcn = RESIDENT_LCN;
 940                 *len = 1;
 941                 goto out;
 942         }
 943
 944         asize = le64_to_cpu(attr_b->nres.alloc_size) >> cluster_bits;
 945         if (vcn >= asize) {
 946                 if (new) {
 947                         err = -EINVAL;
 948                 } else {
 949                         *len = 1;
 950                         *lcn = SPARSE_LCN;
 951                 }
 952                 goto out;
 953         }
 954
 955         svcn = le64_to_cpu(attr_b->nres.svcn);
 956         evcn1 = le64_to_cpu(attr_b->nres.evcn) + 1;
 957
 958         attr = attr_b;
 959         le = le_b;
 960         mi = mi_b;
 961
 962         if (le_b && (vcn < svcn || evcn1 <= vcn)) {
 963                 attr = ni_find_attr(ni, attr_b, &le, ATTR_DATA, NULL, 0, &vcn,
 964                                     &mi);
 965                 if (!attr) {
 966                         err = -EINVAL;
 967                         goto out;
 968                 }
 969                 svcn = le64_to_cpu(attr->nres.svcn);
 970                 evcn1 = le64_to_cpu(attr->nres.evcn) + 1;
 971         }
 972
 973         /* Load in cache actual information. */
 974         err = attr_load_runs(attr, ni, run, NULL);
 975         if (err)
 976                 goto out;
 977
 978         /* Check for compressed frame. */
 979         err = attr_is_frame_compressed(ni, attr_b, vcn >> NTFS_LZNT_CUNIT,
 980                                        &hint, run);
 981         if (err)
 982                 goto out;
 983
 984         if (hint) {
 985                 /* if frame is compressed - don't touch it. */
 986                 *lcn = COMPRESSED_LCN;
 987                 /* length to the end of frame. */
 988                 *len = NTFS_LZNT_CLUSTERS - (vcn & (NTFS_LZNT_CLUSTERS - 1));
 989                 err = 0;
 990                 goto out;
 991         }
 992
 993         if (!*len) {
 994                 if (run_lookup_entry(run, vcn, lcn, len, NULL)) {
 995                         if (*lcn != SPARSE_LCN || !new)
 996                                 goto ok; /* Slow normal way without allocation. */
 997
 998                         if (clen > *len)
 999                                 clen = *len;
1000                 } else if (!new) {
1001                         /* Here we may return -ENOENT.
1002                          * In any case caller gets zero length. */
1003                         goto ok;
1004                 }
1005         }
1006
1007         if (!is_attr_ext(attr_b)) {
1008                 /* The code below only for sparsed or compressed attributes. */
1009                 err = -EINVAL;
1010                 goto out;
1011         }
1012
1013         vcn0 = vcn;
1014         to_alloc = clen;
1015         fr = (sbi->record_size - le32_to_cpu(mi->mrec->used) + 8) / 3 + 1;
1016         /* Allocate frame aligned clusters.
1017          * ntfs.sys usually uses 16 clusters per frame for sparsed or compressed.
1018          * ntfs3 uses 1 cluster per frame for new created sparsed files. */
1019         if (attr_b->nres.c_unit) {
1020                 CLST clst_per_frame = 1u << attr_b->nres.c_unit;
1021                 CLST cmask = ~(clst_per_frame - 1);
1022
1023                 /* Get frame aligned vcn and to_alloc. */
1024                 vcn = vcn0 & cmask;
1025                 to_alloc = ((vcn0 + clen + clst_per_frame - 1) & cmask) - vcn;
1026                 if (fr < clst_per_frame)
1027                         fr = clst_per_frame;
1028                 zero = true;
1029
1030                 /* Check if 'vcn' and 'vcn0' in different attribute segments. */
1031                 if (vcn < svcn || evcn1 <= vcn) {
1032                         struct ATTRIB *attr2;
1033                         /* Load runs for truncated vcn. */
1034                         attr2 = ni_find_attr(ni, attr_b, &le_b, ATTR_DATA, NULL,
1035                                              0, &vcn, &mi);
1036                         if (!attr2) {
1037                                 err = -EINVAL;
1038                                 goto out;
1039                         }
1040                         evcn1 = le64_to_cpu(attr2->nres.evcn) + 1;
1041                         err = attr_load_runs(attr2, ni, run, NULL);
1042                         if (err)
1043                                 goto out;
1044                 }
1045         }
1046
1047         if (vcn + to_alloc > asize)
1048                 to_alloc = asize - vcn;
1049
1050         /* Get the last LCN to allocate from. */
1051         hint = 0;
1052
1053         if (vcn > evcn1) {
1054                 if (!run_add_entry(run, evcn1, SPARSE_LCN, vcn - evcn1,
1055                                    false)) {
1056                         err = -ENOMEM;
1057                         goto out;
1058                 }
1059         } else if (vcn && !run_lookup_entry(run, vcn - 1, &hint, NULL, NULL)) {
1060                 hint = -1;
1061         }
1062
1063         /* Allocate and zeroout new clusters. */
1064         err = attr_allocate_clusters(sbi, run, vcn, hint + 1, to_alloc, NULL,
1065                                      zero ? ALLOCATE_ZERO : ALLOCATE_DEF, &alen,
1066                                      fr, lcn, len);
1067         if (err)
1068                 goto out;
1069         *new = true;
1070         step = 1;
1071
1072         end = vcn + alen;
1073         /* Save 'total_size0' to restore if error. */
1074         total_size0 = le64_to_cpu(attr_b->nres.total_size);
1075         total_size = total_size0 + ((u64)alen << cluster_bits);
1076
1077         if (vcn != vcn0) {
1078                 if (!run_lookup_entry(run, vcn0, lcn, len, NULL)) {
1079                         err = -EINVAL;
1080                         goto out;
1081                 }
1082                 if (*lcn == SPARSE_LCN) {
1083                         /* Internal error. Should not happened. */
1084                         WARN_ON(1);
1085                         err = -EINVAL;
1086                         goto out;
1087                 }
1088                 /* Check case when vcn0 + len overlaps new allocated clusters. */
1089                 if (vcn0 + *len > end)
1090                         *len = end - vcn0;
1091         }
1092
1093 repack:
1094         err = mi_pack_runs(mi, attr, run, max(end, evcn1) - svcn);
1095         if (err)
1096                 goto out;
1097
1098         attr_b->nres.total_size = cpu_to_le64(total_size);
1099         inode_set_bytes(&ni->vfs_inode, total_size);
1100         ni->ni_flags |= NI_FLAG_UPDATE_PARENT;
1101
1102         mi_b->dirty = true;
1103         mark_inode_dirty(&ni->vfs_inode);
1104
1105         /* Stored [vcn : next_svcn) from [vcn : end). */
1106         next_svcn = le64_to_cpu(attr->nres.evcn) + 1;
1107
1108         if (end <= evcn1) {
1109                 if (next_svcn == evcn1) {
1110                         /* Normal way. Update attribute and exit. */
1111                         goto ok;
1112                 }
1113                 /* Add new segment [next_svcn : evcn1 - next_svcn). */
1114                 if (!ni->attr_list.size) {
1115                         err = ni_create_attr_list(ni);
1116                         if (err)
1117                                 goto undo1;
1118                         /* Layout of records is changed. */
1119                         le_b = NULL;
1120                         attr_b = ni_find_attr(ni, NULL, &le_b, ATTR_DATA, NULL,
1121                                               0, NULL, &mi_b);
1122                         if (!attr_b) {
1123                                 err = -ENOENT;
1124                                 goto out;
1125                         }
1126
1127                         attr = attr_b;
1128                         le = le_b;
1129                         mi = mi_b;
1130                         goto repack;
1131                 }
1132         }
1133
1134         /*
1135          * The code below may require additional cluster (to extend attribute list)
1136          * and / or one MFT record
1137          * It is too complex to undo operations if -ENOSPC occurs deep inside
1138          * in 'ni_insert_nonresident'.
1139          * Return in advance -ENOSPC here if there are no free cluster and no free MFT.
1140          */
1141         if (!ntfs_check_for_free_space(sbi, 1, 1)) {
1142                 /* Undo step 1. */
1143                 err = -ENOSPC;
1144                 goto undo1;
1145         }
1146
1147         step = 2;
1148         svcn = evcn1;
1149
1150         /* Estimate next attribute. */
1151         attr = ni_find_attr(ni, attr, &le, ATTR_DATA, NULL, 0, &svcn, &mi);
1152
1153         if (!attr) {
1154                 /* Insert new attribute segment. */
1155                 goto ins_ext;
1156         }
1157
1158         /* Try to update existed attribute segment. */
1159         alloc = bytes_to_cluster(sbi, le64_to_cpu(attr_b->nres.alloc_size));
1160         evcn = le64_to_cpu(attr->nres.evcn);
1161
1162         if (end < next_svcn)
1163                 end = next_svcn;
1164         while (end > evcn) {
1165                 /* Remove segment [svcn : evcn). */
1166                 mi_remove_attr(NULL, mi, attr);
1167
1168                 if (!al_remove_le(ni, le)) {
1169                         err = -EINVAL;
1170                         goto out;
1171                 }
1172
1173                 if (evcn + 1 >= alloc) {
1174                         /* Last attribute segment. */
1175                         evcn1 = evcn + 1;
1176                         goto ins_ext;
1177                 }
1178
1179                 if (ni_load_mi(ni, le, &mi)) {
1180                         attr = NULL;
1181                         goto out;
1182                 }
1183
1184                 attr = mi_find_attr(mi, NULL, ATTR_DATA, NULL, 0, &le->id);
1185                 if (!attr) {
1186                         err = -EINVAL;
1187                         goto out;
1188                 }
1189                 svcn = le64_to_cpu(attr->nres.svcn);
1190                 evcn = le64_to_cpu(attr->nres.evcn);
1191         }
1192
1193         if (end < svcn)
1194                 end = svcn;
1195
1196         err = attr_load_runs(attr, ni, run, &end);
1197         if (err)
1198                 goto out;
1199
1200         evcn1 = evcn + 1;
1201         attr->nres.svcn = cpu_to_le64(next_svcn);
1202         err = mi_pack_runs(mi, attr, run, evcn1 - next_svcn);
1203         if (err)
1204                 goto out;
1205
1206         le->vcn = cpu_to_le64(next_svcn);
1207         ni->attr_list.dirty = true;
1208         mi->dirty = true;
1209         next_svcn = le64_to_cpu(attr->nres.evcn) + 1;
1210
1211 ins_ext:
1212         if (evcn1 > next_svcn) {
1213                 err = ni_insert_nonresident(ni, ATTR_DATA, NULL, 0, run,
1214                                             next_svcn, evcn1 - next_svcn,
1215                                             attr_b->flags, &attr, &mi, NULL);
1216                 if (err)
1217                         goto out;
1218         }
1219 ok:
1220         run_truncate_around(run, vcn);
1221 out:
1222         if (err && step > 1) {
1223                 /* Too complex to restore. */
1224                 _ntfs_bad_inode(&ni->vfs_inode);
1225         }
1226         up_write(&ni->file.run_lock);
1227         ni_unlock(ni);
1228
1229         return err;
1230
1231 undo1:
1232         /* Undo step1. */
1233         attr_b->nres.total_size = cpu_to_le64(total_size0);
1234         inode_set_bytes(&ni->vfs_inode, total_size0);
1235
1236         if (run_deallocate_ex(sbi, run, vcn, alen, NULL, false) ||
1237             !run_add_entry(run, vcn, SPARSE_LCN, alen, false) ||
1238             mi_pack_runs(mi, attr, run, max(end, evcn1) - svcn)) {
1239                 _ntfs_bad_inode(&ni->vfs_inode);
1240         }
1241         goto out;
1242 }
1243
1244 int attr_data_read_resident(struct ntfs_inode *ni, struct folio *folio)
1245 {
1246         u64 vbo;
1247         struct ATTRIB *attr;
1248         u32 data_size;
1249         size_t len;
1250
1251         attr = ni_find_attr(ni, NULL, NULL, ATTR_DATA, NULL, 0, NULL, NULL);
1252         if (!attr)
1253                 return -EINVAL;
1254
1255         if (attr->non_res)
1256                 return E_NTFS_NONRESIDENT;
1257
1258         vbo = folio->index << PAGE_SHIFT;
1259         data_size = le32_to_cpu(attr->res.data_size);
1260         if (vbo > data_size)
1261                 len = 0;
1262         else
1263                 len = min(data_size - vbo, folio_size(folio));
1264
1265         folio_fill_tail(folio, 0, resident_data(attr) + vbo, len);
1266         folio_mark_uptodate(folio);
1267
1268         return 0;
1269 }
1270
1271 int attr_data_write_resident(struct ntfs_inode *ni, struct folio *folio)
1272 {
1273         u64 vbo;
1274         struct mft_inode *mi;
1275         struct ATTRIB *attr;
1276         u32 data_size;
1277
1278         attr = ni_find_attr(ni, NULL, NULL, ATTR_DATA, NULL, 0, NULL, &mi);
1279         if (!attr)
1280                 return -EINVAL;
1281
1282         if (attr->non_res) {
1283                 /* Return special error code to check this case. */
1284                 return E_NTFS_NONRESIDENT;
1285         }
1286
1287         vbo = folio->index << PAGE_SHIFT;
1288         data_size = le32_to_cpu(attr->res.data_size);
1289         if (vbo < data_size) {
1290                 char *data = resident_data(attr);
1291                 size_t len = min(data_size - vbo, folio_size(folio));
1292
1293                 memcpy_from_folio(data + vbo, folio, 0, len);
1294                 mi->dirty = true;
1295         }
1296         ni->i_valid = data_size;
1297
1298         return 0;
1299 }
1300
1301 /*
1302  * attr_load_runs_vcn - Load runs with VCN.
1303  */
1304 int attr_load_runs_vcn(struct ntfs_inode *ni, enum ATTR_TYPE type,
1305                        const __le16 *name, u8 name_len, struct runs_tree *run,
1306                        CLST vcn)
1307 {
1308         struct ATTRIB *attr;
1309         int err;
1310         CLST svcn, evcn;
1311         u16 ro;
1312
1313         if (!ni) {
1314                 /* Is record corrupted? */
1315                 return -ENOENT;
1316         }
1317
1318         attr = ni_find_attr(ni, NULL, NULL, type, name, name_len, &vcn, NULL);
1319         if (!attr) {
1320                 /* Is record corrupted? */
1321                 return -ENOENT;
1322         }
1323
1324         svcn = le64_to_cpu(attr->nres.svcn);
1325         evcn = le64_to_cpu(attr->nres.evcn);
1326
1327         if (evcn < vcn || vcn < svcn) {
1328                 /* Is record corrupted? */
1329                 return -EINVAL;
1330         }
1331
1332         ro = le16_to_cpu(attr->nres.run_off);
1333
1334         if (ro > le32_to_cpu(attr->size))
1335                 return -EINVAL;
1336
1337         err = run_unpack_ex(run, ni->mi.sbi, ni->mi.rno, svcn, evcn, svcn,
1338                             Add2Ptr(attr, ro), le32_to_cpu(attr->size) - ro);
1339         if (err < 0)
1340                 return err;
1341         return 0;
1342 }
1343
1344 /*
1345  * attr_load_runs_range - Load runs for given range [from to).
1346  */
1347 int attr_load_runs_range(struct ntfs_inode *ni, enum ATTR_TYPE type,
1348                          const __le16 *name, u8 name_len, struct runs_tree *run,
1349                          u64 from, u64 to)
1350 {
1351         struct ntfs_sb_info *sbi = ni->mi.sbi;
1352         u8 cluster_bits = sbi->cluster_bits;
1353         CLST vcn;
1354         CLST vcn_last = (to - 1) >> cluster_bits;
1355         CLST lcn, clen;
1356         int err;
1357
1358         for (vcn = from >> cluster_bits; vcn <= vcn_last; vcn += clen) {
1359                 if (!run_lookup_entry(run, vcn, &lcn, &clen, NULL)) {
1360                         err = attr_load_runs_vcn(ni, type, name, name_len, run,
1361                                                  vcn);
1362                         if (err)
1363                                 return err;
1364                         clen = 0; /* Next run_lookup_entry(vcn) must be success. */
1365                 }
1366         }
1367
1368         return 0;
1369 }
1370
1371 #ifdef CONFIG_NTFS3_LZX_XPRESS
1372 /*
1373  * attr_wof_frame_info
1374  *
1375  * Read header of Xpress/LZX file to get info about frame.
1376  */
1377 int attr_wof_frame_info(struct ntfs_inode *ni, struct ATTRIB *attr,
1378                         struct runs_tree *run, u64 frame, u64 frames,
1379                         u8 frame_bits, u32 *ondisk_size, u64 *vbo_data)
1380 {
1381         struct ntfs_sb_info *sbi = ni->mi.sbi;
1382         u64 vbo[2], off[2], wof_size;
1383         u32 voff;
1384         u8 bytes_per_off;
1385         char *addr;
1386         struct folio *folio;
1387         int i, err;
1388         __le32 *off32;
1389         __le64 *off64;
1390
1391         if (ni->vfs_inode.i_size < 0x100000000ull) {
1392                 /* File starts with array of 32 bit offsets. */
1393                 bytes_per_off = sizeof(__le32);
1394                 vbo[1] = frame << 2;
1395                 *vbo_data = frames << 2;
1396         } else {
1397                 /* File starts with array of 64 bit offsets. */
1398                 bytes_per_off = sizeof(__le64);
1399                 vbo[1] = frame << 3;
1400                 *vbo_data = frames << 3;
1401         }
1402
1403         /*
1404          * Read 4/8 bytes at [vbo - 4(8)] == offset where compressed frame starts.
1405          * Read 4/8 bytes at [vbo] == offset where compressed frame ends.
1406          */
1407         if (!attr->non_res) {
1408                 if (vbo[1] + bytes_per_off > le32_to_cpu(attr->res.data_size)) {
1409                         ntfs_inode_err(&ni->vfs_inode, "is corrupted");
1410                         return -EINVAL;
1411                 }
1412                 addr = resident_data(attr);
1413
1414                 if (bytes_per_off == sizeof(__le32)) {
1415                         off32 = Add2Ptr(addr, vbo[1]);
1416                         off[0] = vbo[1] ? le32_to_cpu(off32[-1]) : 0;
1417                         off[1] = le32_to_cpu(off32[0]);
1418                 } else {
1419                         off64 = Add2Ptr(addr, vbo[1]);
1420                         off[0] = vbo[1] ? le64_to_cpu(off64[-1]) : 0;
1421                         off[1] = le64_to_cpu(off64[0]);
1422                 }
1423
1424                 *vbo_data += off[0];
1425                 *ondisk_size = off[1] - off[0];
1426                 return 0;
1427         }
1428
1429         wof_size = le64_to_cpu(attr->nres.data_size);
1430         down_write(&ni->file.run_lock);
1431         folio = ni->file.offs_folio;
1432         if (!folio) {
1433                 folio = folio_alloc(GFP_KERNEL, 0);
1434                 if (!folio) {
1435                         err = -ENOMEM;
1436                         goto out;
1437                 }
1438                 folio->index = -1;
1439                 ni->file.offs_folio = folio;
1440         }
1441         folio_lock(folio);
1442         addr = folio_address(folio);
1443
1444         if (vbo[1]) {
1445                 voff = vbo[1] & (PAGE_SIZE - 1);
1446                 vbo[0] = vbo[1] - bytes_per_off;
1447                 i = 0;
1448         } else {
1449                 voff = 0;
1450                 vbo[0] = 0;
1451                 off[0] = 0;
1452                 i = 1;
1453         }
1454
1455         do {
1456                 pgoff_t index = vbo[i] >> PAGE_SHIFT;
1457
1458                 if (index != folio->index) {
1459                         struct page *page = &folio->page;
1460                         u64 from = vbo[i] & ~(u64)(PAGE_SIZE - 1);
1461                         u64 to = min(from + PAGE_SIZE, wof_size);
1462
1463                         err = attr_load_runs_range(ni, ATTR_DATA, WOF_NAME,
1464                                                    ARRAY_SIZE(WOF_NAME), run,
1465                                                    from, to);
1466                         if (err)
1467                                 goto out1;
1468
1469                         err = ntfs_bio_pages(sbi, run, &page, 1, from,
1470                                              to - from, REQ_OP_READ);
1471                         if (err) {
1472                                 folio->index = -1;
1473                                 goto out1;
1474                         }
1475                         folio->index = index;
1476                 }
1477
1478                 if (i) {
1479                         if (bytes_per_off == sizeof(__le32)) {
1480                                 off32 = Add2Ptr(addr, voff);
1481                                 off[1] = le32_to_cpu(*off32);
1482                         } else {
1483                                 off64 = Add2Ptr(addr, voff);
1484                                 off[1] = le64_to_cpu(*off64);
1485                         }
1486                 } else if (!voff) {
1487                         if (bytes_per_off == sizeof(__le32)) {
1488                                 off32 = Add2Ptr(addr, PAGE_SIZE - sizeof(u32));
1489                                 off[0] = le32_to_cpu(*off32);
1490                         } else {
1491                                 off64 = Add2Ptr(addr, PAGE_SIZE - sizeof(u64));
1492                                 off[0] = le64_to_cpu(*off64);
1493                         }
1494                 } else {
1495                         /* Two values in one page. */
1496                         if (bytes_per_off == sizeof(__le32)) {
1497                                 off32 = Add2Ptr(addr, voff);
1498                                 off[0] = le32_to_cpu(off32[-1]);
1499                                 off[1] = le32_to_cpu(off32[0]);
1500                         } else {
1501                                 off64 = Add2Ptr(addr, voff);
1502                                 off[0] = le64_to_cpu(off64[-1]);
1503                                 off[1] = le64_to_cpu(off64[0]);
1504                         }
1505                         break;
1506                 }
1507         } while (++i < 2);
1508
1509         *vbo_data += off[0];
1510         *ondisk_size = off[1] - off[0];
1511
1512 out1:
1513         folio_unlock(folio);
1514 out:
1515         up_write(&ni->file.run_lock);
1516         return err;
1517 }
1518 #endif
1519
1520 /*
1521  * attr_is_frame_compressed - Used to detect compressed frame.
1522  *
1523  * attr - base (primary) attribute segment.
1524  * run  - run to use, usually == &ni->file.run.
1525  * Only base segments contains valid 'attr->nres.c_unit'
1526  */
1527 int attr_is_frame_compressed(struct ntfs_inode *ni, struct ATTRIB *attr,
1528                              CLST frame, CLST *clst_data, struct runs_tree *run)
1529 {
1530         int err;
1531         u32 clst_frame;
1532         CLST clen, lcn, vcn, alen, slen, vcn_next;
1533         size_t idx;
1534
1535         *clst_data = 0;
1536
1537         if (!is_attr_compressed(attr))
1538                 return 0;
1539
1540         if (!attr->non_res)
1541                 return 0;
1542
1543         clst_frame = 1u << attr->nres.c_unit;
1544         vcn = frame * clst_frame;
1545
1546         if (!run_lookup_entry(run, vcn, &lcn, &clen, &idx)) {
1547                 err = attr_load_runs_vcn(ni, attr->type, attr_name(attr),
1548                                          attr->name_len, run, vcn);
1549                 if (err)
1550                         return err;
1551
1552                 if (!run_lookup_entry(run, vcn, &lcn, &clen, &idx))
1553                         return -EINVAL;
1554         }
1555
1556         if (lcn == SPARSE_LCN) {
1557                 /* Sparsed frame. */
1558                 return 0;
1559         }
1560
1561         if (clen >= clst_frame) {
1562                 /*
1563                  * The frame is not compressed 'cause
1564                  * it does not contain any sparse clusters.
1565                  */
1566                 *clst_data = clst_frame;
1567                 return 0;
1568         }
1569
1570         alen = bytes_to_cluster(ni->mi.sbi, le64_to_cpu(attr->nres.alloc_size));
1571         slen = 0;
1572         *clst_data = clen;
1573
1574         /*
1575          * The frame is compressed if *clst_data + slen >= clst_frame.
1576          * Check next fragments.
1577          */
1578         while ((vcn += clen) < alen) {
1579                 vcn_next = vcn;
1580
1581                 if (!run_get_entry(run, ++idx, &vcn, &lcn, &clen) ||
1582                     vcn_next != vcn) {
1583                         err = attr_load_runs_vcn(ni, attr->type,
1584                                                  attr_name(attr),
1585                                                  attr->name_len, run, vcn_next);
1586                         if (err)
1587                                 return err;
1588                         vcn = vcn_next;
1589
1590                         if (!run_lookup_entry(run, vcn, &lcn, &clen, &idx))
1591                                 return -EINVAL;
1592                 }
1593
1594                 if (lcn == SPARSE_LCN) {
1595                         slen += clen;
1596                 } else {
1597                         if (slen) {
1598                                 /*
1599                                  * Data_clusters + sparse_clusters =
1600                                  * not enough for frame.
1601                                  */
1602                                 return -EINVAL;
1603                         }
1604                         *clst_data += clen;
1605                 }
1606
1607                 if (*clst_data + slen >= clst_frame) {
1608                         if (!slen) {
1609                                 /*
1610                                  * There is no sparsed clusters in this frame
1611                                  * so it is not compressed.
1612                                  */
1613                                 *clst_data = clst_frame;
1614                         } else {
1615                                 /* Frame is compressed. */
1616                         }
1617                         break;
1618                 }
1619         }
1620
1621         return 0;
1622 }
1623
1624 /*
1625  * attr_allocate_frame - Allocate/free clusters for @frame.
1626  *
1627  * Assumed: down_write(&ni->file.run_lock);
1628  */
1629 int attr_allocate_frame(struct ntfs_inode *ni, CLST frame, size_t compr_size,
1630                         u64 new_valid)
1631 {
1632         int err = 0;
1633         struct runs_tree *run = &ni->file.run;
1634         struct ntfs_sb_info *sbi = ni->mi.sbi;
1635         struct ATTRIB *attr = NULL, *attr_b;
1636         struct ATTR_LIST_ENTRY *le, *le_b;
1637         struct mft_inode *mi, *mi_b;
1638         CLST svcn, evcn1, next_svcn, len;
1639         CLST vcn, end, clst_data;
1640         u64 total_size, valid_size, data_size;
1641
1642         le_b = NULL;
1643         attr_b = ni_find_attr(ni, NULL, &le_b, ATTR_DATA, NULL, 0, NULL, &mi_b);
1644         if (!attr_b)
1645                 return -ENOENT;
1646
1647         if (!is_attr_ext(attr_b))
1648                 return -EINVAL;
1649
1650         vcn = frame << NTFS_LZNT_CUNIT;
1651         total_size = le64_to_cpu(attr_b->nres.total_size);
1652
1653         svcn = le64_to_cpu(attr_b->nres.svcn);
1654         evcn1 = le64_to_cpu(attr_b->nres.evcn) + 1;
1655         data_size = le64_to_cpu(attr_b->nres.data_size);
1656
1657         if (svcn <= vcn && vcn < evcn1) {
1658                 attr = attr_b;
1659                 le = le_b;
1660                 mi = mi_b;
1661         } else if (!le_b) {
1662                 err = -EINVAL;
1663                 goto out;
1664         } else {
1665                 le = le_b;
1666                 attr = ni_find_attr(ni, attr_b, &le, ATTR_DATA, NULL, 0, &vcn,
1667                                     &mi);
1668                 if (!attr) {
1669                         err = -EINVAL;
1670                         goto out;
1671                 }
1672                 svcn = le64_to_cpu(attr->nres.svcn);
1673                 evcn1 = le64_to_cpu(attr->nres.evcn) + 1;
1674         }
1675
1676         err = attr_load_runs(attr, ni, run, NULL);
1677         if (err)
1678                 goto out;
1679
1680         err = attr_is_frame_compressed(ni, attr_b, frame, &clst_data, run);
1681         if (err)
1682                 goto out;
1683
1684         total_size -= (u64)clst_data << sbi->cluster_bits;
1685
1686         len = bytes_to_cluster(sbi, compr_size);
1687
1688         if (len == clst_data)
1689                 goto out;
1690
1691         if (len < clst_data) {
1692                 err = run_deallocate_ex(sbi, run, vcn + len, clst_data - len,
1693                                         NULL, true);
1694                 if (err)
1695                         goto out;
1696
1697                 if (!run_add_entry(run, vcn + len, SPARSE_LCN, clst_data - len,
1698                                    false)) {
1699                         err = -ENOMEM;
1700                         goto out;
1701                 }
1702                 end = vcn + clst_data;
1703                 /* Run contains updated range [vcn + len : end). */
1704         } else {
1705                 CLST alen, hint = 0;
1706                 /* Get the last LCN to allocate from. */
1707                 if (vcn + clst_data &&
1708                     !run_lookup_entry(run, vcn + clst_data - 1, &hint, NULL,
1709                                       NULL)) {
1710                         hint = -1;
1711                 }
1712
1713                 err = attr_allocate_clusters(sbi, run, vcn + clst_data,
1714                                              hint + 1, len - clst_data, NULL,
1715                                              ALLOCATE_DEF, &alen, 0, NULL,
1716                                              NULL);
1717                 if (err)
1718                         goto out;
1719
1720                 end = vcn + len;
1721                 /* Run contains updated range [vcn + clst_data : end). */
1722         }
1723
1724         total_size += (u64)len << sbi->cluster_bits;
1725
1726 repack:
1727         err = mi_pack_runs(mi, attr, run, max(end, evcn1) - svcn);
1728         if (err)
1729                 goto out;
1730
1731         attr_b->nres.total_size = cpu_to_le64(total_size);
1732         inode_set_bytes(&ni->vfs_inode, total_size);
1733         ni->ni_flags |= NI_FLAG_UPDATE_PARENT;
1734
1735         mi_b->dirty = true;
1736         mark_inode_dirty(&ni->vfs_inode);
1737
1738         /* Stored [vcn : next_svcn) from [vcn : end). */
1739         next_svcn = le64_to_cpu(attr->nres.evcn) + 1;
1740
1741         if (end <= evcn1) {
1742                 if (next_svcn == evcn1) {
1743                         /* Normal way. Update attribute and exit. */
1744                         goto ok;
1745                 }
1746                 /* Add new segment [next_svcn : evcn1 - next_svcn). */
1747                 if (!ni->attr_list.size) {
1748                         err = ni_create_attr_list(ni);
1749                         if (err)
1750                                 goto out;
1751                         /* Layout of records is changed. */
1752                         le_b = NULL;
1753                         attr_b = ni_find_attr(ni, NULL, &le_b, ATTR_DATA, NULL,
1754                                               0, NULL, &mi_b);
1755                         if (!attr_b) {
1756                                 err = -ENOENT;
1757                                 goto out;
1758                         }
1759
1760                         attr = attr_b;
1761                         le = le_b;
1762                         mi = mi_b;
1763                         goto repack;
1764                 }
1765         }
1766
1767         svcn = evcn1;
1768
1769         /* Estimate next attribute. */
1770         attr = ni_find_attr(ni, attr, &le, ATTR_DATA, NULL, 0, &svcn, &mi);
1771
1772         if (attr) {
1773                 CLST alloc = bytes_to_cluster(
1774                         sbi, le64_to_cpu(attr_b->nres.alloc_size));
1775                 CLST evcn = le64_to_cpu(attr->nres.evcn);
1776
1777                 if (end < next_svcn)
1778                         end = next_svcn;
1779                 while (end > evcn) {
1780                         /* Remove segment [svcn : evcn). */
1781                         mi_remove_attr(NULL, mi, attr);
1782
1783                         if (!al_remove_le(ni, le)) {
1784                                 err = -EINVAL;
1785                                 goto out;
1786                         }
1787
1788                         if (evcn + 1 >= alloc) {
1789                                 /* Last attribute segment. */
1790                                 evcn1 = evcn + 1;
1791                                 goto ins_ext;
1792                         }
1793
1794                         if (ni_load_mi(ni, le, &mi)) {
1795                                 attr = NULL;
1796                                 goto out;
1797                         }
1798
1799                         attr = mi_find_attr(mi, NULL, ATTR_DATA, NULL, 0,
1800                                             &le->id);
1801                         if (!attr) {
1802                                 err = -EINVAL;
1803                                 goto out;
1804                         }
1805                         svcn = le64_to_cpu(attr->nres.svcn);
1806                         evcn = le64_to_cpu(attr->nres.evcn);
1807                 }
1808
1809                 if (end < svcn)
1810                         end = svcn;
1811
1812                 err = attr_load_runs(attr, ni, run, &end);
1813                 if (err)
1814                         goto out;
1815
1816                 evcn1 = evcn + 1;
1817                 attr->nres.svcn = cpu_to_le64(next_svcn);
1818                 err = mi_pack_runs(mi, attr, run, evcn1 - next_svcn);
1819                 if (err)
1820                         goto out;
1821
1822                 le->vcn = cpu_to_le64(next_svcn);
1823                 ni->attr_list.dirty = true;
1824                 mi->dirty = true;
1825
1826                 next_svcn = le64_to_cpu(attr->nres.evcn) + 1;
1827         }
1828 ins_ext:
1829         if (evcn1 > next_svcn) {
1830                 err = ni_insert_nonresident(ni, ATTR_DATA, NULL, 0, run,
1831                                             next_svcn, evcn1 - next_svcn,
1832                                             attr_b->flags, &attr, &mi, NULL);
1833                 if (err)
1834                         goto out;
1835         }
1836 ok:
1837         run_truncate_around(run, vcn);
1838 out:
1839         if (attr_b) {
1840                 if (new_valid > data_size)
1841                         new_valid = data_size;
1842
1843                 valid_size = le64_to_cpu(attr_b->nres.valid_size);
1844                 if (new_valid != valid_size) {
1845                         attr_b->nres.valid_size = cpu_to_le64(valid_size);
1846                         mi_b->dirty = true;
1847                 }
1848         }
1849
1850         return err;
1851 }
1852
1853 /*
1854  * attr_collapse_range - Collapse range in file.
1855  */
1856 int attr_collapse_range(struct ntfs_inode *ni, u64 vbo, u64 bytes)
1857 {
1858         int err = 0;
1859         struct runs_tree *run = &ni->file.run;
1860         struct ntfs_sb_info *sbi = ni->mi.sbi;
1861         struct ATTRIB *attr = NULL, *attr_b;
1862         struct ATTR_LIST_ENTRY *le, *le_b;
1863         struct mft_inode *mi, *mi_b;
1864         CLST svcn, evcn1, len, dealloc, alen;
1865         CLST vcn, end;
1866         u64 valid_size, data_size, alloc_size, total_size;
1867         u32 mask;
1868         __le16 a_flags;
1869
1870         if (!bytes)
1871                 return 0;
1872
1873         le_b = NULL;
1874         attr_b = ni_find_attr(ni, NULL, &le_b, ATTR_DATA, NULL, 0, NULL, &mi_b);
1875         if (!attr_b)
1876                 return -ENOENT;
1877
1878         if (!attr_b->non_res) {
1879                 /* Attribute is resident. Nothing to do? */
1880                 return 0;
1881         }
1882
1883         data_size = le64_to_cpu(attr_b->nres.data_size);
1884         alloc_size = le64_to_cpu(attr_b->nres.alloc_size);
1885         a_flags = attr_b->flags;
1886
1887         if (is_attr_ext(attr_b)) {
1888                 total_size = le64_to_cpu(attr_b->nres.total_size);
1889                 mask = (sbi->cluster_size << attr_b->nres.c_unit) - 1;
1890         } else {
1891                 total_size = alloc_size;
1892                 mask = sbi->cluster_mask;
1893         }
1894
1895         if ((vbo & mask) || (bytes & mask)) {
1896                 /* Allow to collapse only cluster aligned ranges. */
1897                 return -EINVAL;
1898         }
1899
1900         if (vbo > data_size)
1901                 return -EINVAL;
1902
1903         down_write(&ni->file.run_lock);
1904
1905         if (vbo + bytes >= data_size) {
1906                 u64 new_valid = min(ni->i_valid, vbo);
1907
1908                 /* Simple truncate file at 'vbo'. */
1909                 truncate_setsize(&ni->vfs_inode, vbo);
1910                 err = attr_set_size(ni, ATTR_DATA, NULL, 0, &ni->file.run, vbo,
1911                                     &new_valid, true, NULL);
1912
1913                 if (!err && new_valid < ni->i_valid)
1914                         ni->i_valid = new_valid;
1915
1916                 goto out;
1917         }
1918
1919         /*
1920          * Enumerate all attribute segments and collapse.
1921          */
1922         alen = alloc_size >> sbi->cluster_bits;
1923         vcn = vbo >> sbi->cluster_bits;
1924         len = bytes >> sbi->cluster_bits;
1925         end = vcn + len;
1926         dealloc = 0;
1927
1928         svcn = le64_to_cpu(attr_b->nres.svcn);
1929         evcn1 = le64_to_cpu(attr_b->nres.evcn) + 1;
1930
1931         if (svcn <= vcn && vcn < evcn1) {
1932                 attr = attr_b;
1933                 le = le_b;
1934                 mi = mi_b;
1935         } else if (!le_b) {
1936                 err = -EINVAL;
1937                 goto out;
1938         } else {
1939                 le = le_b;
1940                 attr = ni_find_attr(ni, attr_b, &le, ATTR_DATA, NULL, 0, &vcn,
1941                                     &mi);
1942                 if (!attr) {
1943                         err = -EINVAL;
1944                         goto out;
1945                 }
1946
1947                 svcn = le64_to_cpu(attr->nres.svcn);
1948                 evcn1 = le64_to_cpu(attr->nres.evcn) + 1;
1949         }
1950
1951         for (;;) {
1952                 if (svcn >= end) {
1953                         /* Shift VCN- */
1954                         attr->nres.svcn = cpu_to_le64(svcn - len);
1955                         attr->nres.evcn = cpu_to_le64(evcn1 - 1 - len);
1956                         if (le) {
1957                                 le->vcn = attr->nres.svcn;
1958                                 ni->attr_list.dirty = true;
1959                         }
1960                         mi->dirty = true;
1961                 } else if (svcn < vcn || end < evcn1) {
1962                         CLST vcn1, eat, next_svcn;
1963
1964                         /* Collapse a part of this attribute segment. */
1965                         err = attr_load_runs(attr, ni, run, &svcn);
1966                         if (err)
1967                                 goto out;
1968                         vcn1 = max(vcn, svcn);
1969                         eat = min(end, evcn1) - vcn1;
1970
1971                         err = run_deallocate_ex(sbi, run, vcn1, eat, &dealloc,
1972                                                 true);
1973                         if (err)
1974                                 goto out;
1975
1976                         if (!run_collapse_range(run, vcn1, eat)) {
1977                                 err = -ENOMEM;
1978                                 goto out;
1979                         }
1980
1981                         if (svcn >= vcn) {
1982                                 /* Shift VCN */
1983                                 attr->nres.svcn = cpu_to_le64(vcn);
1984                                 if (le) {
1985                                         le->vcn = attr->nres.svcn;
1986                                         ni->attr_list.dirty = true;
1987                                 }
1988                         }
1989
1990                         err = mi_pack_runs(mi, attr, run, evcn1 - svcn - eat);
1991                         if (err)
1992                                 goto out;
1993
1994                         next_svcn = le64_to_cpu(attr->nres.evcn) + 1;
1995                         if (next_svcn + eat < evcn1) {
1996                                 err = ni_insert_nonresident(
1997                                         ni, ATTR_DATA, NULL, 0, run, next_svcn,
1998                                         evcn1 - eat - next_svcn, a_flags, &attr,
1999                                         &mi, &le);
2000                                 if (err)
2001                                         goto out;
2002
2003                                 /* Layout of records maybe changed. */
2004                                 attr_b = NULL;
2005                         }
2006
2007                         /* Free all allocated memory. */
2008                         run_truncate(run, 0);
2009                 } else {
2010                         u16 le_sz;
2011                         u16 roff = le16_to_cpu(attr->nres.run_off);
2012
2013                         if (roff > le32_to_cpu(attr->size)) {
2014                                 err = -EINVAL;
2015                                 goto out;
2016                         }
2017
2018                         run_unpack_ex(RUN_DEALLOCATE, sbi, ni->mi.rno, svcn,
2019                                       evcn1 - 1, svcn, Add2Ptr(attr, roff),
2020                                       le32_to_cpu(attr->size) - roff);
2021
2022                         /* Delete this attribute segment. */
2023                         mi_remove_attr(NULL, mi, attr);
2024                         if (!le)
2025                                 break;
2026
2027                         le_sz = le16_to_cpu(le->size);
2028                         if (!al_remove_le(ni, le)) {
2029                                 err = -EINVAL;
2030                                 goto out;
2031                         }
2032
2033                         if (evcn1 >= alen)
2034                                 break;
2035
2036                         if (!svcn) {
2037                                 /* Load next record that contains this attribute. */
2038                                 if (ni_load_mi(ni, le, &mi)) {
2039                                         err = -EINVAL;
2040                                         goto out;
2041                                 }
2042
2043                                 /* Look for required attribute. */
2044                                 attr = mi_find_attr(mi, NULL, ATTR_DATA, NULL,
2045                                                     0, &le->id);
2046                                 if (!attr) {
2047                                         err = -EINVAL;
2048                                         goto out;
2049                                 }
2050                                 goto next_attr;
2051                         }
2052                         le = (struct ATTR_LIST_ENTRY *)((u8 *)le - le_sz);
2053                 }
2054
2055                 if (evcn1 >= alen)
2056                         break;
2057
2058                 attr = ni_enum_attr_ex(ni, attr, &le, &mi);
2059                 if (!attr) {
2060                         err = -EINVAL;
2061                         goto out;
2062                 }
2063
2064 next_attr:
2065                 svcn = le64_to_cpu(attr->nres.svcn);
2066                 evcn1 = le64_to_cpu(attr->nres.evcn) + 1;
2067         }
2068
2069         if (!attr_b) {
2070                 le_b = NULL;
2071                 attr_b = ni_find_attr(ni, NULL, &le_b, ATTR_DATA, NULL, 0, NULL,
2072                                       &mi_b);
2073                 if (!attr_b) {
2074                         err = -ENOENT;
2075                         goto out;
2076                 }
2077         }
2078
2079         data_size -= bytes;
2080         valid_size = ni->i_valid;
2081         if (vbo + bytes <= valid_size)
2082                 valid_size -= bytes;
2083         else if (vbo < valid_size)
2084                 valid_size = vbo;
2085
2086         attr_b->nres.alloc_size = cpu_to_le64(alloc_size - bytes);
2087         attr_b->nres.data_size = cpu_to_le64(data_size);
2088         attr_b->nres.valid_size = cpu_to_le64(min(valid_size, data_size));
2089         total_size -= (u64)dealloc << sbi->cluster_bits;
2090         if (is_attr_ext(attr_b))
2091                 attr_b->nres.total_size = cpu_to_le64(total_size);
2092         mi_b->dirty = true;
2093
2094         /* Update inode size. */
2095         ni->i_valid = valid_size;
2096         i_size_write(&ni->vfs_inode, data_size);
2097         inode_set_bytes(&ni->vfs_inode, total_size);
2098         ni->ni_flags |= NI_FLAG_UPDATE_PARENT;
2099         mark_inode_dirty(&ni->vfs_inode);
2100
2101 out:
2102         up_write(&ni->file.run_lock);
2103         if (err)
2104                 _ntfs_bad_inode(&ni->vfs_inode);
2105
2106         return err;
2107 }
2108
2109 /*
2110  * attr_punch_hole
2111  *
2112  * Not for normal files.
2113  */
2114 int attr_punch_hole(struct ntfs_inode *ni, u64 vbo, u64 bytes, u32 *frame_size)
2115 {
2116         int err = 0;
2117         struct runs_tree *run = &ni->file.run;
2118         struct ntfs_sb_info *sbi = ni->mi.sbi;
2119         struct ATTRIB *attr = NULL, *attr_b;
2120         struct ATTR_LIST_ENTRY *le, *le_b;
2121         struct mft_inode *mi, *mi_b;
2122         CLST svcn, evcn1, vcn, len, end, alen, hole, next_svcn;
2123         u64 total_size, alloc_size;
2124         u32 mask;
2125         __le16 a_flags;
2126         struct runs_tree run2;
2127
2128         if (!bytes)
2129                 return 0;
2130
2131         le_b = NULL;
2132         attr_b = ni_find_attr(ni, NULL, &le_b, ATTR_DATA, NULL, 0, NULL, &mi_b);
2133         if (!attr_b)
2134                 return -ENOENT;
2135
2136         if (!attr_b->non_res) {
2137                 u32 data_size = le32_to_cpu(attr_b->res.data_size);
2138                 u32 from, to;
2139
2140                 if (vbo > data_size)
2141                         return 0;
2142
2143                 from = vbo;
2144                 to = min_t(u64, vbo + bytes, data_size);
2145                 memset(Add2Ptr(resident_data(attr_b), from), 0, to - from);
2146                 return 0;
2147         }
2148
2149         if (!is_attr_ext(attr_b))
2150                 return -EOPNOTSUPP;
2151
2152         alloc_size = le64_to_cpu(attr_b->nres.alloc_size);
2153         total_size = le64_to_cpu(attr_b->nres.total_size);
2154
2155         if (vbo >= alloc_size) {
2156                 /* NOTE: It is allowed. */
2157                 return 0;
2158         }
2159
2160         mask = (sbi->cluster_size << attr_b->nres.c_unit) - 1;
2161
2162         bytes += vbo;
2163         if (bytes > alloc_size)
2164                 bytes = alloc_size;
2165         bytes -= vbo;
2166
2167         if ((vbo & mask) || (bytes & mask)) {
2168                 /* We have to zero a range(s). */
2169                 if (frame_size == NULL) {
2170                         /* Caller insists range is aligned. */
2171                         return -EINVAL;
2172                 }
2173                 *frame_size = mask + 1;
2174                 return E_NTFS_NOTALIGNED;
2175         }
2176
2177         down_write(&ni->file.run_lock);
2178         run_init(&run2);
2179         run_truncate(run, 0);
2180
2181         /*
2182          * Enumerate all attribute segments and punch hole where necessary.
2183          */
2184         alen = alloc_size >> sbi->cluster_bits;
2185         vcn = vbo >> sbi->cluster_bits;
2186         len = bytes >> sbi->cluster_bits;
2187         end = vcn + len;
2188         hole = 0;
2189
2190         svcn = le64_to_cpu(attr_b->nres.svcn);
2191         evcn1 = le64_to_cpu(attr_b->nres.evcn) + 1;
2192         a_flags = attr_b->flags;
2193
2194         if (svcn <= vcn && vcn < evcn1) {
2195                 attr = attr_b;
2196                 le = le_b;
2197                 mi = mi_b;
2198         } else if (!le_b) {
2199                 err = -EINVAL;
2200                 goto bad_inode;
2201         } else {
2202                 le = le_b;
2203                 attr = ni_find_attr(ni, attr_b, &le, ATTR_DATA, NULL, 0, &vcn,
2204                                     &mi);
2205                 if (!attr) {
2206                         err = -EINVAL;
2207                         goto bad_inode;
2208                 }
2209
2210                 svcn = le64_to_cpu(attr->nres.svcn);
2211                 evcn1 = le64_to_cpu(attr->nres.evcn) + 1;
2212         }
2213
2214         while (svcn < end) {
2215                 CLST vcn1, zero, hole2 = hole;
2216
2217                 err = attr_load_runs(attr, ni, run, &svcn);
2218                 if (err)
2219                         goto done;
2220                 vcn1 = max(vcn, svcn);
2221                 zero = min(end, evcn1) - vcn1;
2222
2223                 /*
2224                  * Check range [vcn1 + zero).
2225                  * Calculate how many clusters there are.
2226                  * Don't do any destructive actions.
2227                  */
2228                 err = run_deallocate_ex(NULL, run, vcn1, zero, &hole2, false);
2229                 if (err)
2230                         goto done;
2231
2232                 /* Check if required range is already hole. */
2233                 if (hole2 == hole)
2234                         goto next_attr;
2235
2236                 /* Make a clone of run to undo. */
2237                 err = run_clone(run, &run2);
2238                 if (err)
2239                         goto done;
2240
2241                 /* Make a hole range (sparse) [vcn1 + zero). */
2242                 if (!run_add_entry(run, vcn1, SPARSE_LCN, zero, false)) {
2243                         err = -ENOMEM;
2244                         goto done;
2245                 }
2246
2247                 /* Update run in attribute segment. */
2248                 err = mi_pack_runs(mi, attr, run, evcn1 - svcn);
2249                 if (err)
2250                         goto done;
2251                 next_svcn = le64_to_cpu(attr->nres.evcn) + 1;
2252                 if (next_svcn < evcn1) {
2253                         /* Insert new attribute segment. */
2254                         err = ni_insert_nonresident(ni, ATTR_DATA, NULL, 0, run,
2255                                                     next_svcn,
2256                                                     evcn1 - next_svcn, a_flags,
2257                                                     &attr, &mi, &le);
2258                         if (err)
2259                                 goto undo_punch;
2260
2261                         /* Layout of records maybe changed. */
2262                         attr_b = NULL;
2263                 }
2264
2265                 /* Real deallocate. Should not fail. */
2266                 run_deallocate_ex(sbi, &run2, vcn1, zero, &hole, true);
2267
2268 next_attr:
2269                 /* Free all allocated memory. */
2270                 run_truncate(run, 0);
2271
2272                 if (evcn1 >= alen)
2273                         break;
2274
2275                 /* Get next attribute segment. */
2276                 attr = ni_enum_attr_ex(ni, attr, &le, &mi);
2277                 if (!attr) {
2278                         err = -EINVAL;
2279                         goto bad_inode;
2280                 }
2281
2282                 svcn = le64_to_cpu(attr->nres.svcn);
2283                 evcn1 = le64_to_cpu(attr->nres.evcn) + 1;
2284         }
2285
2286 done:
2287         if (!hole)
2288                 goto out;
2289
2290         if (!attr_b) {
2291                 attr_b = ni_find_attr(ni, NULL, NULL, ATTR_DATA, NULL, 0, NULL,
2292                                       &mi_b);
2293                 if (!attr_b) {
2294                         err = -EINVAL;
2295                         goto bad_inode;
2296                 }
2297         }
2298
2299         total_size -= (u64)hole << sbi->cluster_bits;
2300         attr_b->nres.total_size = cpu_to_le64(total_size);
2301         mi_b->dirty = true;
2302
2303         /* Update inode size. */
2304         inode_set_bytes(&ni->vfs_inode, total_size);
2305         ni->ni_flags |= NI_FLAG_UPDATE_PARENT;
2306         mark_inode_dirty(&ni->vfs_inode);
2307
2308 out:
2309         run_close(&run2);
2310         up_write(&ni->file.run_lock);
2311         return err;
2312
2313 bad_inode:
2314         _ntfs_bad_inode(&ni->vfs_inode);
2315         goto out;
2316
2317 undo_punch:
2318         /*
2319          * Restore packed runs.
2320          * 'mi_pack_runs' should not fail, cause we restore original.
2321          */
2322         if (mi_pack_runs(mi, attr, &run2, evcn1 - svcn))
2323                 goto bad_inode;
2324
2325         goto done;
2326 }
2327
2328 /*
2329  * attr_insert_range - Insert range (hole) in file.
2330  * Not for normal files.
2331  */
2332 int attr_insert_range(struct ntfs_inode *ni, u64 vbo, u64 bytes)
2333 {
2334         int err = 0;
2335         struct runs_tree *run = &ni->file.run;
2336         struct ntfs_sb_info *sbi = ni->mi.sbi;
2337         struct ATTRIB *attr = NULL, *attr_b;
2338         struct ATTR_LIST_ENTRY *le, *le_b;
2339         struct mft_inode *mi, *mi_b;
2340         CLST vcn, svcn, evcn1, len, next_svcn;
2341         u64 data_size, alloc_size;
2342         u32 mask;
2343         __le16 a_flags;
2344
2345         if (!bytes)
2346                 return 0;
2347
2348         le_b = NULL;
2349         attr_b = ni_find_attr(ni, NULL, &le_b, ATTR_DATA, NULL, 0, NULL, &mi_b);
2350         if (!attr_b)
2351                 return -ENOENT;
2352
2353         if (!is_attr_ext(attr_b)) {
2354                 /* It was checked above. See fallocate. */
2355                 return -EOPNOTSUPP;
2356         }
2357
2358         if (!attr_b->non_res) {
2359                 data_size = le32_to_cpu(attr_b->res.data_size);
2360                 alloc_size = data_size;
2361                 mask = sbi->cluster_mask; /* cluster_size - 1 */
2362         } else {
2363                 data_size = le64_to_cpu(attr_b->nres.data_size);
2364                 alloc_size = le64_to_cpu(attr_b->nres.alloc_size);
2365                 mask = (sbi->cluster_size << attr_b->nres.c_unit) - 1;
2366         }
2367
2368         if (vbo >= data_size) {
2369                 /*
2370                  * Insert range after the file size is not allowed.
2371                  * If the offset is equal to or greater than the end of
2372                  * file, an error is returned.  For such operations (i.e., inserting
2373                  * a hole at the end of file), ftruncate(2) should be used.
2374                  */
2375                 return -EINVAL;
2376         }
2377
2378         if ((vbo & mask) || (bytes & mask)) {
2379                 /* Allow to insert only frame aligned ranges. */
2380                 return -EINVAL;
2381         }
2382
2383         /*
2384          * valid_size <= data_size <= alloc_size
2385          * Check alloc_size for maximum possible.
2386          */
2387         if (bytes > sbi->maxbytes_sparse - alloc_size)
2388                 return -EFBIG;
2389
2390         vcn = vbo >> sbi->cluster_bits;
2391         len = bytes >> sbi->cluster_bits;
2392
2393         down_write(&ni->file.run_lock);
2394
2395         if (!attr_b->non_res) {
2396                 err = attr_set_size(ni, ATTR_DATA, NULL, 0, run,
2397                                     data_size + bytes, NULL, false, NULL);
2398
2399                 le_b = NULL;
2400                 attr_b = ni_find_attr(ni, NULL, &le_b, ATTR_DATA, NULL, 0, NULL,
2401                                       &mi_b);
2402                 if (!attr_b) {
2403                         err = -EINVAL;
2404                         goto bad_inode;
2405                 }
2406
2407                 if (err)
2408                         goto out;
2409
2410                 if (!attr_b->non_res) {
2411                         /* Still resident. */
2412                         char *data = Add2Ptr(attr_b,
2413                                              le16_to_cpu(attr_b->res.data_off));
2414
2415                         memmove(data + bytes, data, bytes);
2416                         memset(data, 0, bytes);
2417                         goto done;
2418                 }
2419
2420                 /* Resident files becomes nonresident. */
2421                 data_size = le64_to_cpu(attr_b->nres.data_size);
2422                 alloc_size = le64_to_cpu(attr_b->nres.alloc_size);
2423         }
2424
2425         /*
2426          * Enumerate all attribute segments and shift start vcn.
2427          */
2428         a_flags = attr_b->flags;
2429         svcn = le64_to_cpu(attr_b->nres.svcn);
2430         evcn1 = le64_to_cpu(attr_b->nres.evcn) + 1;
2431
2432         if (svcn <= vcn && vcn < evcn1) {
2433                 attr = attr_b;
2434                 le = le_b;
2435                 mi = mi_b;
2436         } else if (!le_b) {
2437                 err = -EINVAL;
2438                 goto bad_inode;
2439         } else {
2440                 le = le_b;
2441                 attr = ni_find_attr(ni, attr_b, &le, ATTR_DATA, NULL, 0, &vcn,
2442                                     &mi);
2443                 if (!attr) {
2444                         err = -EINVAL;
2445                         goto bad_inode;
2446                 }
2447
2448                 svcn = le64_to_cpu(attr->nres.svcn);
2449                 evcn1 = le64_to_cpu(attr->nres.evcn) + 1;
2450         }
2451
2452         run_truncate(run, 0); /* clear cached values. */
2453         err = attr_load_runs(attr, ni, run, NULL);
2454         if (err)
2455                 goto out;
2456
2457         if (!run_insert_range(run, vcn, len)) {
2458                 err = -ENOMEM;
2459                 goto out;
2460         }
2461
2462         /* Try to pack in current record as much as possible. */
2463         err = mi_pack_runs(mi, attr, run, evcn1 + len - svcn);
2464         if (err)
2465                 goto out;
2466
2467         next_svcn = le64_to_cpu(attr->nres.evcn) + 1;
2468
2469         while ((attr = ni_enum_attr_ex(ni, attr, &le, &mi)) &&
2470                attr->type == ATTR_DATA && !attr->name_len) {
2471                 le64_add_cpu(&attr->nres.svcn, len);
2472                 le64_add_cpu(&attr->nres.evcn, len);
2473                 if (le) {
2474                         le->vcn = attr->nres.svcn;
2475                         ni->attr_list.dirty = true;
2476                 }
2477                 mi->dirty = true;
2478         }
2479
2480         if (next_svcn < evcn1 + len) {
2481                 err = ni_insert_nonresident(ni, ATTR_DATA, NULL, 0, run,
2482                                             next_svcn, evcn1 + len - next_svcn,
2483                                             a_flags, NULL, NULL, NULL);
2484
2485                 le_b = NULL;
2486                 attr_b = ni_find_attr(ni, NULL, &le_b, ATTR_DATA, NULL, 0, NULL,
2487                                       &mi_b);
2488                 if (!attr_b) {
2489                         err = -EINVAL;
2490                         goto bad_inode;
2491                 }
2492
2493                 if (err) {
2494                         /* ni_insert_nonresident failed. Try to undo. */
2495                         goto undo_insert_range;
2496                 }
2497         }
2498
2499         /*
2500          * Update primary attribute segment.
2501          */
2502         if (vbo <= ni->i_valid)
2503                 ni->i_valid += bytes;
2504
2505         attr_b->nres.data_size = cpu_to_le64(data_size + bytes);
2506         attr_b->nres.alloc_size = cpu_to_le64(alloc_size + bytes);
2507
2508         /* ni->valid may be not equal valid_size (temporary). */
2509         if (ni->i_valid > data_size + bytes)
2510                 attr_b->nres.valid_size = attr_b->nres.data_size;
2511         else
2512                 attr_b->nres.valid_size = cpu_to_le64(ni->i_valid);
2513         mi_b->dirty = true;
2514
2515 done:
2516         i_size_write(&ni->vfs_inode, ni->vfs_inode.i_size + bytes);
2517         ni->ni_flags |= NI_FLAG_UPDATE_PARENT;
2518         mark_inode_dirty(&ni->vfs_inode);
2519
2520 out:
2521         run_truncate(run, 0); /* clear cached values. */
2522
2523         up_write(&ni->file.run_lock);
2524
2525         return err;
2526
2527 bad_inode:
2528         _ntfs_bad_inode(&ni->vfs_inode);
2529         goto out;
2530
2531 undo_insert_range:
2532         svcn = le64_to_cpu(attr_b->nres.svcn);
2533         evcn1 = le64_to_cpu(attr_b->nres.evcn) + 1;
2534
2535         if (svcn <= vcn && vcn < evcn1) {
2536                 attr = attr_b;
2537                 le = le_b;
2538                 mi = mi_b;
2539         } else if (!le_b) {
2540                 goto bad_inode;
2541         } else {
2542                 le = le_b;
2543                 attr = ni_find_attr(ni, attr_b, &le, ATTR_DATA, NULL, 0, &vcn,
2544                                     &mi);
2545                 if (!attr) {
2546                         goto bad_inode;
2547                 }
2548
2549                 svcn = le64_to_cpu(attr->nres.svcn);
2550                 evcn1 = le64_to_cpu(attr->nres.evcn) + 1;
2551         }
2552
2553         if (attr_load_runs(attr, ni, run, NULL))
2554                 goto bad_inode;
2555
2556         if (!run_collapse_range(run, vcn, len))
2557                 goto bad_inode;
2558
2559         if (mi_pack_runs(mi, attr, run, evcn1 + len - svcn))
2560                 goto bad_inode;
2561
2562         while ((attr = ni_enum_attr_ex(ni, attr, &le, &mi)) &&
2563                attr->type == ATTR_DATA && !attr->name_len) {
2564                 le64_sub_cpu(&attr->nres.svcn, len);
2565                 le64_sub_cpu(&attr->nres.evcn, len);
2566                 if (le) {
2567                         le->vcn = attr->nres.svcn;
2568                         ni->attr_list.dirty = true;
2569                 }
2570                 mi->dirty = true;
2571         }
2572
2573         goto out;
2574 }
2575
2576 /*
2577  * attr_force_nonresident
2578  *
2579  * Convert default data attribute into non resident form.
2580  */
2581 int attr_force_nonresident(struct ntfs_inode *ni)
2582 {
2583         int err;
2584         struct ATTRIB *attr;
2585         struct ATTR_LIST_ENTRY *le = NULL;
2586         struct mft_inode *mi;
2587
2588         attr = ni_find_attr(ni, NULL, &le, ATTR_DATA, NULL, 0, NULL, &mi);
2589         if (!attr) {
2590                 ntfs_bad_inode(&ni->vfs_inode, "no data attribute");
2591                 return -ENOENT;
2592         }
2593
2594         if (attr->non_res) {
2595                 /* Already non resident. */
2596                 return 0;
2597         }
2598
2599         down_write(&ni->file.run_lock);
2600         err = attr_make_nonresident(ni, attr, le, mi,
2601                                     le32_to_cpu(attr->res.data_size),
2602                                     &ni->file.run, &attr, NULL);
2603         up_write(&ni->file.run_lock);
2604
2605         return err;
2606 }
2607
2608 /*
2609  * Change the compression of data attribute
2610  */
2611 int attr_set_compress(struct ntfs_inode *ni, bool compr)
2612 {
2613         struct ATTRIB *attr;
2614         struct mft_inode *mi;
2615
2616         attr = ni_find_attr(ni, NULL, NULL, ATTR_DATA, NULL, 0, NULL, &mi);
2617         if (!attr)
2618                 return -ENOENT;
2619
2620         if (is_attr_compressed(attr) == !!compr) {
2621                 /* Already required compressed state. */
2622                 return 0;
2623         }
2624
2625         if (attr->non_res) {
2626                 u16 run_off;
2627                 u32 run_size;
2628                 char *run;
2629
2630                 if (attr->nres.data_size) {
2631                         /*
2632                          * There are rare cases when it possible to change
2633                          * compress state without big changes.
2634                          * TODO: Process these cases.
2635                          */
2636                         return -EOPNOTSUPP;
2637                 }
2638
2639                 run_off = le16_to_cpu(attr->nres.run_off);
2640                 run_size = le32_to_cpu(attr->size) - run_off;
2641                 run = Add2Ptr(attr, run_off);
2642
2643                 if (!compr) {
2644                         /* remove field 'attr->nres.total_size'. */
2645                         memmove(run - 8, run, run_size);
2646                         run_off -= 8;
2647                 }
2648
2649                 if (!mi_resize_attr(mi, attr, compr ? +8 : -8)) {
2650                         /*
2651                          * Ignore rare case when there are no 8 bytes in record with attr.
2652                          * TODO: split attribute.
2653                          */
2654                         return -EOPNOTSUPP;
2655                 }
2656
2657                 if (compr) {
2658                         /* Make a gap for 'attr->nres.total_size'. */
2659                         memmove(run + 8, run, run_size);
2660                         run_off += 8;
2661                         attr->nres.total_size = attr->nres.alloc_size;
2662                 }
2663                 attr->nres.run_off = cpu_to_le16(run_off);
2664         }
2665
2666         /* Update data attribute flags. */
2667         if (compr) {
2668                 attr->flags |= ATTR_FLAG_COMPRESSED;
2669                 attr->nres.c_unit = NTFS_LZNT_CUNIT;
2670         } else {
2671                 attr->flags &= ~ATTR_FLAG_COMPRESSED;
2672                 attr->nres.c_unit = 0;
2673         }
2674         mi->dirty = true;
2675
2676         return 0;
2677 }