ffs_inode.c revision 1.78 1 1.78 yamt /* $NetBSD: ffs_inode.c,v 1.78 2005/11/11 15:50:57 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.78 yamt __KERNEL_RCSID(0, "$NetBSD: ffs_inode.c,v 1.78 2005/11/11 15:50:57 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.78 yamt if (ovp->v_type == VCHR || ovp->v_type == VBLK ||
184 1.78 yamt ovp->v_type == VFIFO || ovp->v_type == VSOCK) {
185 1.78 yamt KASSERT(oip->i_size == 0);
186 1.78 yamt return 0;
187 1.78 yamt }
188 1.78 yamt
189 1.2 pk if (length < 0)
190 1.3 mycroft return (EINVAL);
191 1.68 mycroft
192 1.1 mycroft if (ovp->v_type == VLNK &&
193 1.68 mycroft (oip->i_size < ump->um_maxsymlinklen ||
194 1.68 mycroft (ump->um_maxsymlinklen == 0 && DIP(oip, blocks) == 0))) {
195 1.38 chs KDASSERT(length == 0);
196 1.55 fvdl memset(SHORTLINK(oip), 0, (size_t)oip->i_size);
197 1.55 fvdl oip->i_size = 0;
198 1.57 kristerw DIP_ASSIGN(oip, size, 0);
199 1.1 mycroft oip->i_flag |= IN_CHANGE | IN_UPDATE;
200 1.77 yamt return (ffs_update(ovp, NULL, NULL, 0));
201 1.1 mycroft }
202 1.55 fvdl if (oip->i_size == length) {
203 1.1 mycroft oip->i_flag |= IN_CHANGE | IN_UPDATE;
204 1.77 yamt return (ffs_update(ovp, NULL, NULL, 0));
205 1.1 mycroft }
206 1.1 mycroft #ifdef QUOTA
207 1.9 christos if ((error = getinoquota(oip)) != 0)
208 1.1 mycroft return (error);
209 1.1 mycroft #endif
210 1.1 mycroft fs = oip->i_fs;
211 1.68 mycroft if (length > ump->um_maxfilesize)
212 1.38 chs return (EFBIG);
213 1.38 chs
214 1.63 hannken if ((oip->i_flags & SF_SNAPSHOT) != 0)
215 1.63 hannken ffs_snapremove(ovp);
216 1.63 hannken
217 1.55 fvdl osize = oip->i_size;
218 1.50 chs aflag = ioflag & IO_SYNC ? B_SYNC : 0;
219 1.29 fvdl
220 1.38 chs /*
221 1.38 chs * Lengthen the size of the file. We must ensure that the
222 1.38 chs * last byte of the file is allocated. Since the smallest
223 1.38 chs * value of osize is 0, length will be at least 1.
224 1.38 chs */
225 1.38 chs
226 1.38 chs if (osize < length) {
227 1.48 chs if (lblkno(fs, osize) < NDADDR &&
228 1.48 chs lblkno(fs, osize) != lblkno(fs, length) &&
229 1.48 chs blkroundup(fs, osize) != osize) {
230 1.69 mycroft off_t eob;
231 1.69 mycroft
232 1.69 mycroft eob = blkroundup(fs, osize);
233 1.69 mycroft error = ufs_balloc_range(ovp, osize, eob - osize,
234 1.77 yamt cred, aflag);
235 1.68 mycroft if (error)
236 1.48 chs return error;
237 1.48 chs if (ioflag & IO_SYNC) {
238 1.69 mycroft ovp->v_size = eob;
239 1.48 chs simple_lock(&ovp->v_interlock);
240 1.49 chs VOP_PUTPAGES(ovp,
241 1.69 mycroft trunc_page(osize & fs->fs_bmask),
242 1.69 mycroft round_page(eob), PGO_CLEANIT | PGO_SYNCIO);
243 1.48 chs }
244 1.48 chs }
245 1.77 yamt error = ufs_balloc_range(ovp, length - 1, 1, cred, aflag);
246 1.45 chs if (error) {
247 1.77 yamt (void) ffs_truncate(ovp, osize, ioflag & IO_SYNC,
248 1.77 yamt cred, p);
249 1.68 mycroft return (error);
250 1.45 chs }
251 1.43 chs uvm_vnp_setsize(ovp, length);
252 1.38 chs oip->i_flag |= IN_CHANGE | IN_UPDATE;
253 1.55 fvdl KASSERT(ovp->v_size == oip->i_size);
254 1.77 yamt return (ffs_update(ovp, NULL, NULL, 0));
255 1.38 chs }
256 1.38 chs
257 1.38 chs /*
258 1.38 chs * When truncating a regular file down to a non-block-aligned size,
259 1.38 chs * we must zero the part of last block which is past the new EOF.
260 1.38 chs * We must synchronously flush the zeroed pages to disk
261 1.38 chs * since the new pages will be invalidated as soon as we
262 1.38 chs * inform the VM system of the new, smaller size.
263 1.48 chs * We must do this before acquiring the GLOCK, since fetching
264 1.38 chs * the pages will acquire the GLOCK internally.
265 1.38 chs * So there is a window where another thread could see a whole
266 1.38 chs * zeroed page past EOF, but that's life.
267 1.38 chs */
268 1.38 chs
269 1.38 chs offset = blkoff(fs, length);
270 1.70 mycroft if (ovp->v_type == VREG && offset != 0 && osize > length) {
271 1.70 mycroft daddr_t lbn;
272 1.38 chs voff_t eoz;
273 1.38 chs
274 1.77 yamt error = ufs_balloc_range(ovp, length - 1, 1, cred, aflag);
275 1.67 mycroft if (error)
276 1.50 chs return error;
277 1.70 mycroft lbn = lblkno(fs, length);
278 1.70 mycroft size = blksize(fs, oip, lbn);
279 1.70 mycroft eoz = MIN(lblktosize(fs, lbn) + size, osize);
280 1.38 chs uvm_vnp_zerorange(ovp, length, eoz - length);
281 1.70 mycroft if (round_page(eoz) > round_page(length)) {
282 1.70 mycroft simple_lock(&ovp->v_interlock);
283 1.70 mycroft error = VOP_PUTPAGES(ovp, round_page(length),
284 1.70 mycroft round_page(eoz),
285 1.71 mycroft PGO_CLEANIT | PGO_DEACTIVATE |
286 1.71 mycroft ((ioflag & IO_SYNC) ? PGO_SYNCIO : 0));
287 1.70 mycroft if (error)
288 1.70 mycroft return error;
289 1.70 mycroft }
290 1.38 chs }
291 1.38 chs
292 1.43 chs lockmgr(&gp->g_glock, LK_EXCLUSIVE, NULL);
293 1.38 chs
294 1.29 fvdl if (DOINGSOFTDEP(ovp)) {
295 1.29 fvdl if (length > 0) {
296 1.29 fvdl /*
297 1.29 fvdl * If a file is only partially truncated, then
298 1.29 fvdl * we have to clean up the data structures
299 1.29 fvdl * describing the allocation past the truncation
300 1.29 fvdl * point. Finding and deallocating those structures
301 1.29 fvdl * is a lot of work. Since partial truncation occurs
302 1.29 fvdl * rarely, we solve the problem by syncing the file
303 1.29 fvdl * so that it will have no data structures left.
304 1.29 fvdl */
305 1.77 yamt if ((error = VOP_FSYNC(ovp, cred, FSYNC_WAIT,
306 1.77 yamt 0, 0, p)) != 0) {
307 1.43 chs lockmgr(&gp->g_glock, LK_RELEASE, NULL);
308 1.29 fvdl return (error);
309 1.52 simonb }
310 1.51 fvdl if (oip->i_flag & IN_SPACECOUNTED)
311 1.55 fvdl fs->fs_pendingblocks -= DIP(oip, blocks);
312 1.29 fvdl } else {
313 1.40 augustss uvm_vnp_setsize(ovp, length);
314 1.29 fvdl #ifdef QUOTA
315 1.55 fvdl (void) chkdq(oip, -DIP(oip, blocks), NOCRED, 0);
316 1.29 fvdl #endif
317 1.55 fvdl softdep_setup_freeblocks(oip, length, 0);
318 1.77 yamt (void) vinvalbuf(ovp, 0, cred, p, 0, 0);
319 1.43 chs lockmgr(&gp->g_glock, LK_RELEASE, NULL);
320 1.29 fvdl oip->i_flag |= IN_CHANGE | IN_UPDATE;
321 1.77 yamt return (ffs_update(ovp, NULL, NULL, 0));
322 1.29 fvdl }
323 1.29 fvdl }
324 1.55 fvdl oip->i_size = length;
325 1.57 kristerw DIP_ASSIGN(oip, size, length);
326 1.18 fvdl uvm_vnp_setsize(ovp, length);
327 1.1 mycroft /*
328 1.1 mycroft * Calculate index into inode's block list of
329 1.1 mycroft * last direct and indirect blocks (if any)
330 1.1 mycroft * which we want to keep. Lastblock is -1 when
331 1.1 mycroft * the file is truncated to 0.
332 1.1 mycroft */
333 1.1 mycroft lastblock = lblkno(fs, length + fs->fs_bsize - 1) - 1;
334 1.1 mycroft lastiblock[SINGLE] = lastblock - NDADDR;
335 1.1 mycroft lastiblock[DOUBLE] = lastiblock[SINGLE] - NINDIR(fs);
336 1.1 mycroft lastiblock[TRIPLE] = lastiblock[DOUBLE] - NINDIR(fs) * NINDIR(fs);
337 1.1 mycroft nblocks = btodb(fs->fs_bsize);
338 1.1 mycroft /*
339 1.1 mycroft * Update file and block pointers on disk before we start freeing
340 1.1 mycroft * blocks. If we crash before free'ing blocks below, the blocks
341 1.1 mycroft * will be returned to the free list. lastiblock values are also
342 1.1 mycroft * normalized to -1 for calls to ffs_indirtrunc below.
343 1.1 mycroft */
344 1.67 mycroft sync = 0;
345 1.55 fvdl for (level = TRIPLE; level >= SINGLE; level--) {
346 1.64 hannken blks[NDADDR + level] = DIP(oip, ib[level]);
347 1.67 mycroft if (lastiblock[level] < 0 && blks[NDADDR + level] != 0) {
348 1.67 mycroft sync = 1;
349 1.57 kristerw DIP_ASSIGN(oip, ib[level], 0);
350 1.1 mycroft lastiblock[level] = -1;
351 1.1 mycroft }
352 1.55 fvdl }
353 1.55 fvdl for (i = 0; i < NDADDR; i++) {
354 1.64 hannken blks[i] = DIP(oip, db[i]);
355 1.67 mycroft if (i > lastblock && blks[i] != 0) {
356 1.67 mycroft sync = 1;
357 1.57 kristerw DIP_ASSIGN(oip, db[i], 0);
358 1.67 mycroft }
359 1.67 mycroft }
360 1.68 mycroft oip->i_flag |= IN_CHANGE | IN_UPDATE;
361 1.67 mycroft if (sync) {
362 1.77 yamt error = ffs_update(ovp, NULL, NULL, UPDATE_WAIT);
363 1.67 mycroft if (error && !allerror)
364 1.67 mycroft allerror = error;
365 1.55 fvdl }
366 1.32 mycroft
367 1.1 mycroft /*
368 1.1 mycroft * Having written the new inode to disk, save its new configuration
369 1.1 mycroft * and put back the old block pointers long enough to process them.
370 1.1 mycroft * Note that we save the new block configuration so we can check it
371 1.1 mycroft * when we are done.
372 1.1 mycroft */
373 1.55 fvdl for (i = 0; i < NDADDR; i++) {
374 1.64 hannken bn = DIP(oip, db[i]);
375 1.64 hannken DIP_ASSIGN(oip, db[i], blks[i]);
376 1.64 hannken blks[i] = bn;
377 1.55 fvdl }
378 1.55 fvdl for (i = 0; i < NIADDR; i++) {
379 1.64 hannken bn = DIP(oip, ib[i]);
380 1.64 hannken DIP_ASSIGN(oip, ib[i], blks[NDADDR + i]);
381 1.64 hannken blks[NDADDR + i] = bn;
382 1.55 fvdl }
383 1.55 fvdl
384 1.55 fvdl oip->i_size = osize;
385 1.57 kristerw DIP_ASSIGN(oip, size, osize);
386 1.32 mycroft error = vtruncbuf(ovp, lastblock + 1, 0, 0);
387 1.32 mycroft if (error && !allerror)
388 1.32 mycroft allerror = error;
389 1.1 mycroft
390 1.1 mycroft /*
391 1.1 mycroft * Indirect blocks first.
392 1.1 mycroft */
393 1.1 mycroft indir_lbn[SINGLE] = -NDADDR;
394 1.1 mycroft indir_lbn[DOUBLE] = indir_lbn[SINGLE] - NINDIR(fs) - 1;
395 1.1 mycroft indir_lbn[TRIPLE] = indir_lbn[DOUBLE] - NINDIR(fs) * NINDIR(fs) - 1;
396 1.1 mycroft for (level = TRIPLE; level >= SINGLE; level--) {
397 1.55 fvdl if (oip->i_ump->um_fstype == UFS1)
398 1.55 fvdl bn = ufs_rw32(oip->i_ffs1_ib[level],UFS_FSNEEDSWAP(fs));
399 1.55 fvdl else
400 1.55 fvdl bn = ufs_rw64(oip->i_ffs2_ib[level],UFS_FSNEEDSWAP(fs));
401 1.1 mycroft if (bn != 0) {
402 1.1 mycroft error = ffs_indirtrunc(oip, indir_lbn[level],
403 1.1 mycroft fsbtodb(fs, bn), lastiblock[level], level, &count);
404 1.1 mycroft if (error)
405 1.1 mycroft allerror = error;
406 1.1 mycroft blocksreleased += count;
407 1.1 mycroft if (lastiblock[level] < 0) {
408 1.57 kristerw DIP_ASSIGN(oip, ib[level], 0);
409 1.63 hannken ffs_blkfree(fs, oip->i_devvp, bn, fs->fs_bsize,
410 1.63 hannken oip->i_number);
411 1.1 mycroft blocksreleased += nblocks;
412 1.1 mycroft }
413 1.1 mycroft }
414 1.1 mycroft if (lastiblock[level] >= 0)
415 1.1 mycroft goto done;
416 1.1 mycroft }
417 1.1 mycroft
418 1.1 mycroft /*
419 1.1 mycroft * All whole direct blocks or frags.
420 1.1 mycroft */
421 1.1 mycroft for (i = NDADDR - 1; i > lastblock; i--) {
422 1.30 augustss long bsize;
423 1.1 mycroft
424 1.55 fvdl if (oip->i_ump->um_fstype == UFS1)
425 1.55 fvdl bn = ufs_rw32(oip->i_ffs1_db[i], UFS_FSNEEDSWAP(fs));
426 1.55 fvdl else
427 1.55 fvdl bn = ufs_rw64(oip->i_ffs2_db[i], UFS_FSNEEDSWAP(fs));
428 1.1 mycroft if (bn == 0)
429 1.1 mycroft continue;
430 1.57 kristerw DIP_ASSIGN(oip, db[i], 0);
431 1.1 mycroft bsize = blksize(fs, oip, i);
432 1.63 hannken ffs_blkfree(fs, oip->i_devvp, bn, bsize, oip->i_number);
433 1.1 mycroft blocksreleased += btodb(bsize);
434 1.1 mycroft }
435 1.1 mycroft if (lastblock < 0)
436 1.1 mycroft goto done;
437 1.1 mycroft
438 1.1 mycroft /*
439 1.1 mycroft * Finally, look for a change in size of the
440 1.1 mycroft * last direct block; release any frags.
441 1.1 mycroft */
442 1.55 fvdl if (oip->i_ump->um_fstype == UFS1)
443 1.55 fvdl bn = ufs_rw32(oip->i_ffs1_db[lastblock], UFS_FSNEEDSWAP(fs));
444 1.55 fvdl else
445 1.55 fvdl bn = ufs_rw64(oip->i_ffs2_db[lastblock], UFS_FSNEEDSWAP(fs));
446 1.1 mycroft if (bn != 0) {
447 1.1 mycroft long oldspace, newspace;
448 1.1 mycroft
449 1.1 mycroft /*
450 1.1 mycroft * Calculate amount of space we're giving
451 1.1 mycroft * back as old block size minus new block size.
452 1.1 mycroft */
453 1.1 mycroft oldspace = blksize(fs, oip, lastblock);
454 1.55 fvdl oip->i_size = length;
455 1.57 kristerw DIP_ASSIGN(oip, size, length);
456 1.1 mycroft newspace = blksize(fs, oip, lastblock);
457 1.1 mycroft if (newspace == 0)
458 1.1 mycroft panic("itrunc: newspace");
459 1.1 mycroft if (oldspace - newspace > 0) {
460 1.1 mycroft /*
461 1.1 mycroft * Block number of space to be free'd is
462 1.1 mycroft * the old block # plus the number of frags
463 1.1 mycroft * required for the storage we're keeping.
464 1.1 mycroft */
465 1.1 mycroft bn += numfrags(fs, newspace);
466 1.63 hannken ffs_blkfree(fs, oip->i_devvp, bn, oldspace - newspace,
467 1.63 hannken oip->i_number);
468 1.1 mycroft blocksreleased += btodb(oldspace - newspace);
469 1.1 mycroft }
470 1.1 mycroft }
471 1.32 mycroft
472 1.1 mycroft done:
473 1.1 mycroft #ifdef DIAGNOSTIC
474 1.1 mycroft for (level = SINGLE; level <= TRIPLE; level++)
475 1.64 hannken if (blks[NDADDR + level] != DIP(oip, ib[level]))
476 1.1 mycroft panic("itrunc1");
477 1.1 mycroft for (i = 0; i < NDADDR; i++)
478 1.64 hannken if (blks[i] != DIP(oip, db[i]))
479 1.1 mycroft panic("itrunc2");
480 1.1 mycroft if (length == 0 &&
481 1.32 mycroft (!LIST_EMPTY(&ovp->v_cleanblkhd) || !LIST_EMPTY(&ovp->v_dirtyblkhd)))
482 1.1 mycroft panic("itrunc3");
483 1.1 mycroft #endif /* DIAGNOSTIC */
484 1.1 mycroft /*
485 1.1 mycroft * Put back the real size.
486 1.1 mycroft */
487 1.55 fvdl oip->i_size = length;
488 1.57 kristerw DIP_ASSIGN(oip, size, length);
489 1.57 kristerw DIP_ADD(oip, blocks, -blocksreleased);
490 1.43 chs lockmgr(&gp->g_glock, LK_RELEASE, NULL);
491 1.1 mycroft oip->i_flag |= IN_CHANGE;
492 1.1 mycroft #ifdef QUOTA
493 1.1 mycroft (void) chkdq(oip, -blocksreleased, NOCRED, 0);
494 1.1 mycroft #endif
495 1.55 fvdl KASSERT(ovp->v_type != VREG || ovp->v_size == oip->i_size);
496 1.1 mycroft return (allerror);
497 1.1 mycroft }
498 1.1 mycroft
499 1.1 mycroft /*
500 1.1 mycroft * Release blocks associated with the inode ip and stored in the indirect
501 1.1 mycroft * block bn. Blocks are free'd in LIFO order up to (but not including)
502 1.1 mycroft * lastbn. If level is greater than SINGLE, the block is an indirect block
503 1.1 mycroft * and recursive calls to indirtrunc must be used to cleanse other indirect
504 1.1 mycroft * blocks.
505 1.1 mycroft *
506 1.1 mycroft * NB: triple indirect blocks are untested.
507 1.1 mycroft */
508 1.1 mycroft static int
509 1.72 thorpej ffs_indirtrunc(struct inode *ip, daddr_t lbn, daddr_t dbn, daddr_t lastbn,
510 1.72 thorpej int level, int64_t *countp)
511 1.1 mycroft {
512 1.30 augustss int i;
513 1.1 mycroft struct buf *bp;
514 1.30 augustss struct fs *fs = ip->i_fs;
515 1.55 fvdl int32_t *bap1 = NULL;
516 1.55 fvdl int64_t *bap2 = NULL;
517 1.1 mycroft struct vnode *vp;
518 1.53 fvdl daddr_t nb, nlbn, last;
519 1.55 fvdl char *copy = NULL;
520 1.55 fvdl int64_t blkcount, factor, blocksreleased = 0;
521 1.55 fvdl int nblocks;
522 1.1 mycroft int error = 0, allerror = 0;
523 1.55 fvdl #ifdef FFS_EI
524 1.55 fvdl const int needswap = UFS_FSNEEDSWAP(fs);
525 1.55 fvdl #endif
526 1.55 fvdl #define RBAP(ip, i) (((ip)->i_ump->um_fstype == UFS1) ? \
527 1.55 fvdl ufs_rw32(bap1[i], needswap) : ufs_rw64(bap2[i], needswap))
528 1.57 kristerw #define BAP_ASSIGN(ip, i, value) \
529 1.57 kristerw do { \
530 1.57 kristerw if ((ip)->i_ump->um_fstype == UFS1) \
531 1.57 kristerw bap1[i] = (value); \
532 1.57 kristerw else \
533 1.57 kristerw bap2[i] = (value); \
534 1.57 kristerw } while(0)
535 1.1 mycroft
536 1.1 mycroft /*
537 1.1 mycroft * Calculate index in current block of last
538 1.1 mycroft * block to be kept. -1 indicates the entire
539 1.1 mycroft * block so we need not calculate the index.
540 1.1 mycroft */
541 1.1 mycroft factor = 1;
542 1.1 mycroft for (i = SINGLE; i < level; i++)
543 1.1 mycroft factor *= NINDIR(fs);
544 1.1 mycroft last = lastbn;
545 1.1 mycroft if (lastbn > 0)
546 1.1 mycroft last /= factor;
547 1.1 mycroft nblocks = btodb(fs->fs_bsize);
548 1.1 mycroft /*
549 1.1 mycroft * Get buffer of block pointers, zero those entries corresponding
550 1.1 mycroft * to blocks to be free'd, and update on disk copy first. Since
551 1.1 mycroft * double(triple) indirect before single(double) indirect, calls
552 1.1 mycroft * to bmap on these blocks will fail. However, we already have
553 1.1 mycroft * the on disk address, so we have to set the b_blkno field
554 1.1 mycroft * explicitly instead of letting bread do everything for us.
555 1.1 mycroft */
556 1.1 mycroft vp = ITOV(ip);
557 1.1 mycroft bp = getblk(vp, lbn, (int)fs->fs_bsize, 0, 0);
558 1.1 mycroft if (bp->b_flags & (B_DONE | B_DELWRI)) {
559 1.1 mycroft /* Braces must be here in case trace evaluates to nothing. */
560 1.1 mycroft trace(TR_BREADHIT, pack(vp, fs->fs_bsize), lbn);
561 1.1 mycroft } else {
562 1.1 mycroft trace(TR_BREADMISS, pack(vp, fs->fs_bsize), lbn);
563 1.1 mycroft curproc->p_stats->p_ru.ru_inblock++; /* pay for read */
564 1.1 mycroft bp->b_flags |= B_READ;
565 1.1 mycroft if (bp->b_bcount > bp->b_bufsize)
566 1.1 mycroft panic("ffs_indirtrunc: bad buffer size");
567 1.1 mycroft bp->b_blkno = dbn;
568 1.61 yamt BIO_SETPRIO(bp, BPRIO_TIMECRITICAL);
569 1.62 hannken VOP_STRATEGY(vp, bp);
570 1.1 mycroft error = biowait(bp);
571 1.1 mycroft }
572 1.1 mycroft if (error) {
573 1.1 mycroft brelse(bp);
574 1.1 mycroft *countp = 0;
575 1.1 mycroft return (error);
576 1.1 mycroft }
577 1.1 mycroft
578 1.55 fvdl if (ip->i_ump->um_fstype == UFS1)
579 1.55 fvdl bap1 = (int32_t *)bp->b_data;
580 1.55 fvdl else
581 1.55 fvdl bap2 = (int64_t *)bp->b_data;
582 1.33 mycroft if (lastbn >= 0) {
583 1.55 fvdl copy = malloc(fs->fs_bsize, M_TEMP, M_WAITOK);
584 1.55 fvdl memcpy((caddr_t)copy, bp->b_data, (u_int)fs->fs_bsize);
585 1.55 fvdl for (i = last + 1; i < NINDIR(fs); i++)
586 1.57 kristerw BAP_ASSIGN(ip, i, 0);
587 1.12 thorpej error = bwrite(bp);
588 1.12 thorpej if (error)
589 1.12 thorpej allerror = error;
590 1.55 fvdl if (ip->i_ump->um_fstype == UFS1)
591 1.55 fvdl bap1 = (int32_t *)copy;
592 1.55 fvdl else
593 1.55 fvdl bap2 = (int64_t *)copy;
594 1.12 thorpej }
595 1.1 mycroft
596 1.1 mycroft /*
597 1.1 mycroft * Recursively free totally unused blocks.
598 1.1 mycroft */
599 1.1 mycroft for (i = NINDIR(fs) - 1, nlbn = lbn + 1 - i * factor; i > last;
600 1.1 mycroft i--, nlbn += factor) {
601 1.55 fvdl nb = RBAP(ip, i);
602 1.1 mycroft if (nb == 0)
603 1.1 mycroft continue;
604 1.1 mycroft if (level > SINGLE) {
605 1.9 christos error = ffs_indirtrunc(ip, nlbn, fsbtodb(fs, nb),
606 1.53 fvdl (daddr_t)-1, level - 1,
607 1.9 christos &blkcount);
608 1.9 christos if (error)
609 1.1 mycroft allerror = error;
610 1.1 mycroft blocksreleased += blkcount;
611 1.1 mycroft }
612 1.63 hannken ffs_blkfree(fs, ip->i_devvp, nb, fs->fs_bsize, ip->i_number);
613 1.1 mycroft blocksreleased += nblocks;
614 1.1 mycroft }
615 1.1 mycroft
616 1.1 mycroft /*
617 1.1 mycroft * Recursively free last partial block.
618 1.1 mycroft */
619 1.1 mycroft if (level > SINGLE && lastbn >= 0) {
620 1.1 mycroft last = lastbn % factor;
621 1.55 fvdl nb = RBAP(ip, i);
622 1.1 mycroft if (nb != 0) {
623 1.9 christos error = ffs_indirtrunc(ip, nlbn, fsbtodb(fs, nb),
624 1.9 christos last, level - 1, &blkcount);
625 1.9 christos if (error)
626 1.1 mycroft allerror = error;
627 1.1 mycroft blocksreleased += blkcount;
628 1.1 mycroft }
629 1.1 mycroft }
630 1.12 thorpej
631 1.12 thorpej if (copy != NULL) {
632 1.12 thorpej FREE(copy, M_TEMP);
633 1.12 thorpej } else {
634 1.12 thorpej bp->b_flags |= B_INVAL;
635 1.12 thorpej brelse(bp);
636 1.12 thorpej }
637 1.12 thorpej
638 1.1 mycroft *countp = blocksreleased;
639 1.1 mycroft return (allerror);
640 1.1 mycroft }
641 1.74 drochner
642 1.74 drochner void
643 1.74 drochner ffs_itimes(struct inode *ip, const struct timespec *acc,
644 1.74 drochner const struct timespec *mod, const struct timespec *cre)
645 1.74 drochner {
646 1.74 drochner struct timespec *ts = NULL, tsb;
647 1.75 christos
648 1.76 yamt if (!(ip->i_flag & (IN_ACCESS | IN_CHANGE | IN_UPDATE | IN_MODIFY))) {
649 1.76 yamt return;
650 1.76 yamt }
651 1.75 christos
652 1.74 drochner if (ip->i_flag & IN_ACCESS) {
653 1.74 drochner if (acc == NULL)
654 1.74 drochner acc = ts == NULL ? (ts = nanotime(&tsb)) : ts;
655 1.74 drochner DIP_ASSIGN(ip, atime, acc->tv_sec);
656 1.74 drochner DIP_ASSIGN(ip, atimensec, acc->tv_nsec);
657 1.74 drochner }
658 1.74 drochner if (ip->i_flag & (IN_UPDATE | IN_MODIFY)) {
659 1.74 drochner if ((ip->i_flags & SF_SNAPSHOT) == 0) {
660 1.74 drochner if (mod == NULL)
661 1.74 drochner mod = ts == NULL ? (ts = nanotime(&tsb)) : ts;
662 1.74 drochner DIP_ASSIGN(ip, mtime, mod->tv_sec);
663 1.74 drochner DIP_ASSIGN(ip, mtimensec, mod->tv_nsec);
664 1.74 drochner }
665 1.74 drochner ip->i_modrev++;
666 1.74 drochner }
667 1.74 drochner if (ip->i_flag & (IN_CHANGE | IN_MODIFY)) {
668 1.74 drochner if (cre == NULL)
669 1.74 drochner cre = ts == NULL ? (ts = nanotime(&tsb)) : ts;
670 1.74 drochner DIP_ASSIGN(ip, ctime, cre->tv_sec);
671 1.74 drochner DIP_ASSIGN(ip, ctimensec, cre->tv_nsec);
672 1.74 drochner }
673 1.74 drochner if (ip->i_flag & (IN_ACCESS | IN_MODIFY))
674 1.74 drochner ip->i_flag |= IN_ACCESSED;
675 1.74 drochner if (ip->i_flag & (IN_UPDATE | IN_CHANGE))
676 1.74 drochner ip->i_flag |= IN_MODIFIED;
677 1.74 drochner ip->i_flag &= ~(IN_ACCESS | IN_CHANGE | IN_UPDATE | IN_MODIFY);
678 1.74 drochner }
679