xref: /netbsd-src/sys/kern/vfs_cache.c (revision d9158b13b5dfe46201430699a3f7a235ecf28df3)
1 /*
2  * Copyright (c) 1989, 1993
3  *	The Regents of the University of California.  All rights reserved.
4  *
5  * Redistribution and use in source and binary forms, with or without
6  * modification, are permitted provided that the following conditions
7  * are met:
8  * 1. Redistributions of source code must retain the above copyright
9  *    notice, this list of conditions and the following disclaimer.
10  * 2. Redistributions in binary form must reproduce the above copyright
11  *    notice, this list of conditions and the following disclaimer in the
12  *    documentation and/or other materials provided with the distribution.
13  * 3. All advertising materials mentioning features or use of this software
14  *    must display the following acknowledgement:
15  *	This product includes software developed by the University of
16  *	California, Berkeley and its contributors.
17  * 4. Neither the name of the University nor the names of its contributors
18  *    may be used to endorse or promote products derived from this software
19  *    without specific prior written permission.
20  *
21  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
22  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
25  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
31  * SUCH DAMAGE.
32  *
33  *	from: @(#)vfs_cache.c	8.1 (Berkeley) 6/10/93
34  *	$Id: vfs_cache.c,v 1.5 1994/06/08 11:28:50 mycroft Exp $
35  */
36 
37 #include <sys/param.h>
38 #include <sys/systm.h>
39 #include <sys/time.h>
40 #include <sys/mount.h>
41 #include <sys/vnode.h>
42 #include <sys/namei.h>
43 #include <sys/errno.h>
44 #include <sys/malloc.h>
45 
46 /*
47  * Name caching works as follows:
48  *
49  * Names found by directory scans are retained in a cache
50  * for future reference.  It is managed LRU, so frequently
51  * used names will hang around.  Cache is indexed by hash value
52  * obtained from (vp, name) where vp refers to the directory
53  * containing name.
54  *
55  * For simplicity (and economy of storage), names longer than
56  * a maximum length of NCHNAMLEN are not cached; they occur
57  * infrequently in any case, and are almost never of interest.
58  *
59  * Upon reaching the last segment of a path, if the reference
60  * is for DELETE, or NOCACHE is set (rewrite), and the
61  * name is located in the cache, it will be dropped.
62  */
63 
64 /*
65  * Structures associated with name cacheing.
66  */
67 struct namecache **nchashtbl;
68 u_long	nchash;				/* size of hash table - 1 */
69 long	numcache;			/* number of cache entries allocated */
70 struct	namecache *nchhead, **nchtail;	/* LRU chain pointers */
71 struct	nchstats nchstats;		/* cache effectiveness statistics */
72 
73 int doingcache = 1;			/* 1 => enable the cache */
74 
75 /*
76  * Look for a the name in the cache. We don't do this
77  * if the segment name is long, simply so the cache can avoid
78  * holding long names (which would either waste space, or
79  * add greatly to the complexity).
80  *
81  * Lookup is called with ni_dvp pointing to the directory to search,
82  * ni_ptr pointing to the name of the entry being sought, ni_namelen
83  * tells the length of the name, and ni_hash contains a hash of
84  * the name. If the lookup succeeds, the vnode is returned in ni_vp
85  * and a status of -1 is returned. If the lookup determines that
86  * the name does not exist (negative cacheing), a status of ENOENT
87  * is returned. If the lookup fails, a status of zero is returned.
88  */
89 int
90 cache_lookup(dvp, vpp, cnp)
91 	struct vnode *dvp;
92 	struct vnode **vpp;
93 	struct componentname *cnp;
94 {
95 	register struct namecache *ncp, *ncq, **ncpp;
96 
97 	if (!doingcache)
98 		return (0);
99 	if (cnp->cn_namelen > NCHNAMLEN) {
100 		nchstats.ncs_long++;
101 		cnp->cn_flags &= ~MAKEENTRY;
102 		return (0);
103 	}
104 	ncpp = &nchashtbl[cnp->cn_hash & nchash];
105 	for (ncp = *ncpp; ncp; ncp = ncp->nc_forw) {
106 		if (ncp->nc_dvp == dvp &&
107 		    ncp->nc_dvpid == dvp->v_id &&
108 		    ncp->nc_nlen == cnp->cn_namelen &&
109 		    !bcmp(ncp->nc_name, cnp->cn_nameptr, (u_int)ncp->nc_nlen))
110 			break;
111 	}
112 	if (ncp == NULL) {
113 		nchstats.ncs_miss++;
114 		return (0);
115 	}
116 	if (!(cnp->cn_flags & MAKEENTRY)) {
117 		nchstats.ncs_badhits++;
118 	} else if (ncp->nc_vp == NULL) {
119 		if (cnp->cn_nameiop != CREATE) {
120 			nchstats.ncs_neghits++;
121 			/*
122 			 * Move this slot to end of LRU chain,
123 			 * if not already there.
124 			 */
125 			if (ncp->nc_nxt) {
126 				/* remove from LRU chain */
127 				*ncp->nc_prev = ncp->nc_nxt;
128 				ncp->nc_nxt->nc_prev = ncp->nc_prev;
129 				/* and replace at end of it */
130 				ncp->nc_nxt = NULL;
131 				ncp->nc_prev = nchtail;
132 				*nchtail = ncp;
133 				nchtail = &ncp->nc_nxt;
134 			}
135 			return (ENOENT);
136 		}
137 	} else if (ncp->nc_vpid != ncp->nc_vp->v_id) {
138 		nchstats.ncs_falsehits++;
139 	} else {
140 		nchstats.ncs_goodhits++;
141 		/*
142 		 * move this slot to end of LRU chain, if not already there
143 		 */
144 		if (ncp->nc_nxt) {
145 			/* remove from LRU chain */
146 			*ncp->nc_prev = ncp->nc_nxt;
147 			ncp->nc_nxt->nc_prev = ncp->nc_prev;
148 			/* and replace at end of it */
149 			ncp->nc_nxt = NULL;
150 			ncp->nc_prev = nchtail;
151 			*nchtail = ncp;
152 			nchtail = &ncp->nc_nxt;
153 		}
154 		*vpp = ncp->nc_vp;
155 		return (-1);
156 	}
157 
158 	/*
159 	 * Last component and we are renaming or deleting,
160 	 * the cache entry is invalid, or otherwise don't
161 	 * want cache entry to exist.
162 	 */
163 	/* remove from LRU chain */
164 	if (ncq = ncp->nc_nxt)
165 		ncq->nc_prev = ncp->nc_prev;
166 	else
167 		nchtail = ncp->nc_prev;
168 	*ncp->nc_prev = ncq;
169 	/* remove from hash chain */
170 	if (ncq = ncp->nc_forw)
171 		ncq->nc_back = ncp->nc_back;
172 	*ncp->nc_back = ncq;
173 	/* and make a dummy hash chain */
174 	ncp->nc_forw = NULL;
175 	ncp->nc_back = NULL;
176 	/* insert at head of LRU list (first to grab) */
177 	if (ncq = nchhead)
178 		ncq->nc_prev = &ncp->nc_nxt;
179 	else
180 		nchtail = &ncp->nc_nxt;
181 	nchhead = ncp;
182 	ncp->nc_nxt = ncq;
183 	ncp->nc_prev = &nchhead;
184 	return (0);
185 }
186 
187 /*
188  * Add an entry to the cache
189  */
190 cache_enter(dvp, vp, cnp)
191 	struct vnode *dvp;
192 	struct vnode *vp;
193 	struct componentname *cnp;
194 {
195 	register struct namecache *ncp, *ncq, **ncpp;
196 
197 #ifdef DIAGNOSTIC
198 	if (cnp->cn_namelen > NCHNAMLEN)
199 		panic("cache_enter: name too long");
200 #endif
201 	if (!doingcache)
202 		return;
203 	/*
204 	 * Free the cache slot at head of lru chain.
205 	 */
206 	if (numcache < desiredvnodes) {
207 		ncp = (struct namecache *)
208 			malloc((u_long)sizeof *ncp, M_CACHE, M_WAITOK);
209 		bzero((char *)ncp, sizeof *ncp);
210 		numcache++;
211 	} else if (ncp = nchhead) {
212 		/* remove from lru chain */
213 		if (ncq = ncp->nc_nxt)
214 			ncq->nc_prev = ncp->nc_prev;
215 		else
216 			nchtail = ncp->nc_prev;
217 		*ncp->nc_prev = ncq;
218 		/* remove from old hash chain, if on one */
219 		if (ncp->nc_back) {
220 			if (ncq = ncp->nc_forw)
221 				ncq->nc_back = ncp->nc_back;
222 			*ncp->nc_back = ncq;
223 			ncp->nc_forw = NULL;
224 			ncp->nc_back = NULL;
225 		}
226 	} else
227 		return;
228 	/* grab the vnode we just found */
229 	ncp->nc_vp = vp;
230 	if (vp)
231 		ncp->nc_vpid = vp->v_id;
232 	else
233 		ncp->nc_vpid = 0;
234 	/* fill in cache info */
235 	ncp->nc_dvp = dvp;
236 	ncp->nc_dvpid = dvp->v_id;
237 	ncp->nc_nlen = cnp->cn_namelen;
238 	bcopy(cnp->cn_nameptr, ncp->nc_name, (unsigned)ncp->nc_nlen);
239 	/* link at end of lru chain */
240 	ncp->nc_nxt = NULL;
241 	ncp->nc_prev = nchtail;
242 	*nchtail = ncp;
243 	nchtail = &ncp->nc_nxt;
244 	/* and insert on hash chain */
245 	ncpp = &nchashtbl[cnp->cn_hash & nchash];
246 	if (ncq = *ncpp)
247 		ncq->nc_back = &ncp->nc_forw;
248 	ncp->nc_forw = ncq;
249 	ncp->nc_back = ncpp;
250 	*ncpp = ncp;
251 }
252 
253 /*
254  * Name cache initialization, from vfs_init() when we are booting
255  */
256 nchinit()
257 {
258 
259 	nchtail = &nchhead;
260 	nchashtbl = hashinit(desiredvnodes, M_CACHE, &nchash);
261 }
262 
263 /*
264  * Cache flush, a particular vnode; called when a vnode is renamed to
265  * hide entries that would now be invalid
266  */
267 cache_purge(vp)
268 	struct vnode *vp;
269 {
270 	struct namecache *ncp, **ncpp;
271 
272 	vp->v_id = ++nextvnodeid;
273 	if (nextvnodeid != 0)
274 		return;
275 	for (ncpp = &nchashtbl[nchash]; ncpp >= nchashtbl; ncpp--) {
276 		for (ncp = *ncpp; ncp; ncp = ncp->nc_forw) {
277 			ncp->nc_vpid = 0;
278 			ncp->nc_dvpid = 0;
279 		}
280 	}
281 	vp->v_id = ++nextvnodeid;
282 }
283 
284 /*
285  * Cache flush, a whole filesystem; called when filesys is umounted to
286  * remove entries that would now be invalid
287  *
288  * The line "nxtcp = nchhead" near the end is to avoid potential problems
289  * if the cache lru chain is modified while we are dumping the
290  * inode.  This makes the algorithm O(n^2), but do you think I care?
291  */
292 cache_purgevfs(mp)
293 	struct mount *mp;
294 {
295 	register struct namecache *ncp, *nxtcp;
296 
297 	for (ncp = nchhead; ncp; ncp = nxtcp) {
298 		if (ncp->nc_dvp == NULL || ncp->nc_dvp->v_mount != mp) {
299 			nxtcp = ncp->nc_nxt;
300 			continue;
301 		}
302 		/* free the resources we had */
303 		ncp->nc_vp = NULL;
304 		ncp->nc_dvp = NULL;
305 		/* remove from old hash chain, if on one */
306 		if (ncp->nc_back) {
307 			if (nxtcp = ncp->nc_forw)
308 				nxtcp->nc_back = ncp->nc_back;
309 			*ncp->nc_back = nxtcp;
310 			ncp->nc_forw = NULL;
311 			ncp->nc_back = NULL;
312 		}
313 		/* delete this entry from LRU chain */
314 		if (nxtcp = ncp->nc_nxt)
315 			nxtcp->nc_prev = ncp->nc_prev;
316 		else
317 			nchtail = ncp->nc_prev;
318 		*ncp->nc_prev = nxtcp;
319 		/* cause rescan of list, it may have altered */
320 		/* also put the now-free entry at head of LRU */
321 		if (nxtcp = nchhead)
322 			nxtcp->nc_prev = &ncp->nc_nxt;
323 		else
324 			nchtail = &ncp->nc_nxt;
325 		nchhead = ncp;
326 		ncp->nc_nxt = nxtcp;
327 		ncp->nc_prev = &nchhead;
328 	}
329 }
330