sbin/fsck_ffs/pass5.c

   1 /*-
   2  * SPDX-License-Identifier: BSD-3-Clause
   3  *
   4  * Copyright (c) 1980, 1986, 1993
   5  *      The Regents of the University of California.  All rights reserved.
   6  *
   7  * Redistribution and use in source and binary forms, with or without
   8  * modification, are permitted provided that the following conditions
   9  * are met:
  10  * 1. Redistributions of source code must retain the above copyright
  11  *    notice, this list of conditions and the following disclaimer.
  12  * 2. Redistributions in binary form must reproduce the above copyright
  13  *    notice, this list of conditions and the following disclaimer in the
  14  *    documentation and/or other materials provided with the distribution.
  15  * 3. Neither the name of the University nor the names of its contributors
  16  *    may be used to endorse or promote products derived from this software
  17  *    without specific prior written permission.
  18  *
  19  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  20  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  21  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  22  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  23  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  24  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  25  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  26  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  27  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  28  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  29  * SUCH DAMAGE.
  30  */
  31
  32 #if 0
  33 #ifndef lint
  34 static const char sccsid[] = "@(#)pass5.c       8.9 (Berkeley) 4/28/95";
  35 #endif /* not lint */
  36 #endif
  37 #include <sys/cdefs.h>
  38 __FBSDID("$FreeBSD$");
  39
  40 #include <sys/param.h>
  41 #include <sys/sysctl.h>
  42
  43 #include <ufs/ufs/dinode.h>
  44 #include <ufs/ffs/fs.h>
  45
  46 #include <err.h>
  47 #include <inttypes.h>
  48 #include <limits.h>
  49 #include <string.h>
  50 #include <libufs.h>
  51
  52 #include "fsck.h"
  53
  54 static void check_maps(u_char *, u_char *, int, ufs2_daddr_t, const char *,
  55                         int *, int, int, int);
  56 static void clear_blocks(ufs2_daddr_t start, ufs2_daddr_t end);
  57
  58 void
  59 pass5(void)
  60 {
  61         int c, i, j, blk, frags, basesize, mapsize;
  62         int inomapsize, blkmapsize;
  63         struct fs *fs = &sblock;
  64         ufs2_daddr_t d, dbase, dmax, start;
  65         int rewritecg = 0;
  66         ino_t inum;
  67         struct csum *cs;
  68         struct csum_total cstotal;
  69         struct inodesc idesc[3];
  70         char buf[MAXBSIZE];
  71         struct cg *cg, *newcg = (struct cg *)buf;
  72         struct bufarea *cgbp;
  73
  74         inoinfo(UFS_WINO)->ino_state = USTATE;
  75         memset(newcg, 0, (size_t)fs->fs_cgsize);
  76         newcg->cg_niblk = fs->fs_ipg;
  77         /* check to see if we are to add a cylinder group check hash */
  78         if ((ckhashadd & CK_CYLGRP) != 0)
  79                 rewritecg = 1;
  80         if (cvtlevel >= 3) {
  81                 if (fs->fs_maxcontig < 2 && fs->fs_contigsumsize > 0) {
  82                         if (preen)
  83                                 pwarn("DELETING CLUSTERING MAPS\n");
  84                         if (preen || reply("DELETE CLUSTERING MAPS")) {
  85                                 fs->fs_contigsumsize = 0;
  86                                 rewritecg = 1;
  87                                 sbdirty();
  88                         }
  89                 }
  90                 if (fs->fs_maxcontig > 1) {
  91                         const char *doit = NULL;
  92
  93                         if (fs->fs_contigsumsize < 1) {
  94                                 doit = "CREAT";
  95                         } else if (fs->fs_contigsumsize < fs->fs_maxcontig &&
  96                                    fs->fs_contigsumsize < FS_MAXCONTIG) {
  97                                 doit = "EXPAND";
  98                         }
  99                         if (doit) {
 100                                 i = fs->fs_contigsumsize;
 101                                 fs->fs_contigsumsize =
 102                                     MIN(fs->fs_maxcontig, FS_MAXCONTIG);
 103                                 if (CGSIZE(fs) > (u_int)fs->fs_bsize) {
 104                                         pwarn("CANNOT %s CLUSTER MAPS\n", doit);
 105                                         fs->fs_contigsumsize = i;
 106                                 } else if (preen ||
 107                                     reply("CREATE CLUSTER MAPS")) {
 108                                         if (preen)
 109                                                 pwarn("%sING CLUSTER MAPS\n",
 110                                                     doit);
 111                                         fs->fs_cgsize =
 112                                             fragroundup(fs, CGSIZE(fs));
 113                                         rewritecg = 1;
 114                                         sbdirty();
 115                                 }
 116                         }
 117                 }
 118         }
 119         basesize = &newcg->cg_space[0] - (u_char *)(&newcg->cg_firstfield);
 120         if (sblock.fs_magic == FS_UFS2_MAGIC) {
 121                 newcg->cg_iusedoff = basesize;
 122         } else {
 123                 /*
 124                  * We reserve the space for the old rotation summary
 125                  * tables for the benefit of old kernels, but do not
 126                  * maintain them in modern kernels. In time, they can
 127                  * go away.
 128                  */
 129                 newcg->cg_old_btotoff = basesize;
 130                 newcg->cg_old_boff = newcg->cg_old_btotoff +
 131                     fs->fs_old_cpg * sizeof(int32_t);
 132                 newcg->cg_iusedoff = newcg->cg_old_boff +
 133                     fs->fs_old_cpg * fs->fs_old_nrpos * sizeof(u_int16_t);
 134                 memset(&newcg->cg_space[0], 0, newcg->cg_iusedoff - basesize);
 135         }
 136         inomapsize = howmany(fs->fs_ipg, CHAR_BIT);
 137         newcg->cg_freeoff = newcg->cg_iusedoff + inomapsize;
 138         blkmapsize = howmany(fs->fs_fpg, CHAR_BIT);
 139         newcg->cg_nextfreeoff = newcg->cg_freeoff + blkmapsize;
 140         if (fs->fs_contigsumsize > 0) {
 141                 newcg->cg_clustersumoff = newcg->cg_nextfreeoff -
 142                     sizeof(u_int32_t);
 143                 newcg->cg_clustersumoff =
 144                     roundup(newcg->cg_clustersumoff, sizeof(u_int32_t));
 145                 newcg->cg_clusteroff = newcg->cg_clustersumoff +
 146                     (fs->fs_contigsumsize + 1) * sizeof(u_int32_t);
 147                 newcg->cg_nextfreeoff = newcg->cg_clusteroff +
 148                     howmany(fragstoblks(fs, fs->fs_fpg), CHAR_BIT);
 149         }
 150         newcg->cg_magic = CG_MAGIC;
 151         mapsize = newcg->cg_nextfreeoff - newcg->cg_iusedoff;
 152         memset(&idesc[0], 0, sizeof idesc);
 153         for (i = 0; i < 3; i++)
 154                 idesc[i].id_type = ADDR;
 155         memset(&cstotal, 0, sizeof(struct csum_total));
 156         dmax = blknum(fs, fs->fs_size + fs->fs_frag - 1);
 157         for (d = fs->fs_size; d < dmax; d++)
 158                 setbmap(d);
 159         for (c = 0; c < fs->fs_ncg; c++) {
 160                 if (got_siginfo) {
 161                         printf("%s: phase 5: cyl group %d of %d (%d%%)\n",
 162                             cdevname, c, sblock.fs_ncg,
 163                             c * 100 / sblock.fs_ncg);
 164                         got_siginfo = 0;
 165                 }
 166                 if (got_sigalarm) {
 167                         setproctitle("%s p5 %d%%", cdevname,
 168                             c * 100 / sblock.fs_ncg);
 169                         got_sigalarm = 0;
 170                 }
 171                 cgbp = cglookup(c);
 172                 cg = cgbp->b_un.b_cg;
 173                 if (!cg_chkmagic(cg))
 174                         pfatal("CG %d: BAD MAGIC NUMBER\n", c);
 175                 /*
 176                  * If we have a cylinder group check hash and are not adding
 177                  * it for the first time, verify that it is good.
 178                  */
 179                 if ((fs->fs_metackhash & CK_CYLGRP) != 0 &&
 180                     (ckhashadd & CK_CYLGRP) == 0) {
 181                         uint32_t ckhash, thishash;
 182
 183                         ckhash = cg->cg_ckhash;
 184                         cg->cg_ckhash = 0;
 185                         thishash = calculate_crc32c(~0L, cg, fs->fs_cgsize);
 186                         if (ckhash == thishash) {
 187                                 cg->cg_ckhash = ckhash;
 188                         } else {
 189                                 pwarn("CG %d: BAD CHECK-HASH %#x vs %#x\n",
 190                                     c, ckhash, thishash);
 191                                 cg->cg_ckhash = thishash;
 192                                 cgdirty(cgbp);
 193                         }
 194                 }
 195                 newcg->cg_time = cg->cg_time;
 196                 newcg->cg_old_time = cg->cg_old_time;
 197                 newcg->cg_unrefs = cg->cg_unrefs;
 198                 newcg->cg_ckhash = cg->cg_ckhash;
 199                 newcg->cg_cgx = c;
 200                 dbase = cgbase(fs, c);
 201                 dmax = dbase + fs->fs_fpg;
 202                 if (dmax > fs->fs_size)
 203                         dmax = fs->fs_size;
 204                 newcg->cg_ndblk = dmax - dbase;
 205                 if (fs->fs_magic == FS_UFS1_MAGIC) {
 206                         if (c == fs->fs_ncg - 1)
 207                                 newcg->cg_old_ncyl = howmany(newcg->cg_ndblk,
 208                                     fs->fs_fpg / fs->fs_old_cpg);
 209                         else
 210                                 newcg->cg_old_ncyl = fs->fs_old_cpg;
 211                         newcg->cg_old_niblk = fs->fs_ipg;
 212                         newcg->cg_niblk = 0;
 213                 }
 214                 if (fs->fs_contigsumsize > 0)
 215                         newcg->cg_nclusterblks = newcg->cg_ndblk / fs->fs_frag;
 216                 newcg->cg_cs.cs_ndir = 0;
 217                 newcg->cg_cs.cs_nffree = 0;
 218                 newcg->cg_cs.cs_nbfree = 0;
 219                 newcg->cg_cs.cs_nifree = fs->fs_ipg;
 220                 if (cg->cg_rotor >= 0 && cg->cg_rotor < newcg->cg_ndblk)
 221                         newcg->cg_rotor = cg->cg_rotor;
 222                 else
 223                         newcg->cg_rotor = 0;
 224                 if (cg->cg_frotor >= 0 && cg->cg_frotor < newcg->cg_ndblk)
 225                         newcg->cg_frotor = cg->cg_frotor;
 226                 else
 227                         newcg->cg_frotor = 0;
 228                 if (cg->cg_irotor >= 0 && cg->cg_irotor < fs->fs_ipg)
 229                         newcg->cg_irotor = cg->cg_irotor;
 230                 else
 231                         newcg->cg_irotor = 0;
 232                 if (fs->fs_magic == FS_UFS1_MAGIC) {
 233                         newcg->cg_initediblk = 0;
 234                 } else {
 235                         if ((unsigned)cg->cg_initediblk > fs->fs_ipg)
 236                                 newcg->cg_initediblk = fs->fs_ipg;
 237                         else
 238                                 newcg->cg_initediblk = cg->cg_initediblk;
 239                 }
 240                 memset(&newcg->cg_frsum[0], 0, sizeof newcg->cg_frsum);
 241                 memset(cg_inosused(newcg), 0, (size_t)(mapsize));
 242                 inum = fs->fs_ipg * c;
 243                 for (i = 0; i < inostathead[c].il_numalloced; inum++, i++) {
 244                         switch (inoinfo(inum)->ino_state) {
 245
 246                         case USTATE:
 247                                 break;
 248
 249                         case DSTATE:
 250                         case DCLEAR:
 251                         case DFOUND:
 252                         case DZLINK:
 253                                 newcg->cg_cs.cs_ndir++;
 254                                 /* FALLTHROUGH */
 255
 256                         case FSTATE:
 257                         case FCLEAR:
 258                         case FZLINK:
 259                                 newcg->cg_cs.cs_nifree--;
 260                                 setbit(cg_inosused(newcg), i);
 261                                 break;
 262
 263                         default:
 264                                 if (inum < UFS_ROOTINO)
 265                                         break;
 266                                 errx(EEXIT, "BAD STATE %d FOR INODE I=%ju",
 267                                     inoinfo(inum)->ino_state, (uintmax_t)inum);
 268                         }
 269                 }
 270                 if (c == 0)
 271                         for (i = 0; i < (int)UFS_ROOTINO; i++) {
 272                                 setbit(cg_inosused(newcg), i);
 273                                 newcg->cg_cs.cs_nifree--;
 274                         }
 275                 start = -1;
 276                 for (i = 0, d = dbase;
 277                      d < dmax;
 278                      d += fs->fs_frag, i += fs->fs_frag) {
 279                         frags = 0;
 280                         for (j = 0; j < fs->fs_frag; j++) {
 281                                 if (testbmap(d + j)) {
 282                                         if ((Eflag || Zflag) && start != -1) {
 283                                                 clear_blocks(start, d + j - 1);
 284                                                 start = -1;
 285                                         }
 286                                         continue;
 287                                 }
 288                                 if (start == -1)
 289                                         start = d + j;
 290                                 setbit(cg_blksfree(newcg), i + j);
 291                                 frags++;
 292                         }
 293                         if (frags == fs->fs_frag) {
 294                                 newcg->cg_cs.cs_nbfree++;
 295                                 if (fs->fs_contigsumsize > 0)
 296                                         setbit(cg_clustersfree(newcg),
 297                                             i / fs->fs_frag);
 298                         } else if (frags > 0) {
 299                                 newcg->cg_cs.cs_nffree += frags;
 300                                 blk = blkmap(fs, cg_blksfree(newcg), i);
 301                                 ffs_fragacct(fs, blk, newcg->cg_frsum, 1);
 302                         }
 303                 }
 304                 if ((Eflag || Zflag) && start != -1)
 305                         clear_blocks(start, d - 1);
 306                 if (fs->fs_contigsumsize > 0) {
 307                         int32_t *sump = cg_clustersum(newcg);
 308                         u_char *mapp = cg_clustersfree(newcg);
 309                         int map = *mapp++;
 310                         int bit = 1;
 311                         int run = 0;
 312
 313                         for (i = 0; i < newcg->cg_nclusterblks; i++) {
 314                                 if ((map & bit) != 0) {
 315                                         run++;
 316                                 } else if (run != 0) {
 317                                         if (run > fs->fs_contigsumsize)
 318                                                 run = fs->fs_contigsumsize;
 319                                         sump[run]++;
 320                                         run = 0;
 321                                 }
 322                                 if ((i & (CHAR_BIT - 1)) != (CHAR_BIT - 1)) {
 323                                         bit <<= 1;
 324                                 } else {
 325                                         map = *mapp++;
 326                                         bit = 1;
 327                                 }
 328                         }
 329                         if (run != 0) {
 330                                 if (run > fs->fs_contigsumsize)
 331                                         run = fs->fs_contigsumsize;
 332                                 sump[run]++;
 333                         }
 334                 }
 335
 336                 if (bkgrdflag != 0) {
 337                         cstotal.cs_nffree += cg->cg_cs.cs_nffree;
 338                         cstotal.cs_nbfree += cg->cg_cs.cs_nbfree;
 339                         cstotal.cs_nifree += cg->cg_cs.cs_nifree;
 340                         cstotal.cs_ndir += cg->cg_cs.cs_ndir;
 341                 } else {
 342                         cstotal.cs_nffree += newcg->cg_cs.cs_nffree;
 343                         cstotal.cs_nbfree += newcg->cg_cs.cs_nbfree;
 344                         cstotal.cs_nifree += newcg->cg_cs.cs_nifree;
 345                         cstotal.cs_ndir += newcg->cg_cs.cs_ndir;
 346                 }
 347                 cs = &fs->fs_cs(fs, c);
 348                 if (cursnapshot == 0 &&
 349                     memcmp(&newcg->cg_cs, cs, sizeof *cs) != 0 &&
 350                     dofix(&idesc[0], "FREE BLK COUNT(S) WRONG IN SUPERBLK")) {
 351                         memmove(cs, &newcg->cg_cs, sizeof *cs);
 352                         sbdirty();
 353                 }
 354                 if (rewritecg) {
 355                         memmove(cg, newcg, (size_t)fs->fs_cgsize);
 356                         cgdirty(cgbp);
 357                         continue;
 358                 }
 359                 if (cursnapshot == 0 &&
 360                     memcmp(newcg, cg, basesize) != 0 &&
 361                     dofix(&idesc[2], "SUMMARY INFORMATION BAD")) {
 362                         memmove(cg, newcg, (size_t)basesize);
 363                         cgdirty(cgbp);
 364                 }
 365                 if (bkgrdflag != 0 || usedsoftdep || debug)
 366                         update_maps(cg, newcg, bkgrdflag);
 367                 if (cursnapshot == 0 &&
 368                     memcmp(cg_inosused(newcg), cg_inosused(cg), mapsize) != 0 &&
 369                     dofix(&idesc[1], "BLK(S) MISSING IN BIT MAPS")) {
 370                         memmove(cg_inosused(cg), cg_inosused(newcg),
 371                               (size_t)mapsize);
 372                         cgdirty(cgbp);
 373                 }
 374         }
 375         if (cursnapshot == 0 &&
 376             memcmp(&cstotal, &fs->fs_cstotal, sizeof cstotal) != 0
 377             && dofix(&idesc[0], "SUMMARY BLK COUNT(S) WRONG IN SUPERBLK")) {
 378                 if (debug) {
 379                         printf("cstotal is currently: %jd dirs, %jd blks free, "
 380                             "%jd frags free, %jd inos free, %jd clusters\n",
 381                             (intmax_t)fs->fs_cstotal.cs_ndir,
 382                             (intmax_t)fs->fs_cstotal.cs_nbfree,
 383                             (intmax_t)fs->fs_cstotal.cs_nffree,
 384                             (intmax_t)fs->fs_cstotal.cs_nifree,
 385                             (intmax_t)fs->fs_cstotal.cs_numclusters);
 386                         printf("cstotal ought to be:  %jd dirs, %jd blks free, "
 387                             "%jd frags free, %jd inos free, %jd clusters\n",
 388                             (intmax_t)cstotal.cs_ndir,
 389                             (intmax_t)cstotal.cs_nbfree,
 390                             (intmax_t)cstotal.cs_nffree,
 391                             (intmax_t)cstotal.cs_nifree,
 392                             (intmax_t)cstotal.cs_numclusters);
 393                 }
 394                 memmove(&fs->fs_cstotal, &cstotal, sizeof cstotal);
 395                 fs->fs_ronly = 0;
 396                 fs->fs_fmod = 0;
 397                 sbdirty();
 398         }
 399
 400         /*
 401          * When doing background fsck on a snapshot, figure out whether
 402          * the superblock summary is inaccurate and correct it when
 403          * necessary.
 404          */
 405         if (cursnapshot != 0) {
 406                 cmd.size = 1;
 407
 408                 cmd.value = cstotal.cs_ndir - fs->fs_cstotal.cs_ndir;
 409                 if (cmd.value != 0) {
 410                         if (debug)
 411                                 printf("adjndir by %+" PRIi64 "\n", cmd.value);
 412                         if (bkgrdsumadj == 0 || sysctl(adjndir, MIBSIZE, 0, 0,
 413                             &cmd, sizeof cmd) == -1)
 414                                 rwerror("ADJUST NUMBER OF DIRECTORIES", cmd.value);
 415                 }
 416
 417                 cmd.value = cstotal.cs_nbfree - fs->fs_cstotal.cs_nbfree;
 418                 if (cmd.value != 0) {
 419                         if (debug)
 420                                 printf("adjnbfree by %+" PRIi64 "\n", cmd.value);
 421                         if (bkgrdsumadj == 0 || sysctl(adjnbfree, MIBSIZE, 0, 0,
 422                             &cmd, sizeof cmd) == -1)
 423                                 rwerror("ADJUST NUMBER OF FREE BLOCKS", cmd.value);
 424                 }
 425
 426                 cmd.value = cstotal.cs_nifree - fs->fs_cstotal.cs_nifree;
 427                 if (cmd.value != 0) {
 428                         if (debug)
 429                                 printf("adjnifree by %+" PRIi64 "\n", cmd.value);
 430                         if (bkgrdsumadj == 0 || sysctl(adjnifree, MIBSIZE, 0, 0,
 431                             &cmd, sizeof cmd) == -1)
 432                                 rwerror("ADJUST NUMBER OF FREE INODES", cmd.value);
 433                 }
 434
 435                 cmd.value = cstotal.cs_nffree - fs->fs_cstotal.cs_nffree;
 436                 if (cmd.value != 0) {
 437                         if (debug)
 438                                 printf("adjnffree by %+" PRIi64 "\n", cmd.value);
 439                         if (bkgrdsumadj == 0 || sysctl(adjnffree, MIBSIZE, 0, 0,
 440                             &cmd, sizeof cmd) == -1)
 441                                 rwerror("ADJUST NUMBER OF FREE FRAGS", cmd.value);
 442                 }
 443
 444                 cmd.value = cstotal.cs_numclusters - fs->fs_cstotal.cs_numclusters;
 445                 if (cmd.value != 0) {
 446                         if (debug)
 447                                 printf("adjnumclusters by %+" PRIi64 "\n", cmd.value);
 448                         if (bkgrdsumadj == 0 || sysctl(adjnumclusters, MIBSIZE, 0, 0,
 449                             &cmd, sizeof cmd) == -1)
 450                                 rwerror("ADJUST NUMBER OF FREE CLUSTERS", cmd.value);
 451                 }
 452         }
 453 }
 454
 455 /*
 456  * Compare the original cylinder group inode and block bitmaps with the
 457  * updated cylinder group inode and block bitmaps. Free inodes and blocks
 458  * that have been added. Complain if any previously freed inodes blocks
 459  * are now allocated.
 460  */
 461 void
 462 update_maps(
 463         struct cg *oldcg,       /* cylinder group of claimed allocations */
 464         struct cg *newcg,       /* cylinder group of determined allocations */
 465         int usesysctl)          /* 1 => use sysctl interface to update maps */
 466 {
 467         int inomapsize, excessdirs;
 468         struct fs *fs = &sblock;
 469
 470         inomapsize = howmany(fs->fs_ipg, CHAR_BIT);
 471         excessdirs = oldcg->cg_cs.cs_ndir - newcg->cg_cs.cs_ndir;
 472         if (excessdirs < 0) {
 473                 pfatal("LOST %d DIRECTORIES\n", -excessdirs);
 474                 excessdirs = 0;
 475         }
 476         if (excessdirs > 0)
 477                 check_maps(cg_inosused(newcg), cg_inosused(oldcg), inomapsize,
 478                     oldcg->cg_cgx * (ufs2_daddr_t)fs->fs_ipg, "DIR", freedirs,
 479                     0, excessdirs, usesysctl);
 480         check_maps(cg_inosused(newcg), cg_inosused(oldcg), inomapsize,
 481             oldcg->cg_cgx * (ufs2_daddr_t)fs->fs_ipg, "FILE", freefiles,
 482             excessdirs, fs->fs_ipg, usesysctl);
 483         check_maps(cg_blksfree(oldcg), cg_blksfree(newcg),
 484             howmany(fs->fs_fpg, CHAR_BIT),
 485             oldcg->cg_cgx * (ufs2_daddr_t)fs->fs_fpg, "FRAG",
 486             freeblks, 0, fs->fs_fpg, usesysctl);
 487 }
 488
 489 static void
 490 check_maps(
 491         u_char *map1,   /* map of claimed allocations */
 492         u_char *map2,   /* map of determined allocations */
 493         int mapsize,    /* size of above two maps */
 494         ufs2_daddr_t startvalue, /* resource value for first element in map */
 495         const char *name,       /* name of resource found in maps */
 496         int *opcode,    /* sysctl opcode to free resource */
 497         int skip,       /* number of entries to skip before starting to free */
 498         int limit,      /* limit on number of entries to free */
 499         int usesysctl)  /* 1 => use sysctl interface to update maps */
 500 {
 501 #       define BUFSIZE 16
 502         char buf[BUFSIZE];
 503         long i, j, k, l, m, size;
 504         ufs2_daddr_t n, astart, aend, ustart, uend;
 505         void (*msg)(const char *fmt, ...);
 506
 507         if (usesysctl)
 508                 msg = pfatal;
 509         else
 510                 msg = pwarn;
 511         astart = ustart = aend = uend = -1;
 512         for (i = 0; i < mapsize; i++) {
 513                 j = *map1++;
 514                 k = *map2++;
 515                 if (j == k)
 516                         continue;
 517                 for (m = 0, l = 1; m < CHAR_BIT; m++, l <<= 1) {
 518                         if ((j & l) == (k & l))
 519                                 continue;
 520                         n = startvalue + i * CHAR_BIT + m;
 521                         if ((j & l) != 0) {
 522                                 if (astart == -1) {
 523                                         astart = aend = n;
 524                                         continue;
 525                                 }
 526                                 if (aend + 1 == n) {
 527                                         aend = n;
 528                                         continue;
 529                                 }
 530                                 if (astart == aend)
 531                                         (*msg)("ALLOCATED %s %" PRId64
 532                                             " MARKED FREE\n",
 533                                             name, astart);
 534                                 else
 535                                         (*msg)("%s %sS %" PRId64 "-%" PRId64
 536                                             " MARKED FREE\n",
 537                                             "ALLOCATED", name, astart, aend);
 538                                 astart = aend = n;
 539                         } else {
 540                                 if (ustart == -1) {
 541                                         ustart = uend = n;
 542                                         continue;
 543                                 }
 544                                 if (uend + 1 == n) {
 545                                         uend = n;
 546                                         continue;
 547                                 }
 548                                 size = uend - ustart + 1;
 549                                 if (size <= skip) {
 550                                         skip -= size;
 551                                         ustart = uend = n;
 552                                         continue;
 553                                 }
 554                                 if (skip > 0) {
 555                                         ustart += skip;
 556                                         size -= skip;
 557                                         skip = 0;
 558                                 }
 559                                 if (size > limit)
 560                                         size = limit;
 561                                 if (debug && size == 1)
 562                                         pwarn("%s %s %" PRId64
 563                                             " MARKED USED\n",
 564                                             "UNALLOCATED", name, ustart);
 565                                 else if (debug)
 566                                         pwarn("%s %sS %" PRId64 "-%" PRId64
 567                                             " MARKED USED\n",
 568                                             "UNALLOCATED", name, ustart,
 569                                             ustart + size - 1);
 570                                 if (usesysctl != 0) {
 571                                         cmd.value = ustart;
 572                                         cmd.size = size;
 573                                         if (sysctl(opcode, MIBSIZE, 0, 0,
 574                                             &cmd, sizeof cmd) == -1) {
 575                                                 snprintf(buf, BUFSIZE,
 576                                                     "FREE %s", name);
 577                                                 rwerror(buf, cmd.value);
 578                                         }
 579                                 }
 580                                 limit -= size;
 581                                 if (limit <= 0)
 582                                         return;
 583                                 ustart = uend = n;
 584                         }
 585                 }
 586         }
 587         if (astart != -1) {
 588                 if (astart == aend)
 589                         (*msg)("ALLOCATED %s %" PRId64
 590                             " MARKED FREE\n", name, astart);
 591                 else
 592                         (*msg)("ALLOCATED %sS %" PRId64 "-%" PRId64
 593                             " MARKED FREE\n",
 594                             name, astart, aend);
 595         }
 596         if (ustart != -1) {
 597                 size = uend - ustart + 1;
 598                 if (size <= skip)
 599                         return;
 600                 if (skip > 0) {
 601                         ustart += skip;
 602                         size -= skip;
 603                 }
 604                 if (size > limit)
 605                         size = limit;
 606                 if (debug) {
 607                         if (size == 1)
 608                                 pwarn("UNALLOCATED %s %" PRId64
 609                                     " MARKED USED\n",
 610                                     name, ustart);
 611                         else
 612                                 pwarn("UNALLOCATED %sS %" PRId64 "-%" PRId64
 613                                     " MARKED USED\n",
 614                                     name, ustart, ustart + size - 1);
 615                 }
 616                 if (usesysctl != 0) {
 617                         cmd.value = ustart;
 618                         cmd.size = size;
 619                         if (sysctl(opcode, MIBSIZE, 0, 0, &cmd,
 620                             sizeof cmd) == -1) {
 621                                 snprintf(buf, BUFSIZE, "FREE %s", name);
 622                                 rwerror(buf, cmd.value);
 623                         }
 624                 }
 625         }
 626 }
 627
 628 static void
 629 clear_blocks(ufs2_daddr_t start, ufs2_daddr_t end)
 630 {
 631
 632         if (debug)
 633                 printf("Zero frags %jd to %jd\n", start, end);
 634         if (Zflag)
 635                 blzero(fswritefd, fsbtodb(&sblock, start),
 636                     lfragtosize(&sblock, end - start + 1));
 637         if (Eflag)
 638                 blerase(fswritefd, fsbtodb(&sblock, start),
 639                     lfragtosize(&sblock, end - start + 1));
 640 }