Home | History | Annotate | Line # | Download | only in ffs
ffs_inode.c revision 1.77
      1  1.77      yamt /*	$NetBSD: ffs_inode.c,v 1.77 2005/11/02 12:39:00 yamt Exp $	*/
      2   1.5       cgd 
      3   1.1   mycroft /*
      4   1.1   mycroft  * Copyright (c) 1982, 1986, 1989, 1993
      5   1.1   mycroft  *	The Regents of the University of California.  All rights reserved.
      6   1.1   mycroft  *
      7   1.1   mycroft  * Redistribution and use in source and binary forms, with or without
      8   1.1   mycroft  * modification, are permitted provided that the following conditions
      9   1.1   mycroft  * are met:
     10   1.1   mycroft  * 1. Redistributions of source code must retain the above copyright
     11   1.1   mycroft  *    notice, this list of conditions and the following disclaimer.
     12   1.1   mycroft  * 2. Redistributions in binary form must reproduce the above copyright
     13   1.1   mycroft  *    notice, this list of conditions and the following disclaimer in the
     14   1.1   mycroft  *    documentation and/or other materials provided with the distribution.
     15  1.60       agc  * 3. Neither the name of the University nor the names of its contributors
     16   1.1   mycroft  *    may be used to endorse or promote products derived from this software
     17   1.1   mycroft  *    without specific prior written permission.
     18   1.1   mycroft  *
     19   1.1   mycroft  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     20   1.1   mycroft  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     21   1.1   mycroft  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     22   1.1   mycroft  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     23   1.1   mycroft  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     24   1.1   mycroft  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     25   1.1   mycroft  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     26   1.1   mycroft  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     27   1.1   mycroft  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     28   1.1   mycroft  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     29   1.1   mycroft  * SUCH DAMAGE.
     30   1.1   mycroft  *
     31  1.18      fvdl  *	@(#)ffs_inode.c	8.13 (Berkeley) 4/21/95
     32   1.1   mycroft  */
     33  1.46     lukem 
     34  1.46     lukem #include <sys/cdefs.h>
     35  1.77      yamt __KERNEL_RCSID(0, "$NetBSD: ffs_inode.c,v 1.77 2005/11/02 12:39:00 yamt Exp $");
     36  1.17       mrg 
     37  1.41       mrg #if defined(_KERNEL_OPT)
     38  1.25   thorpej #include "opt_ffs.h"
     39  1.20    scottr #include "opt_quota.h"
     40  1.21    scottr #endif
     41   1.1   mycroft 
     42   1.1   mycroft #include <sys/param.h>
     43   1.1   mycroft #include <sys/systm.h>
     44   1.1   mycroft #include <sys/mount.h>
     45   1.1   mycroft #include <sys/proc.h>
     46   1.1   mycroft #include <sys/file.h>
     47   1.1   mycroft #include <sys/buf.h>
     48   1.1   mycroft #include <sys/vnode.h>
     49   1.1   mycroft #include <sys/kernel.h>
     50   1.1   mycroft #include <sys/malloc.h>
     51   1.1   mycroft #include <sys/trace.h>
     52   1.1   mycroft #include <sys/resourcevar.h>
     53  1.16       mrg 
     54   1.1   mycroft #include <ufs/ufs/quota.h>
     55   1.1   mycroft #include <ufs/ufs/inode.h>
     56   1.1   mycroft #include <ufs/ufs/ufsmount.h>
     57   1.1   mycroft #include <ufs/ufs/ufs_extern.h>
     58  1.19    bouyer #include <ufs/ufs/ufs_bswap.h>
     59   1.1   mycroft 
     60   1.1   mycroft #include <ufs/ffs/fs.h>
     61   1.1   mycroft #include <ufs/ffs/ffs_extern.h>
     62   1.1   mycroft 
     63  1.72   thorpej static int ffs_indirtrunc(struct inode *, daddr_t, daddr_t, daddr_t, int,
     64  1.72   thorpej 			  int64_t *);
     65   1.1   mycroft 
     66   1.1   mycroft /*
     67  1.13       tls  * Update the access, modified, and inode change times as specified
     68  1.13       tls  * by the IN_ACCESS, IN_UPDATE, and IN_CHANGE flags respectively.
     69  1.13       tls  * The IN_MODIFIED flag is used to specify that the inode needs to be
     70  1.13       tls  * updated but that the times have already been set. The access
     71  1.13       tls  * and modified times are taken from the second and third parameters;
     72  1.13       tls  * the inode change time is always taken from the current time. If
     73  1.31  perseant  * UPDATE_WAIT flag is set, or UPDATE_DIROP is set and we are not doing
     74  1.31  perseant  * softupdates, then wait for the disk write of the inode to complete.
     75   1.1   mycroft  */
     76  1.13       tls 
     77   1.1   mycroft int
     78  1.77      yamt ffs_update(struct vnode *vp, const struct timespec *acc,
     79  1.77      yamt     const struct timespec *mod, int updflags)
     80   1.9  christos {
     81  1.30  augustss 	struct fs *fs;
     82   1.1   mycroft 	struct buf *bp;
     83   1.1   mycroft 	struct inode *ip;
     84   1.1   mycroft 	int error;
     85  1.24   thorpej 	caddr_t cp;
     86  1.34   mycroft 	int waitfor, flags;
     87   1.1   mycroft 
     88  1.77      yamt 	if (vp->v_mount->mnt_flag & MNT_RDONLY)
     89  1.11   mycroft 		return (0);
     90  1.77      yamt 	ip = VTOI(vp);
     91  1.77      yamt 	FFS_ITIMES(ip, acc, mod, NULL);
     92  1.77      yamt 	if (updflags & UPDATE_CLOSE)
     93  1.65   mycroft 		flags = ip->i_flag & (IN_MODIFIED | IN_ACCESSED);
     94  1.65   mycroft 	else
     95  1.65   mycroft 		flags = ip->i_flag & IN_MODIFIED;
     96  1.34   mycroft 	if (flags == 0)
     97   1.1   mycroft 		return (0);
     98   1.1   mycroft 	fs = ip->i_fs;
     99  1.31  perseant 
    100  1.35   mycroft 	if ((flags & IN_MODIFIED) != 0 &&
    101  1.77      yamt 	    (vp->v_mount->mnt_flag & MNT_ASYNC) == 0) {
    102  1.77      yamt 		waitfor = updflags & UPDATE_WAIT;
    103  1.77      yamt 		if ((updflags & UPDATE_DIROP) && !DOINGSOFTDEP(vp))
    104  1.35   mycroft 			waitfor |= UPDATE_WAIT;
    105  1.35   mycroft 	} else
    106  1.35   mycroft 		waitfor = 0;
    107  1.31  perseant 
    108   1.1   mycroft 	/*
    109   1.1   mycroft 	 * Ensure that uid and gid are correct. This is a temporary
    110   1.1   mycroft 	 * fix until fsck has been changed to do the update.
    111   1.1   mycroft 	 */
    112  1.55      fvdl 	if (fs->fs_magic == FS_UFS1_MAGIC &&			/* XXX */
    113  1.55      fvdl 	    fs->fs_old_inodefmt < FS_44INODEFMT) {		/* XXX */
    114  1.55      fvdl 		ip->i_ffs1_ouid = ip->i_uid;	/* XXX */
    115  1.55      fvdl 		ip->i_ffs1_ogid = ip->i_gid;	/* XXX */
    116  1.18      fvdl 	}							/* XXX */
    117   1.9  christos 	error = bread(ip->i_devvp,
    118   1.9  christos 		      fsbtodb(fs, ino_to_fsba(fs, ip->i_number)),
    119   1.9  christos 		      (int)fs->fs_bsize, NOCRED, &bp);
    120   1.9  christos 	if (error) {
    121   1.1   mycroft 		brelse(bp);
    122   1.1   mycroft 		return (error);
    123   1.1   mycroft 	}
    124  1.35   mycroft 	ip->i_flag &= ~(IN_MODIFIED | IN_ACCESSED);
    125  1.77      yamt 	if (DOINGSOFTDEP(vp))
    126  1.31  perseant 		softdep_update_inodeblock(ip, bp, waitfor);
    127  1.55      fvdl 	else if (ip->i_ffs_effnlink != ip->i_nlink)
    128  1.29      fvdl 		panic("ffs_update: bad link cnt");
    129  1.55      fvdl 	if (fs->fs_magic == FS_UFS1_MAGIC) {
    130  1.55      fvdl 		cp = (caddr_t)bp->b_data +
    131  1.55      fvdl 		    (ino_to_fsbo(fs, ip->i_number) * DINODE1_SIZE);
    132  1.23  christos #ifdef FFS_EI
    133  1.55      fvdl 		if (UFS_FSNEEDSWAP(fs))
    134  1.55      fvdl 			ffs_dinode1_swap(ip->i_din.ffs1_din,
    135  1.55      fvdl 			    (struct ufs1_dinode *)cp);
    136  1.55      fvdl 		else
    137  1.55      fvdl #endif
    138  1.55      fvdl 			memcpy(cp, ip->i_din.ffs1_din, DINODE1_SIZE);
    139  1.55      fvdl 	} else {
    140  1.55      fvdl 		cp = (caddr_t)bp->b_data +
    141  1.55      fvdl 		    (ino_to_fsbo(fs, ip->i_number) * DINODE2_SIZE);
    142  1.55      fvdl #ifdef FFS_EI
    143  1.55      fvdl 		if (UFS_FSNEEDSWAP(fs))
    144  1.55      fvdl 			ffs_dinode2_swap(ip->i_din.ffs2_din,
    145  1.55      fvdl 			    (struct ufs2_dinode *)cp);
    146  1.55      fvdl 		else
    147  1.23  christos #endif
    148  1.55      fvdl 			memcpy(cp, ip->i_din.ffs2_din, DINODE2_SIZE);
    149  1.55      fvdl 	}
    150  1.35   mycroft 	if (waitfor) {
    151   1.1   mycroft 		return (bwrite(bp));
    152  1.29      fvdl 	} else {
    153   1.1   mycroft 		bdwrite(bp);
    154   1.1   mycroft 		return (0);
    155   1.1   mycroft 	}
    156   1.1   mycroft }
    157   1.1   mycroft 
    158   1.1   mycroft #define	SINGLE	0	/* index of single indirect block */
    159   1.1   mycroft #define	DOUBLE	1	/* index of double indirect block */
    160   1.1   mycroft #define	TRIPLE	2	/* index of triple indirect block */
    161   1.1   mycroft /*
    162   1.1   mycroft  * Truncate the inode oip to at most length size, freeing the
    163   1.1   mycroft  * disk blocks.
    164   1.1   mycroft  */
    165   1.9  christos int
    166  1.77      yamt ffs_truncate(struct vnode *ovp, off_t length, int ioflag, struct ucred *cred,
    167  1.77      yamt     struct proc *p)
    168   1.9  christos {
    169  1.43       chs 	struct genfs_node *gp = VTOG(ovp);
    170  1.53      fvdl 	daddr_t lastblock;
    171  1.68   mycroft 	struct inode *oip = VTOI(ovp);
    172  1.53      fvdl 	daddr_t bn, lastiblock[NIADDR], indir_lbn[NIADDR];
    173  1.64   hannken 	daddr_t blks[NDADDR + NIADDR];
    174  1.30  augustss 	struct fs *fs;
    175   1.1   mycroft 	int offset, size, level;
    176  1.55      fvdl 	int64_t count, blocksreleased = 0;
    177  1.77      yamt 	int i, aflag, nblocks;
    178  1.38       chs 	int error, allerror = 0;
    179   1.1   mycroft 	off_t osize;
    180  1.67   mycroft 	int sync;
    181  1.68   mycroft 	struct ufsmount *ump = oip->i_ump;
    182   1.1   mycroft 
    183   1.2        pk 	if (length < 0)
    184   1.3   mycroft 		return (EINVAL);
    185  1.68   mycroft 
    186   1.1   mycroft 	if (ovp->v_type == VLNK &&
    187  1.68   mycroft 	    (oip->i_size < ump->um_maxsymlinklen ||
    188  1.68   mycroft 	     (ump->um_maxsymlinklen == 0 && DIP(oip, blocks) == 0))) {
    189  1.38       chs 		KDASSERT(length == 0);
    190  1.55      fvdl 		memset(SHORTLINK(oip), 0, (size_t)oip->i_size);
    191  1.55      fvdl 		oip->i_size = 0;
    192  1.57  kristerw 		DIP_ASSIGN(oip, size, 0);
    193   1.1   mycroft 		oip->i_flag |= IN_CHANGE | IN_UPDATE;
    194  1.77      yamt 		return (ffs_update(ovp, NULL, NULL, 0));
    195   1.1   mycroft 	}
    196  1.55      fvdl 	if (oip->i_size == length) {
    197   1.1   mycroft 		oip->i_flag |= IN_CHANGE | IN_UPDATE;
    198  1.77      yamt 		return (ffs_update(ovp, NULL, NULL, 0));
    199   1.1   mycroft 	}
    200   1.1   mycroft #ifdef QUOTA
    201   1.9  christos 	if ((error = getinoquota(oip)) != 0)
    202   1.1   mycroft 		return (error);
    203   1.1   mycroft #endif
    204   1.1   mycroft 	fs = oip->i_fs;
    205  1.68   mycroft 	if (length > ump->um_maxfilesize)
    206  1.38       chs 		return (EFBIG);
    207  1.38       chs 
    208  1.63   hannken 	if ((oip->i_flags & SF_SNAPSHOT) != 0)
    209  1.63   hannken 		ffs_snapremove(ovp);
    210  1.63   hannken 
    211  1.55      fvdl 	osize = oip->i_size;
    212  1.50       chs 	aflag = ioflag & IO_SYNC ? B_SYNC : 0;
    213  1.29      fvdl 
    214  1.38       chs 	/*
    215  1.38       chs 	 * Lengthen the size of the file. We must ensure that the
    216  1.38       chs 	 * last byte of the file is allocated. Since the smallest
    217  1.38       chs 	 * value of osize is 0, length will be at least 1.
    218  1.38       chs 	 */
    219  1.38       chs 
    220  1.38       chs 	if (osize < length) {
    221  1.48       chs 		if (lblkno(fs, osize) < NDADDR &&
    222  1.48       chs 		    lblkno(fs, osize) != lblkno(fs, length) &&
    223  1.48       chs 		    blkroundup(fs, osize) != osize) {
    224  1.69   mycroft 			off_t eob;
    225  1.69   mycroft 
    226  1.69   mycroft 			eob = blkroundup(fs, osize);
    227  1.69   mycroft 			error = ufs_balloc_range(ovp, osize, eob - osize,
    228  1.77      yamt 			    cred, aflag);
    229  1.68   mycroft 			if (error)
    230  1.48       chs 				return error;
    231  1.48       chs 			if (ioflag & IO_SYNC) {
    232  1.69   mycroft 				ovp->v_size = eob;
    233  1.48       chs 				simple_lock(&ovp->v_interlock);
    234  1.49       chs 				VOP_PUTPAGES(ovp,
    235  1.69   mycroft 				    trunc_page(osize & fs->fs_bmask),
    236  1.69   mycroft 				    round_page(eob), PGO_CLEANIT | PGO_SYNCIO);
    237  1.48       chs 			}
    238  1.48       chs 		}
    239  1.77      yamt 		error = ufs_balloc_range(ovp, length - 1, 1, cred, aflag);
    240  1.45       chs 		if (error) {
    241  1.77      yamt 			(void) ffs_truncate(ovp, osize, ioflag & IO_SYNC,
    242  1.77      yamt 			    cred, p);
    243  1.68   mycroft 			return (error);
    244  1.45       chs 		}
    245  1.43       chs 		uvm_vnp_setsize(ovp, length);
    246  1.38       chs 		oip->i_flag |= IN_CHANGE | IN_UPDATE;
    247  1.55      fvdl 		KASSERT(ovp->v_size == oip->i_size);
    248  1.77      yamt 		return (ffs_update(ovp, NULL, NULL, 0));
    249  1.38       chs 	}
    250  1.38       chs 
    251  1.38       chs 	/*
    252  1.38       chs 	 * When truncating a regular file down to a non-block-aligned size,
    253  1.38       chs 	 * we must zero the part of last block which is past the new EOF.
    254  1.38       chs 	 * We must synchronously flush the zeroed pages to disk
    255  1.38       chs 	 * since the new pages will be invalidated as soon as we
    256  1.38       chs 	 * inform the VM system of the new, smaller size.
    257  1.48       chs 	 * We must do this before acquiring the GLOCK, since fetching
    258  1.38       chs 	 * the pages will acquire the GLOCK internally.
    259  1.38       chs 	 * So there is a window where another thread could see a whole
    260  1.38       chs 	 * zeroed page past EOF, but that's life.
    261  1.38       chs 	 */
    262  1.38       chs 
    263  1.38       chs 	offset = blkoff(fs, length);
    264  1.70   mycroft 	if (ovp->v_type == VREG && offset != 0 && osize > length) {
    265  1.70   mycroft 		daddr_t lbn;
    266  1.38       chs 		voff_t eoz;
    267  1.38       chs 
    268  1.77      yamt 		error = ufs_balloc_range(ovp, length - 1, 1, cred, aflag);
    269  1.67   mycroft 		if (error)
    270  1.50       chs 			return error;
    271  1.70   mycroft 		lbn = lblkno(fs, length);
    272  1.70   mycroft 		size = blksize(fs, oip, lbn);
    273  1.70   mycroft 		eoz = MIN(lblktosize(fs, lbn) + size, osize);
    274  1.38       chs 		uvm_vnp_zerorange(ovp, length, eoz - length);
    275  1.70   mycroft 		if (round_page(eoz) > round_page(length)) {
    276  1.70   mycroft 			simple_lock(&ovp->v_interlock);
    277  1.70   mycroft 			error = VOP_PUTPAGES(ovp, round_page(length),
    278  1.70   mycroft 			    round_page(eoz),
    279  1.71   mycroft 			    PGO_CLEANIT | PGO_DEACTIVATE |
    280  1.71   mycroft 			    ((ioflag & IO_SYNC) ? PGO_SYNCIO : 0));
    281  1.70   mycroft 			if (error)
    282  1.70   mycroft 				return error;
    283  1.70   mycroft 		}
    284  1.38       chs 	}
    285  1.38       chs 
    286  1.43       chs 	lockmgr(&gp->g_glock, LK_EXCLUSIVE, NULL);
    287  1.38       chs 
    288  1.29      fvdl 	if (DOINGSOFTDEP(ovp)) {
    289  1.29      fvdl 		if (length > 0) {
    290  1.29      fvdl 			/*
    291  1.29      fvdl 			 * If a file is only partially truncated, then
    292  1.29      fvdl 			 * we have to clean up the data structures
    293  1.29      fvdl 			 * describing the allocation past the truncation
    294  1.29      fvdl 			 * point. Finding and deallocating those structures
    295  1.29      fvdl 			 * is a lot of work. Since partial truncation occurs
    296  1.29      fvdl 			 * rarely, we solve the problem by syncing the file
    297  1.29      fvdl 			 * so that it will have no data structures left.
    298  1.29      fvdl 			 */
    299  1.77      yamt 			if ((error = VOP_FSYNC(ovp, cred, FSYNC_WAIT,
    300  1.77      yamt 			    0, 0, p)) != 0) {
    301  1.43       chs 				lockmgr(&gp->g_glock, LK_RELEASE, NULL);
    302  1.29      fvdl 				return (error);
    303  1.52    simonb 			}
    304  1.51      fvdl 			if (oip->i_flag & IN_SPACECOUNTED)
    305  1.55      fvdl 				fs->fs_pendingblocks -= DIP(oip, blocks);
    306  1.29      fvdl 		} else {
    307  1.40  augustss 			uvm_vnp_setsize(ovp, length);
    308  1.29      fvdl #ifdef QUOTA
    309  1.55      fvdl  			(void) chkdq(oip, -DIP(oip, blocks), NOCRED, 0);
    310  1.29      fvdl #endif
    311  1.55      fvdl 			softdep_setup_freeblocks(oip, length, 0);
    312  1.77      yamt 			(void) vinvalbuf(ovp, 0, cred, p, 0, 0);
    313  1.43       chs 			lockmgr(&gp->g_glock, LK_RELEASE, NULL);
    314  1.29      fvdl 			oip->i_flag |= IN_CHANGE | IN_UPDATE;
    315  1.77      yamt 			return (ffs_update(ovp, NULL, NULL, 0));
    316  1.29      fvdl 		}
    317  1.29      fvdl 	}
    318  1.55      fvdl 	oip->i_size = length;
    319  1.57  kristerw 	DIP_ASSIGN(oip, size, length);
    320  1.18      fvdl 	uvm_vnp_setsize(ovp, length);
    321   1.1   mycroft 	/*
    322   1.1   mycroft 	 * Calculate index into inode's block list of
    323   1.1   mycroft 	 * last direct and indirect blocks (if any)
    324   1.1   mycroft 	 * which we want to keep.  Lastblock is -1 when
    325   1.1   mycroft 	 * the file is truncated to 0.
    326   1.1   mycroft 	 */
    327   1.1   mycroft 	lastblock = lblkno(fs, length + fs->fs_bsize - 1) - 1;
    328   1.1   mycroft 	lastiblock[SINGLE] = lastblock - NDADDR;
    329   1.1   mycroft 	lastiblock[DOUBLE] = lastiblock[SINGLE] - NINDIR(fs);
    330   1.1   mycroft 	lastiblock[TRIPLE] = lastiblock[DOUBLE] - NINDIR(fs) * NINDIR(fs);
    331   1.1   mycroft 	nblocks = btodb(fs->fs_bsize);
    332   1.1   mycroft 	/*
    333   1.1   mycroft 	 * Update file and block pointers on disk before we start freeing
    334   1.1   mycroft 	 * blocks.  If we crash before free'ing blocks below, the blocks
    335   1.1   mycroft 	 * will be returned to the free list.  lastiblock values are also
    336   1.1   mycroft 	 * normalized to -1 for calls to ffs_indirtrunc below.
    337   1.1   mycroft 	 */
    338  1.67   mycroft 	sync = 0;
    339  1.55      fvdl 	for (level = TRIPLE; level >= SINGLE; level--) {
    340  1.64   hannken 		blks[NDADDR + level] = DIP(oip, ib[level]);
    341  1.67   mycroft 		if (lastiblock[level] < 0 && blks[NDADDR + level] != 0) {
    342  1.67   mycroft 			sync = 1;
    343  1.57  kristerw 			DIP_ASSIGN(oip, ib[level], 0);
    344   1.1   mycroft 			lastiblock[level] = -1;
    345   1.1   mycroft 		}
    346  1.55      fvdl 	}
    347  1.55      fvdl 	for (i = 0; i < NDADDR; i++) {
    348  1.64   hannken 		blks[i] = DIP(oip, db[i]);
    349  1.67   mycroft 		if (i > lastblock && blks[i] != 0) {
    350  1.67   mycroft 			sync = 1;
    351  1.57  kristerw 			DIP_ASSIGN(oip, db[i], 0);
    352  1.67   mycroft 		}
    353  1.67   mycroft 	}
    354  1.68   mycroft 	oip->i_flag |= IN_CHANGE | IN_UPDATE;
    355  1.67   mycroft 	if (sync) {
    356  1.77      yamt 		error = ffs_update(ovp, NULL, NULL, UPDATE_WAIT);
    357  1.67   mycroft 		if (error && !allerror)
    358  1.67   mycroft 			allerror = error;
    359  1.55      fvdl 	}
    360  1.32   mycroft 
    361   1.1   mycroft 	/*
    362   1.1   mycroft 	 * Having written the new inode to disk, save its new configuration
    363   1.1   mycroft 	 * and put back the old block pointers long enough to process them.
    364   1.1   mycroft 	 * Note that we save the new block configuration so we can check it
    365   1.1   mycroft 	 * when we are done.
    366   1.1   mycroft 	 */
    367  1.55      fvdl 	for (i = 0; i < NDADDR; i++) {
    368  1.64   hannken 		bn = DIP(oip, db[i]);
    369  1.64   hannken 		DIP_ASSIGN(oip, db[i], blks[i]);
    370  1.64   hannken 		blks[i] = bn;
    371  1.55      fvdl 	}
    372  1.55      fvdl 	for (i = 0; i < NIADDR; i++) {
    373  1.64   hannken 		bn = DIP(oip, ib[i]);
    374  1.64   hannken 		DIP_ASSIGN(oip, ib[i], blks[NDADDR + i]);
    375  1.64   hannken 		blks[NDADDR + i] = bn;
    376  1.55      fvdl 	}
    377  1.55      fvdl 
    378  1.55      fvdl 	oip->i_size = osize;
    379  1.57  kristerw 	DIP_ASSIGN(oip, size, osize);
    380  1.32   mycroft 	error = vtruncbuf(ovp, lastblock + 1, 0, 0);
    381  1.32   mycroft 	if (error && !allerror)
    382  1.32   mycroft 		allerror = error;
    383   1.1   mycroft 
    384   1.1   mycroft 	/*
    385   1.1   mycroft 	 * Indirect blocks first.
    386   1.1   mycroft 	 */
    387   1.1   mycroft 	indir_lbn[SINGLE] = -NDADDR;
    388   1.1   mycroft 	indir_lbn[DOUBLE] = indir_lbn[SINGLE] - NINDIR(fs) - 1;
    389   1.1   mycroft 	indir_lbn[TRIPLE] = indir_lbn[DOUBLE] - NINDIR(fs) * NINDIR(fs) - 1;
    390   1.1   mycroft 	for (level = TRIPLE; level >= SINGLE; level--) {
    391  1.55      fvdl 		if (oip->i_ump->um_fstype == UFS1)
    392  1.55      fvdl 			bn = ufs_rw32(oip->i_ffs1_ib[level],UFS_FSNEEDSWAP(fs));
    393  1.55      fvdl 		else
    394  1.55      fvdl 			bn = ufs_rw64(oip->i_ffs2_ib[level],UFS_FSNEEDSWAP(fs));
    395   1.1   mycroft 		if (bn != 0) {
    396   1.1   mycroft 			error = ffs_indirtrunc(oip, indir_lbn[level],
    397   1.1   mycroft 			    fsbtodb(fs, bn), lastiblock[level], level, &count);
    398   1.1   mycroft 			if (error)
    399   1.1   mycroft 				allerror = error;
    400   1.1   mycroft 			blocksreleased += count;
    401   1.1   mycroft 			if (lastiblock[level] < 0) {
    402  1.57  kristerw 				DIP_ASSIGN(oip, ib[level], 0);
    403  1.63   hannken 				ffs_blkfree(fs, oip->i_devvp, bn, fs->fs_bsize,
    404  1.63   hannken 				    oip->i_number);
    405   1.1   mycroft 				blocksreleased += nblocks;
    406   1.1   mycroft 			}
    407   1.1   mycroft 		}
    408   1.1   mycroft 		if (lastiblock[level] >= 0)
    409   1.1   mycroft 			goto done;
    410   1.1   mycroft 	}
    411   1.1   mycroft 
    412   1.1   mycroft 	/*
    413   1.1   mycroft 	 * All whole direct blocks or frags.
    414   1.1   mycroft 	 */
    415   1.1   mycroft 	for (i = NDADDR - 1; i > lastblock; i--) {
    416  1.30  augustss 		long bsize;
    417   1.1   mycroft 
    418  1.55      fvdl 		if (oip->i_ump->um_fstype == UFS1)
    419  1.55      fvdl 			bn = ufs_rw32(oip->i_ffs1_db[i], UFS_FSNEEDSWAP(fs));
    420  1.55      fvdl 		else
    421  1.55      fvdl 			bn = ufs_rw64(oip->i_ffs2_db[i], UFS_FSNEEDSWAP(fs));
    422   1.1   mycroft 		if (bn == 0)
    423   1.1   mycroft 			continue;
    424  1.57  kristerw 		DIP_ASSIGN(oip, db[i], 0);
    425   1.1   mycroft 		bsize = blksize(fs, oip, i);
    426  1.63   hannken 		ffs_blkfree(fs, oip->i_devvp, bn, bsize, oip->i_number);
    427   1.1   mycroft 		blocksreleased += btodb(bsize);
    428   1.1   mycroft 	}
    429   1.1   mycroft 	if (lastblock < 0)
    430   1.1   mycroft 		goto done;
    431   1.1   mycroft 
    432   1.1   mycroft 	/*
    433   1.1   mycroft 	 * Finally, look for a change in size of the
    434   1.1   mycroft 	 * last direct block; release any frags.
    435   1.1   mycroft 	 */
    436  1.55      fvdl 	if (oip->i_ump->um_fstype == UFS1)
    437  1.55      fvdl 		bn = ufs_rw32(oip->i_ffs1_db[lastblock], UFS_FSNEEDSWAP(fs));
    438  1.55      fvdl 	else
    439  1.55      fvdl 		bn = ufs_rw64(oip->i_ffs2_db[lastblock], UFS_FSNEEDSWAP(fs));
    440   1.1   mycroft 	if (bn != 0) {
    441   1.1   mycroft 		long oldspace, newspace;
    442   1.1   mycroft 
    443   1.1   mycroft 		/*
    444   1.1   mycroft 		 * Calculate amount of space we're giving
    445   1.1   mycroft 		 * back as old block size minus new block size.
    446   1.1   mycroft 		 */
    447   1.1   mycroft 		oldspace = blksize(fs, oip, lastblock);
    448  1.55      fvdl 		oip->i_size = length;
    449  1.57  kristerw 		DIP_ASSIGN(oip, size, length);
    450   1.1   mycroft 		newspace = blksize(fs, oip, lastblock);
    451   1.1   mycroft 		if (newspace == 0)
    452   1.1   mycroft 			panic("itrunc: newspace");
    453   1.1   mycroft 		if (oldspace - newspace > 0) {
    454   1.1   mycroft 			/*
    455   1.1   mycroft 			 * Block number of space to be free'd is
    456   1.1   mycroft 			 * the old block # plus the number of frags
    457   1.1   mycroft 			 * required for the storage we're keeping.
    458   1.1   mycroft 			 */
    459   1.1   mycroft 			bn += numfrags(fs, newspace);
    460  1.63   hannken 			ffs_blkfree(fs, oip->i_devvp, bn, oldspace - newspace,
    461  1.63   hannken 			    oip->i_number);
    462   1.1   mycroft 			blocksreleased += btodb(oldspace - newspace);
    463   1.1   mycroft 		}
    464   1.1   mycroft 	}
    465  1.32   mycroft 
    466   1.1   mycroft done:
    467   1.1   mycroft #ifdef DIAGNOSTIC
    468   1.1   mycroft 	for (level = SINGLE; level <= TRIPLE; level++)
    469  1.64   hannken 		if (blks[NDADDR + level] != DIP(oip, ib[level]))
    470   1.1   mycroft 			panic("itrunc1");
    471   1.1   mycroft 	for (i = 0; i < NDADDR; i++)
    472  1.64   hannken 		if (blks[i] != DIP(oip, db[i]))
    473   1.1   mycroft 			panic("itrunc2");
    474   1.1   mycroft 	if (length == 0 &&
    475  1.32   mycroft 	    (!LIST_EMPTY(&ovp->v_cleanblkhd) || !LIST_EMPTY(&ovp->v_dirtyblkhd)))
    476   1.1   mycroft 		panic("itrunc3");
    477   1.1   mycroft #endif /* DIAGNOSTIC */
    478   1.1   mycroft 	/*
    479   1.1   mycroft 	 * Put back the real size.
    480   1.1   mycroft 	 */
    481  1.55      fvdl 	oip->i_size = length;
    482  1.57  kristerw 	DIP_ASSIGN(oip, size, length);
    483  1.57  kristerw 	DIP_ADD(oip, blocks, -blocksreleased);
    484  1.43       chs 	lockmgr(&gp->g_glock, LK_RELEASE, NULL);
    485   1.1   mycroft 	oip->i_flag |= IN_CHANGE;
    486   1.1   mycroft #ifdef QUOTA
    487   1.1   mycroft 	(void) chkdq(oip, -blocksreleased, NOCRED, 0);
    488   1.1   mycroft #endif
    489  1.55      fvdl 	KASSERT(ovp->v_type != VREG || ovp->v_size == oip->i_size);
    490   1.1   mycroft 	return (allerror);
    491   1.1   mycroft }
    492   1.1   mycroft 
    493   1.1   mycroft /*
    494   1.1   mycroft  * Release blocks associated with the inode ip and stored in the indirect
    495   1.1   mycroft  * block bn.  Blocks are free'd in LIFO order up to (but not including)
    496   1.1   mycroft  * lastbn.  If level is greater than SINGLE, the block is an indirect block
    497   1.1   mycroft  * and recursive calls to indirtrunc must be used to cleanse other indirect
    498   1.1   mycroft  * blocks.
    499   1.1   mycroft  *
    500   1.1   mycroft  * NB: triple indirect blocks are untested.
    501   1.1   mycroft  */
    502   1.1   mycroft static int
    503  1.72   thorpej ffs_indirtrunc(struct inode *ip, daddr_t lbn, daddr_t dbn, daddr_t lastbn,
    504  1.72   thorpej     int level, int64_t *countp)
    505   1.1   mycroft {
    506  1.30  augustss 	int i;
    507   1.1   mycroft 	struct buf *bp;
    508  1.30  augustss 	struct fs *fs = ip->i_fs;
    509  1.55      fvdl 	int32_t *bap1 = NULL;
    510  1.55      fvdl 	int64_t *bap2 = NULL;
    511   1.1   mycroft 	struct vnode *vp;
    512  1.53      fvdl 	daddr_t nb, nlbn, last;
    513  1.55      fvdl 	char *copy = NULL;
    514  1.55      fvdl 	int64_t blkcount, factor, blocksreleased = 0;
    515  1.55      fvdl 	int nblocks;
    516   1.1   mycroft 	int error = 0, allerror = 0;
    517  1.55      fvdl #ifdef FFS_EI
    518  1.55      fvdl 	const int needswap = UFS_FSNEEDSWAP(fs);
    519  1.55      fvdl #endif
    520  1.55      fvdl #define RBAP(ip, i) (((ip)->i_ump->um_fstype == UFS1) ? \
    521  1.55      fvdl 	    ufs_rw32(bap1[i], needswap) : ufs_rw64(bap2[i], needswap))
    522  1.57  kristerw #define BAP_ASSIGN(ip, i, value)					\
    523  1.57  kristerw 	do {								\
    524  1.57  kristerw 		if ((ip)->i_ump->um_fstype == UFS1)			\
    525  1.57  kristerw 			bap1[i] = (value);				\
    526  1.57  kristerw 		else							\
    527  1.57  kristerw 			bap2[i] = (value);				\
    528  1.57  kristerw 	} while(0)
    529   1.1   mycroft 
    530   1.1   mycroft 	/*
    531   1.1   mycroft 	 * Calculate index in current block of last
    532   1.1   mycroft 	 * block to be kept.  -1 indicates the entire
    533   1.1   mycroft 	 * block so we need not calculate the index.
    534   1.1   mycroft 	 */
    535   1.1   mycroft 	factor = 1;
    536   1.1   mycroft 	for (i = SINGLE; i < level; i++)
    537   1.1   mycroft 		factor *= NINDIR(fs);
    538   1.1   mycroft 	last = lastbn;
    539   1.1   mycroft 	if (lastbn > 0)
    540   1.1   mycroft 		last /= factor;
    541   1.1   mycroft 	nblocks = btodb(fs->fs_bsize);
    542   1.1   mycroft 	/*
    543   1.1   mycroft 	 * Get buffer of block pointers, zero those entries corresponding
    544   1.1   mycroft 	 * to blocks to be free'd, and update on disk copy first.  Since
    545   1.1   mycroft 	 * double(triple) indirect before single(double) indirect, calls
    546   1.1   mycroft 	 * to bmap on these blocks will fail.  However, we already have
    547   1.1   mycroft 	 * the on disk address, so we have to set the b_blkno field
    548   1.1   mycroft 	 * explicitly instead of letting bread do everything for us.
    549   1.1   mycroft 	 */
    550   1.1   mycroft 	vp = ITOV(ip);
    551   1.1   mycroft 	bp = getblk(vp, lbn, (int)fs->fs_bsize, 0, 0);
    552   1.1   mycroft 	if (bp->b_flags & (B_DONE | B_DELWRI)) {
    553   1.1   mycroft 		/* Braces must be here in case trace evaluates to nothing. */
    554   1.1   mycroft 		trace(TR_BREADHIT, pack(vp, fs->fs_bsize), lbn);
    555   1.1   mycroft 	} else {
    556   1.1   mycroft 		trace(TR_BREADMISS, pack(vp, fs->fs_bsize), lbn);
    557   1.1   mycroft 		curproc->p_stats->p_ru.ru_inblock++;	/* pay for read */
    558   1.1   mycroft 		bp->b_flags |= B_READ;
    559   1.1   mycroft 		if (bp->b_bcount > bp->b_bufsize)
    560   1.1   mycroft 			panic("ffs_indirtrunc: bad buffer size");
    561   1.1   mycroft 		bp->b_blkno = dbn;
    562  1.61      yamt 		BIO_SETPRIO(bp, BPRIO_TIMECRITICAL);
    563  1.62   hannken 		VOP_STRATEGY(vp, bp);
    564   1.1   mycroft 		error = biowait(bp);
    565   1.1   mycroft 	}
    566   1.1   mycroft 	if (error) {
    567   1.1   mycroft 		brelse(bp);
    568   1.1   mycroft 		*countp = 0;
    569   1.1   mycroft 		return (error);
    570   1.1   mycroft 	}
    571   1.1   mycroft 
    572  1.55      fvdl 	if (ip->i_ump->um_fstype == UFS1)
    573  1.55      fvdl 		bap1 = (int32_t *)bp->b_data;
    574  1.55      fvdl 	else
    575  1.55      fvdl 		bap2 = (int64_t *)bp->b_data;
    576  1.33   mycroft 	if (lastbn >= 0) {
    577  1.55      fvdl 		copy = malloc(fs->fs_bsize, M_TEMP, M_WAITOK);
    578  1.55      fvdl 		memcpy((caddr_t)copy, bp->b_data, (u_int)fs->fs_bsize);
    579  1.55      fvdl 		for (i = last + 1; i < NINDIR(fs); i++)
    580  1.57  kristerw 			BAP_ASSIGN(ip, i, 0);
    581  1.12   thorpej 		error = bwrite(bp);
    582  1.12   thorpej 		if (error)
    583  1.12   thorpej 			allerror = error;
    584  1.55      fvdl 		if (ip->i_ump->um_fstype == UFS1)
    585  1.55      fvdl 			bap1 = (int32_t *)copy;
    586  1.55      fvdl 		else
    587  1.55      fvdl 			bap2 = (int64_t *)copy;
    588  1.12   thorpej 	}
    589   1.1   mycroft 
    590   1.1   mycroft 	/*
    591   1.1   mycroft 	 * Recursively free totally unused blocks.
    592   1.1   mycroft 	 */
    593   1.1   mycroft 	for (i = NINDIR(fs) - 1, nlbn = lbn + 1 - i * factor; i > last;
    594   1.1   mycroft 	    i--, nlbn += factor) {
    595  1.55      fvdl 		nb = RBAP(ip, i);
    596   1.1   mycroft 		if (nb == 0)
    597   1.1   mycroft 			continue;
    598   1.1   mycroft 		if (level > SINGLE) {
    599   1.9  christos 			error = ffs_indirtrunc(ip, nlbn, fsbtodb(fs, nb),
    600  1.53      fvdl 					       (daddr_t)-1, level - 1,
    601   1.9  christos 					       &blkcount);
    602   1.9  christos 			if (error)
    603   1.1   mycroft 				allerror = error;
    604   1.1   mycroft 			blocksreleased += blkcount;
    605   1.1   mycroft 		}
    606  1.63   hannken 		ffs_blkfree(fs, ip->i_devvp, nb, fs->fs_bsize, ip->i_number);
    607   1.1   mycroft 		blocksreleased += nblocks;
    608   1.1   mycroft 	}
    609   1.1   mycroft 
    610   1.1   mycroft 	/*
    611   1.1   mycroft 	 * Recursively free last partial block.
    612   1.1   mycroft 	 */
    613   1.1   mycroft 	if (level > SINGLE && lastbn >= 0) {
    614   1.1   mycroft 		last = lastbn % factor;
    615  1.55      fvdl 		nb = RBAP(ip, i);
    616   1.1   mycroft 		if (nb != 0) {
    617   1.9  christos 			error = ffs_indirtrunc(ip, nlbn, fsbtodb(fs, nb),
    618   1.9  christos 					       last, level - 1, &blkcount);
    619   1.9  christos 			if (error)
    620   1.1   mycroft 				allerror = error;
    621   1.1   mycroft 			blocksreleased += blkcount;
    622   1.1   mycroft 		}
    623   1.1   mycroft 	}
    624  1.12   thorpej 
    625  1.12   thorpej 	if (copy != NULL) {
    626  1.12   thorpej 		FREE(copy, M_TEMP);
    627  1.12   thorpej 	} else {
    628  1.12   thorpej 		bp->b_flags |= B_INVAL;
    629  1.12   thorpej 		brelse(bp);
    630  1.12   thorpej 	}
    631  1.12   thorpej 
    632   1.1   mycroft 	*countp = blocksreleased;
    633   1.1   mycroft 	return (allerror);
    634   1.1   mycroft }
    635  1.74  drochner 
    636  1.74  drochner void
    637  1.74  drochner ffs_itimes(struct inode *ip, const struct timespec *acc,
    638  1.74  drochner     const struct timespec *mod, const struct timespec *cre)
    639  1.74  drochner {
    640  1.74  drochner 	struct timespec *ts = NULL, tsb;
    641  1.75  christos 
    642  1.76      yamt 	if (!(ip->i_flag & (IN_ACCESS | IN_CHANGE | IN_UPDATE | IN_MODIFY))) {
    643  1.76      yamt 		return;
    644  1.76      yamt 	}
    645  1.75  christos 
    646  1.74  drochner 	if (ip->i_flag & IN_ACCESS) {
    647  1.74  drochner 		if (acc == NULL)
    648  1.74  drochner 			acc = ts == NULL ? (ts = nanotime(&tsb)) : ts;
    649  1.74  drochner 		DIP_ASSIGN(ip, atime, acc->tv_sec);
    650  1.74  drochner 		DIP_ASSIGN(ip, atimensec, acc->tv_nsec);
    651  1.74  drochner 	}
    652  1.74  drochner 	if (ip->i_flag & (IN_UPDATE | IN_MODIFY)) {
    653  1.74  drochner 		if ((ip->i_flags & SF_SNAPSHOT) == 0) {
    654  1.74  drochner 			if (mod == NULL)
    655  1.74  drochner 				mod = ts == NULL ? (ts = nanotime(&tsb)) : ts;
    656  1.74  drochner 			DIP_ASSIGN(ip, mtime, mod->tv_sec);
    657  1.74  drochner 			DIP_ASSIGN(ip, mtimensec, mod->tv_nsec);
    658  1.74  drochner 		}
    659  1.74  drochner 		ip->i_modrev++;
    660  1.74  drochner 	}
    661  1.74  drochner 	if (ip->i_flag & (IN_CHANGE | IN_MODIFY)) {
    662  1.74  drochner 		if (cre == NULL)
    663  1.74  drochner 			cre = ts == NULL ? (ts = nanotime(&tsb)) : ts;
    664  1.74  drochner 		DIP_ASSIGN(ip, ctime, cre->tv_sec);
    665  1.74  drochner 		DIP_ASSIGN(ip, ctimensec, cre->tv_nsec);
    666  1.74  drochner 	}
    667  1.74  drochner 	if (ip->i_flag & (IN_ACCESS | IN_MODIFY))
    668  1.74  drochner 		ip->i_flag |= IN_ACCESSED;
    669  1.74  drochner 	if (ip->i_flag & (IN_UPDATE | IN_CHANGE))
    670  1.74  drochner 		ip->i_flag |= IN_MODIFIED;
    671  1.74  drochner 	ip->i_flag &= ~(IN_ACCESS | IN_CHANGE | IN_UPDATE | IN_MODIFY);
    672  1.74  drochner }
    673