xref: /linux/fs/gfs2/glock.c (revision 63307d015b91e626c97bb82e88054af3d0b74643)
1 // SPDX-License-Identifier: GPL-2.0-only
2 /*
3  * Copyright (C) Sistina Software, Inc.  1997-2003 All rights reserved.
4  * Copyright (C) 2004-2008 Red Hat, Inc.  All rights reserved.
5  */
6 
7 #define pr_fmt(fmt) KBUILD_MODNAME ": " fmt
8 
9 #include <linux/sched.h>
10 #include <linux/slab.h>
11 #include <linux/spinlock.h>
12 #include <linux/buffer_head.h>
13 #include <linux/delay.h>
14 #include <linux/sort.h>
15 #include <linux/hash.h>
16 #include <linux/jhash.h>
17 #include <linux/kallsyms.h>
18 #include <linux/gfs2_ondisk.h>
19 #include <linux/list.h>
20 #include <linux/wait.h>
21 #include <linux/module.h>
22 #include <linux/uaccess.h>
23 #include <linux/seq_file.h>
24 #include <linux/debugfs.h>
25 #include <linux/kthread.h>
26 #include <linux/freezer.h>
27 #include <linux/workqueue.h>
28 #include <linux/jiffies.h>
29 #include <linux/rcupdate.h>
30 #include <linux/rculist_bl.h>
31 #include <linux/bit_spinlock.h>
32 #include <linux/percpu.h>
33 #include <linux/list_sort.h>
34 #include <linux/lockref.h>
35 #include <linux/rhashtable.h>
36 
37 #include "gfs2.h"
38 #include "incore.h"
39 #include "glock.h"
40 #include "glops.h"
41 #include "inode.h"
42 #include "lops.h"
43 #include "meta_io.h"
44 #include "quota.h"
45 #include "super.h"
46 #include "util.h"
47 #include "bmap.h"
48 #define CREATE_TRACE_POINTS
49 #include "trace_gfs2.h"
50 
51 struct gfs2_glock_iter {
52 	struct gfs2_sbd *sdp;		/* incore superblock           */
53 	struct rhashtable_iter hti;	/* rhashtable iterator         */
54 	struct gfs2_glock *gl;		/* current glock struct        */
55 	loff_t last_pos;		/* last position               */
56 };
57 
58 typedef void (*glock_examiner) (struct gfs2_glock * gl);
59 
60 static void do_xmote(struct gfs2_glock *gl, struct gfs2_holder *gh, unsigned int target);
61 
62 static struct dentry *gfs2_root;
63 static struct workqueue_struct *glock_workqueue;
64 struct workqueue_struct *gfs2_delete_workqueue;
65 static LIST_HEAD(lru_list);
66 static atomic_t lru_count = ATOMIC_INIT(0);
67 static DEFINE_SPINLOCK(lru_lock);
68 
69 #define GFS2_GL_HASH_SHIFT      15
70 #define GFS2_GL_HASH_SIZE       BIT(GFS2_GL_HASH_SHIFT)
71 
72 static const struct rhashtable_params ht_parms = {
73 	.nelem_hint = GFS2_GL_HASH_SIZE * 3 / 4,
74 	.key_len = offsetofend(struct lm_lockname, ln_type),
75 	.key_offset = offsetof(struct gfs2_glock, gl_name),
76 	.head_offset = offsetof(struct gfs2_glock, gl_node),
77 };
78 
79 static struct rhashtable gl_hash_table;
80 
81 #define GLOCK_WAIT_TABLE_BITS 12
82 #define GLOCK_WAIT_TABLE_SIZE (1 << GLOCK_WAIT_TABLE_BITS)
83 static wait_queue_head_t glock_wait_table[GLOCK_WAIT_TABLE_SIZE] __cacheline_aligned;
84 
85 struct wait_glock_queue {
86 	struct lm_lockname *name;
87 	wait_queue_entry_t wait;
88 };
89 
90 static int glock_wake_function(wait_queue_entry_t *wait, unsigned int mode,
91 			       int sync, void *key)
92 {
93 	struct wait_glock_queue *wait_glock =
94 		container_of(wait, struct wait_glock_queue, wait);
95 	struct lm_lockname *wait_name = wait_glock->name;
96 	struct lm_lockname *wake_name = key;
97 
98 	if (wake_name->ln_sbd != wait_name->ln_sbd ||
99 	    wake_name->ln_number != wait_name->ln_number ||
100 	    wake_name->ln_type != wait_name->ln_type)
101 		return 0;
102 	return autoremove_wake_function(wait, mode, sync, key);
103 }
104 
105 static wait_queue_head_t *glock_waitqueue(struct lm_lockname *name)
106 {
107 	u32 hash = jhash2((u32 *)name, ht_parms.key_len / 4, 0);
108 
109 	return glock_wait_table + hash_32(hash, GLOCK_WAIT_TABLE_BITS);
110 }
111 
112 /**
113  * wake_up_glock  -  Wake up waiters on a glock
114  * @gl: the glock
115  */
116 static void wake_up_glock(struct gfs2_glock *gl)
117 {
118 	wait_queue_head_t *wq = glock_waitqueue(&gl->gl_name);
119 
120 	if (waitqueue_active(wq))
121 		__wake_up(wq, TASK_NORMAL, 1, &gl->gl_name);
122 }
123 
124 static void gfs2_glock_dealloc(struct rcu_head *rcu)
125 {
126 	struct gfs2_glock *gl = container_of(rcu, struct gfs2_glock, gl_rcu);
127 
128 	if (gl->gl_ops->go_flags & GLOF_ASPACE) {
129 		kmem_cache_free(gfs2_glock_aspace_cachep, gl);
130 	} else {
131 		kfree(gl->gl_lksb.sb_lvbptr);
132 		kmem_cache_free(gfs2_glock_cachep, gl);
133 	}
134 }
135 
136 void gfs2_glock_free(struct gfs2_glock *gl)
137 {
138 	struct gfs2_sbd *sdp = gl->gl_name.ln_sbd;
139 
140 	BUG_ON(atomic_read(&gl->gl_revokes));
141 	rhashtable_remove_fast(&gl_hash_table, &gl->gl_node, ht_parms);
142 	smp_mb();
143 	wake_up_glock(gl);
144 	call_rcu(&gl->gl_rcu, gfs2_glock_dealloc);
145 	if (atomic_dec_and_test(&sdp->sd_glock_disposal))
146 		wake_up(&sdp->sd_glock_wait);
147 }
148 
149 /**
150  * gfs2_glock_hold() - increment reference count on glock
151  * @gl: The glock to hold
152  *
153  */
154 
155 void gfs2_glock_hold(struct gfs2_glock *gl)
156 {
157 	GLOCK_BUG_ON(gl, __lockref_is_dead(&gl->gl_lockref));
158 	lockref_get(&gl->gl_lockref);
159 }
160 
161 /**
162  * demote_ok - Check to see if it's ok to unlock a glock
163  * @gl: the glock
164  *
165  * Returns: 1 if it's ok
166  */
167 
168 static int demote_ok(const struct gfs2_glock *gl)
169 {
170 	const struct gfs2_glock_operations *glops = gl->gl_ops;
171 
172 	if (gl->gl_state == LM_ST_UNLOCKED)
173 		return 0;
174 	if (!list_empty(&gl->gl_holders))
175 		return 0;
176 	if (glops->go_demote_ok)
177 		return glops->go_demote_ok(gl);
178 	return 1;
179 }
180 
181 
182 void gfs2_glock_add_to_lru(struct gfs2_glock *gl)
183 {
184 	if (!(gl->gl_ops->go_flags & GLOF_LRU))
185 		return;
186 
187 	spin_lock(&lru_lock);
188 
189 	list_del(&gl->gl_lru);
190 	list_add_tail(&gl->gl_lru, &lru_list);
191 
192 	if (!test_bit(GLF_LRU, &gl->gl_flags)) {
193 		set_bit(GLF_LRU, &gl->gl_flags);
194 		atomic_inc(&lru_count);
195 	}
196 
197 	spin_unlock(&lru_lock);
198 }
199 
200 static void gfs2_glock_remove_from_lru(struct gfs2_glock *gl)
201 {
202 	if (!(gl->gl_ops->go_flags & GLOF_LRU))
203 		return;
204 
205 	spin_lock(&lru_lock);
206 	if (test_bit(GLF_LRU, &gl->gl_flags)) {
207 		list_del_init(&gl->gl_lru);
208 		atomic_dec(&lru_count);
209 		clear_bit(GLF_LRU, &gl->gl_flags);
210 	}
211 	spin_unlock(&lru_lock);
212 }
213 
214 /*
215  * Enqueue the glock on the work queue.  Passes one glock reference on to the
216  * work queue.
217  */
218 static void __gfs2_glock_queue_work(struct gfs2_glock *gl, unsigned long delay) {
219 	if (!queue_delayed_work(glock_workqueue, &gl->gl_work, delay)) {
220 		/*
221 		 * We are holding the lockref spinlock, and the work was still
222 		 * queued above.  The queued work (glock_work_func) takes that
223 		 * spinlock before dropping its glock reference(s), so it
224 		 * cannot have dropped them in the meantime.
225 		 */
226 		GLOCK_BUG_ON(gl, gl->gl_lockref.count < 2);
227 		gl->gl_lockref.count--;
228 	}
229 }
230 
231 static void gfs2_glock_queue_work(struct gfs2_glock *gl, unsigned long delay) {
232 	spin_lock(&gl->gl_lockref.lock);
233 	__gfs2_glock_queue_work(gl, delay);
234 	spin_unlock(&gl->gl_lockref.lock);
235 }
236 
237 static void __gfs2_glock_put(struct gfs2_glock *gl)
238 {
239 	struct gfs2_sbd *sdp = gl->gl_name.ln_sbd;
240 	struct address_space *mapping = gfs2_glock2aspace(gl);
241 
242 	lockref_mark_dead(&gl->gl_lockref);
243 
244 	gfs2_glock_remove_from_lru(gl);
245 	spin_unlock(&gl->gl_lockref.lock);
246 	GLOCK_BUG_ON(gl, !list_empty(&gl->gl_holders));
247 	GLOCK_BUG_ON(gl, mapping && mapping->nrpages);
248 	trace_gfs2_glock_put(gl);
249 	sdp->sd_lockstruct.ls_ops->lm_put_lock(gl);
250 }
251 
252 /*
253  * Cause the glock to be put in work queue context.
254  */
255 void gfs2_glock_queue_put(struct gfs2_glock *gl)
256 {
257 	gfs2_glock_queue_work(gl, 0);
258 }
259 
260 /**
261  * gfs2_glock_put() - Decrement reference count on glock
262  * @gl: The glock to put
263  *
264  */
265 
266 void gfs2_glock_put(struct gfs2_glock *gl)
267 {
268 	if (lockref_put_or_lock(&gl->gl_lockref))
269 		return;
270 
271 	__gfs2_glock_put(gl);
272 }
273 
274 /**
275  * may_grant - check if its ok to grant a new lock
276  * @gl: The glock
277  * @gh: The lock request which we wish to grant
278  *
279  * Returns: true if its ok to grant the lock
280  */
281 
282 static inline int may_grant(const struct gfs2_glock *gl, const struct gfs2_holder *gh)
283 {
284 	const struct gfs2_holder *gh_head = list_entry(gl->gl_holders.next, const struct gfs2_holder, gh_list);
285 	if ((gh->gh_state == LM_ST_EXCLUSIVE ||
286 	     gh_head->gh_state == LM_ST_EXCLUSIVE) && gh != gh_head)
287 		return 0;
288 	if (gl->gl_state == gh->gh_state)
289 		return 1;
290 	if (gh->gh_flags & GL_EXACT)
291 		return 0;
292 	if (gl->gl_state == LM_ST_EXCLUSIVE) {
293 		if (gh->gh_state == LM_ST_SHARED && gh_head->gh_state == LM_ST_SHARED)
294 			return 1;
295 		if (gh->gh_state == LM_ST_DEFERRED && gh_head->gh_state == LM_ST_DEFERRED)
296 			return 1;
297 	}
298 	if (gl->gl_state != LM_ST_UNLOCKED && (gh->gh_flags & LM_FLAG_ANY))
299 		return 1;
300 	return 0;
301 }
302 
303 static void gfs2_holder_wake(struct gfs2_holder *gh)
304 {
305 	clear_bit(HIF_WAIT, &gh->gh_iflags);
306 	smp_mb__after_atomic();
307 	wake_up_bit(&gh->gh_iflags, HIF_WAIT);
308 }
309 
310 /**
311  * do_error - Something unexpected has happened during a lock request
312  *
313  */
314 
315 static void do_error(struct gfs2_glock *gl, const int ret)
316 {
317 	struct gfs2_holder *gh, *tmp;
318 
319 	list_for_each_entry_safe(gh, tmp, &gl->gl_holders, gh_list) {
320 		if (test_bit(HIF_HOLDER, &gh->gh_iflags))
321 			continue;
322 		if (ret & LM_OUT_ERROR)
323 			gh->gh_error = -EIO;
324 		else if (gh->gh_flags & (LM_FLAG_TRY | LM_FLAG_TRY_1CB))
325 			gh->gh_error = GLR_TRYFAILED;
326 		else
327 			continue;
328 		list_del_init(&gh->gh_list);
329 		trace_gfs2_glock_queue(gh, 0);
330 		gfs2_holder_wake(gh);
331 	}
332 }
333 
334 /**
335  * do_promote - promote as many requests as possible on the current queue
336  * @gl: The glock
337  *
338  * Returns: 1 if there is a blocked holder at the head of the list, or 2
339  *          if a type specific operation is underway.
340  */
341 
342 static int do_promote(struct gfs2_glock *gl)
343 __releases(&gl->gl_lockref.lock)
344 __acquires(&gl->gl_lockref.lock)
345 {
346 	const struct gfs2_glock_operations *glops = gl->gl_ops;
347 	struct gfs2_holder *gh, *tmp;
348 	int ret;
349 
350 restart:
351 	list_for_each_entry_safe(gh, tmp, &gl->gl_holders, gh_list) {
352 		if (test_bit(HIF_HOLDER, &gh->gh_iflags))
353 			continue;
354 		if (may_grant(gl, gh)) {
355 			if (gh->gh_list.prev == &gl->gl_holders &&
356 			    glops->go_lock) {
357 				spin_unlock(&gl->gl_lockref.lock);
358 				/* FIXME: eliminate this eventually */
359 				ret = glops->go_lock(gh);
360 				spin_lock(&gl->gl_lockref.lock);
361 				if (ret) {
362 					if (ret == 1)
363 						return 2;
364 					gh->gh_error = ret;
365 					list_del_init(&gh->gh_list);
366 					trace_gfs2_glock_queue(gh, 0);
367 					gfs2_holder_wake(gh);
368 					goto restart;
369 				}
370 				set_bit(HIF_HOLDER, &gh->gh_iflags);
371 				trace_gfs2_promote(gh, 1);
372 				gfs2_holder_wake(gh);
373 				goto restart;
374 			}
375 			set_bit(HIF_HOLDER, &gh->gh_iflags);
376 			trace_gfs2_promote(gh, 0);
377 			gfs2_holder_wake(gh);
378 			continue;
379 		}
380 		if (gh->gh_list.prev == &gl->gl_holders)
381 			return 1;
382 		do_error(gl, 0);
383 		break;
384 	}
385 	return 0;
386 }
387 
388 /**
389  * find_first_waiter - find the first gh that's waiting for the glock
390  * @gl: the glock
391  */
392 
393 static inline struct gfs2_holder *find_first_waiter(const struct gfs2_glock *gl)
394 {
395 	struct gfs2_holder *gh;
396 
397 	list_for_each_entry(gh, &gl->gl_holders, gh_list) {
398 		if (!test_bit(HIF_HOLDER, &gh->gh_iflags))
399 			return gh;
400 	}
401 	return NULL;
402 }
403 
404 /**
405  * state_change - record that the glock is now in a different state
406  * @gl: the glock
407  * @new_state the new state
408  *
409  */
410 
411 static void state_change(struct gfs2_glock *gl, unsigned int new_state)
412 {
413 	int held1, held2;
414 
415 	held1 = (gl->gl_state != LM_ST_UNLOCKED);
416 	held2 = (new_state != LM_ST_UNLOCKED);
417 
418 	if (held1 != held2) {
419 		GLOCK_BUG_ON(gl, __lockref_is_dead(&gl->gl_lockref));
420 		if (held2)
421 			gl->gl_lockref.count++;
422 		else
423 			gl->gl_lockref.count--;
424 	}
425 	if (held1 && held2 && list_empty(&gl->gl_holders))
426 		clear_bit(GLF_QUEUED, &gl->gl_flags);
427 
428 	if (new_state != gl->gl_target)
429 		/* shorten our minimum hold time */
430 		gl->gl_hold_time = max(gl->gl_hold_time - GL_GLOCK_HOLD_DECR,
431 				       GL_GLOCK_MIN_HOLD);
432 	gl->gl_state = new_state;
433 	gl->gl_tchange = jiffies;
434 }
435 
436 static void gfs2_demote_wake(struct gfs2_glock *gl)
437 {
438 	gl->gl_demote_state = LM_ST_EXCLUSIVE;
439 	clear_bit(GLF_DEMOTE, &gl->gl_flags);
440 	smp_mb__after_atomic();
441 	wake_up_bit(&gl->gl_flags, GLF_DEMOTE);
442 }
443 
444 /**
445  * finish_xmote - The DLM has replied to one of our lock requests
446  * @gl: The glock
447  * @ret: The status from the DLM
448  *
449  */
450 
451 static void finish_xmote(struct gfs2_glock *gl, unsigned int ret)
452 {
453 	const struct gfs2_glock_operations *glops = gl->gl_ops;
454 	struct gfs2_holder *gh;
455 	unsigned state = ret & LM_OUT_ST_MASK;
456 	int rv;
457 
458 	spin_lock(&gl->gl_lockref.lock);
459 	trace_gfs2_glock_state_change(gl, state);
460 	state_change(gl, state);
461 	gh = find_first_waiter(gl);
462 
463 	/* Demote to UN request arrived during demote to SH or DF */
464 	if (test_bit(GLF_DEMOTE_IN_PROGRESS, &gl->gl_flags) &&
465 	    state != LM_ST_UNLOCKED && gl->gl_demote_state == LM_ST_UNLOCKED)
466 		gl->gl_target = LM_ST_UNLOCKED;
467 
468 	/* Check for state != intended state */
469 	if (unlikely(state != gl->gl_target)) {
470 		if (gh && !test_bit(GLF_DEMOTE_IN_PROGRESS, &gl->gl_flags)) {
471 			/* move to back of queue and try next entry */
472 			if (ret & LM_OUT_CANCELED) {
473 				if ((gh->gh_flags & LM_FLAG_PRIORITY) == 0)
474 					list_move_tail(&gh->gh_list, &gl->gl_holders);
475 				gh = find_first_waiter(gl);
476 				gl->gl_target = gh->gh_state;
477 				goto retry;
478 			}
479 			/* Some error or failed "try lock" - report it */
480 			if ((ret & LM_OUT_ERROR) ||
481 			    (gh->gh_flags & (LM_FLAG_TRY | LM_FLAG_TRY_1CB))) {
482 				gl->gl_target = gl->gl_state;
483 				do_error(gl, ret);
484 				goto out;
485 			}
486 		}
487 		switch(state) {
488 		/* Unlocked due to conversion deadlock, try again */
489 		case LM_ST_UNLOCKED:
490 retry:
491 			do_xmote(gl, gh, gl->gl_target);
492 			break;
493 		/* Conversion fails, unlock and try again */
494 		case LM_ST_SHARED:
495 		case LM_ST_DEFERRED:
496 			do_xmote(gl, gh, LM_ST_UNLOCKED);
497 			break;
498 		default: /* Everything else */
499 			fs_err(gl->gl_name.ln_sbd, "wanted %u got %u\n",
500 			       gl->gl_target, state);
501 			GLOCK_BUG_ON(gl, 1);
502 		}
503 		spin_unlock(&gl->gl_lockref.lock);
504 		return;
505 	}
506 
507 	/* Fast path - we got what we asked for */
508 	if (test_and_clear_bit(GLF_DEMOTE_IN_PROGRESS, &gl->gl_flags))
509 		gfs2_demote_wake(gl);
510 	if (state != LM_ST_UNLOCKED) {
511 		if (glops->go_xmote_bh) {
512 			spin_unlock(&gl->gl_lockref.lock);
513 			rv = glops->go_xmote_bh(gl, gh);
514 			spin_lock(&gl->gl_lockref.lock);
515 			if (rv) {
516 				do_error(gl, rv);
517 				goto out;
518 			}
519 		}
520 		rv = do_promote(gl);
521 		if (rv == 2)
522 			goto out_locked;
523 	}
524 out:
525 	clear_bit(GLF_LOCK, &gl->gl_flags);
526 out_locked:
527 	spin_unlock(&gl->gl_lockref.lock);
528 }
529 
530 /**
531  * do_xmote - Calls the DLM to change the state of a lock
532  * @gl: The lock state
533  * @gh: The holder (only for promotes)
534  * @target: The target lock state
535  *
536  */
537 
538 static void do_xmote(struct gfs2_glock *gl, struct gfs2_holder *gh, unsigned int target)
539 __releases(&gl->gl_lockref.lock)
540 __acquires(&gl->gl_lockref.lock)
541 {
542 	const struct gfs2_glock_operations *glops = gl->gl_ops;
543 	struct gfs2_sbd *sdp = gl->gl_name.ln_sbd;
544 	unsigned int lck_flags = (unsigned int)(gh ? gh->gh_flags : 0);
545 	int ret;
546 
547 	if (unlikely(test_bit(SDF_SHUTDOWN, &sdp->sd_flags)) &&
548 	    target != LM_ST_UNLOCKED)
549 		return;
550 	lck_flags &= (LM_FLAG_TRY | LM_FLAG_TRY_1CB | LM_FLAG_NOEXP |
551 		      LM_FLAG_PRIORITY);
552 	GLOCK_BUG_ON(gl, gl->gl_state == target);
553 	GLOCK_BUG_ON(gl, gl->gl_state == gl->gl_target);
554 	if ((target == LM_ST_UNLOCKED || target == LM_ST_DEFERRED) &&
555 	    glops->go_inval) {
556 		set_bit(GLF_INVALIDATE_IN_PROGRESS, &gl->gl_flags);
557 		do_error(gl, 0); /* Fail queued try locks */
558 	}
559 	gl->gl_req = target;
560 	set_bit(GLF_BLOCKING, &gl->gl_flags);
561 	if ((gl->gl_req == LM_ST_UNLOCKED) ||
562 	    (gl->gl_state == LM_ST_EXCLUSIVE) ||
563 	    (lck_flags & (LM_FLAG_TRY|LM_FLAG_TRY_1CB)))
564 		clear_bit(GLF_BLOCKING, &gl->gl_flags);
565 	spin_unlock(&gl->gl_lockref.lock);
566 	if (glops->go_sync)
567 		glops->go_sync(gl);
568 	if (test_bit(GLF_INVALIDATE_IN_PROGRESS, &gl->gl_flags))
569 		glops->go_inval(gl, target == LM_ST_DEFERRED ? 0 : DIO_METADATA);
570 	clear_bit(GLF_INVALIDATE_IN_PROGRESS, &gl->gl_flags);
571 
572 	gfs2_glock_hold(gl);
573 	if (sdp->sd_lockstruct.ls_ops->lm_lock)	{
574 		/* lock_dlm */
575 		ret = sdp->sd_lockstruct.ls_ops->lm_lock(gl, target, lck_flags);
576 		if (ret == -EINVAL && gl->gl_target == LM_ST_UNLOCKED &&
577 		    target == LM_ST_UNLOCKED &&
578 		    test_bit(SDF_SKIP_DLM_UNLOCK, &sdp->sd_flags)) {
579 			finish_xmote(gl, target);
580 			gfs2_glock_queue_work(gl, 0);
581 		}
582 		else if (ret) {
583 			fs_err(sdp, "lm_lock ret %d\n", ret);
584 			GLOCK_BUG_ON(gl, !test_bit(SDF_SHUTDOWN,
585 						   &sdp->sd_flags));
586 		}
587 	} else { /* lock_nolock */
588 		finish_xmote(gl, target);
589 		gfs2_glock_queue_work(gl, 0);
590 	}
591 
592 	spin_lock(&gl->gl_lockref.lock);
593 }
594 
595 /**
596  * find_first_holder - find the first "holder" gh
597  * @gl: the glock
598  */
599 
600 static inline struct gfs2_holder *find_first_holder(const struct gfs2_glock *gl)
601 {
602 	struct gfs2_holder *gh;
603 
604 	if (!list_empty(&gl->gl_holders)) {
605 		gh = list_entry(gl->gl_holders.next, struct gfs2_holder, gh_list);
606 		if (test_bit(HIF_HOLDER, &gh->gh_iflags))
607 			return gh;
608 	}
609 	return NULL;
610 }
611 
612 /**
613  * run_queue - do all outstanding tasks related to a glock
614  * @gl: The glock in question
615  * @nonblock: True if we must not block in run_queue
616  *
617  */
618 
619 static void run_queue(struct gfs2_glock *gl, const int nonblock)
620 __releases(&gl->gl_lockref.lock)
621 __acquires(&gl->gl_lockref.lock)
622 {
623 	struct gfs2_holder *gh = NULL;
624 	int ret;
625 
626 	if (test_and_set_bit(GLF_LOCK, &gl->gl_flags))
627 		return;
628 
629 	GLOCK_BUG_ON(gl, test_bit(GLF_DEMOTE_IN_PROGRESS, &gl->gl_flags));
630 
631 	if (test_bit(GLF_DEMOTE, &gl->gl_flags) &&
632 	    gl->gl_demote_state != gl->gl_state) {
633 		if (find_first_holder(gl))
634 			goto out_unlock;
635 		if (nonblock)
636 			goto out_sched;
637 		set_bit(GLF_DEMOTE_IN_PROGRESS, &gl->gl_flags);
638 		GLOCK_BUG_ON(gl, gl->gl_demote_state == LM_ST_EXCLUSIVE);
639 		gl->gl_target = gl->gl_demote_state;
640 	} else {
641 		if (test_bit(GLF_DEMOTE, &gl->gl_flags))
642 			gfs2_demote_wake(gl);
643 		ret = do_promote(gl);
644 		if (ret == 0)
645 			goto out_unlock;
646 		if (ret == 2)
647 			goto out;
648 		gh = find_first_waiter(gl);
649 		gl->gl_target = gh->gh_state;
650 		if (!(gh->gh_flags & (LM_FLAG_TRY | LM_FLAG_TRY_1CB)))
651 			do_error(gl, 0); /* Fail queued try locks */
652 	}
653 	do_xmote(gl, gh, gl->gl_target);
654 out:
655 	return;
656 
657 out_sched:
658 	clear_bit(GLF_LOCK, &gl->gl_flags);
659 	smp_mb__after_atomic();
660 	gl->gl_lockref.count++;
661 	__gfs2_glock_queue_work(gl, 0);
662 	return;
663 
664 out_unlock:
665 	clear_bit(GLF_LOCK, &gl->gl_flags);
666 	smp_mb__after_atomic();
667 	return;
668 }
669 
670 static void delete_work_func(struct work_struct *work)
671 {
672 	struct gfs2_glock *gl = container_of(work, struct gfs2_glock, gl_delete);
673 	struct gfs2_sbd *sdp = gl->gl_name.ln_sbd;
674 	struct inode *inode;
675 	u64 no_addr = gl->gl_name.ln_number;
676 
677 	/* If someone's using this glock to create a new dinode, the block must
678 	   have been freed by another node, then re-used, in which case our
679 	   iopen callback is too late after the fact. Ignore it. */
680 	if (test_bit(GLF_INODE_CREATING, &gl->gl_flags))
681 		goto out;
682 
683 	inode = gfs2_lookup_by_inum(sdp, no_addr, NULL, GFS2_BLKST_UNLINKED);
684 	if (inode && !IS_ERR(inode)) {
685 		d_prune_aliases(inode);
686 		iput(inode);
687 	}
688 out:
689 	gfs2_glock_put(gl);
690 }
691 
692 static void glock_work_func(struct work_struct *work)
693 {
694 	unsigned long delay = 0;
695 	struct gfs2_glock *gl = container_of(work, struct gfs2_glock, gl_work.work);
696 	unsigned int drop_refs = 1;
697 
698 	if (test_and_clear_bit(GLF_REPLY_PENDING, &gl->gl_flags)) {
699 		finish_xmote(gl, gl->gl_reply);
700 		drop_refs++;
701 	}
702 	spin_lock(&gl->gl_lockref.lock);
703 	if (test_bit(GLF_PENDING_DEMOTE, &gl->gl_flags) &&
704 	    gl->gl_state != LM_ST_UNLOCKED &&
705 	    gl->gl_demote_state != LM_ST_EXCLUSIVE) {
706 		unsigned long holdtime, now = jiffies;
707 
708 		holdtime = gl->gl_tchange + gl->gl_hold_time;
709 		if (time_before(now, holdtime))
710 			delay = holdtime - now;
711 
712 		if (!delay) {
713 			clear_bit(GLF_PENDING_DEMOTE, &gl->gl_flags);
714 			set_bit(GLF_DEMOTE, &gl->gl_flags);
715 		}
716 	}
717 	run_queue(gl, 0);
718 	if (delay) {
719 		/* Keep one glock reference for the work we requeue. */
720 		drop_refs--;
721 		if (gl->gl_name.ln_type != LM_TYPE_INODE)
722 			delay = 0;
723 		__gfs2_glock_queue_work(gl, delay);
724 	}
725 
726 	/*
727 	 * Drop the remaining glock references manually here. (Mind that
728 	 * __gfs2_glock_queue_work depends on the lockref spinlock begin held
729 	 * here as well.)
730 	 */
731 	gl->gl_lockref.count -= drop_refs;
732 	if (!gl->gl_lockref.count) {
733 		__gfs2_glock_put(gl);
734 		return;
735 	}
736 	spin_unlock(&gl->gl_lockref.lock);
737 }
738 
739 static struct gfs2_glock *find_insert_glock(struct lm_lockname *name,
740 					    struct gfs2_glock *new)
741 {
742 	struct wait_glock_queue wait;
743 	wait_queue_head_t *wq = glock_waitqueue(name);
744 	struct gfs2_glock *gl;
745 
746 	wait.name = name;
747 	init_wait(&wait.wait);
748 	wait.wait.func = glock_wake_function;
749 
750 again:
751 	prepare_to_wait(wq, &wait.wait, TASK_UNINTERRUPTIBLE);
752 	rcu_read_lock();
753 	if (new) {
754 		gl = rhashtable_lookup_get_insert_fast(&gl_hash_table,
755 			&new->gl_node, ht_parms);
756 		if (IS_ERR(gl))
757 			goto out;
758 	} else {
759 		gl = rhashtable_lookup_fast(&gl_hash_table,
760 			name, ht_parms);
761 	}
762 	if (gl && !lockref_get_not_dead(&gl->gl_lockref)) {
763 		rcu_read_unlock();
764 		schedule();
765 		goto again;
766 	}
767 out:
768 	rcu_read_unlock();
769 	finish_wait(wq, &wait.wait);
770 	return gl;
771 }
772 
773 /**
774  * gfs2_glock_get() - Get a glock, or create one if one doesn't exist
775  * @sdp: The GFS2 superblock
776  * @number: the lock number
777  * @glops: The glock_operations to use
778  * @create: If 0, don't create the glock if it doesn't exist
779  * @glp: the glock is returned here
780  *
781  * This does not lock a glock, just finds/creates structures for one.
782  *
783  * Returns: errno
784  */
785 
786 int gfs2_glock_get(struct gfs2_sbd *sdp, u64 number,
787 		   const struct gfs2_glock_operations *glops, int create,
788 		   struct gfs2_glock **glp)
789 {
790 	struct super_block *s = sdp->sd_vfs;
791 	struct lm_lockname name = { .ln_number = number,
792 				    .ln_type = glops->go_type,
793 				    .ln_sbd = sdp };
794 	struct gfs2_glock *gl, *tmp;
795 	struct address_space *mapping;
796 	struct kmem_cache *cachep;
797 	int ret = 0;
798 
799 	gl = find_insert_glock(&name, NULL);
800 	if (gl) {
801 		*glp = gl;
802 		return 0;
803 	}
804 	if (!create)
805 		return -ENOENT;
806 
807 	if (glops->go_flags & GLOF_ASPACE)
808 		cachep = gfs2_glock_aspace_cachep;
809 	else
810 		cachep = gfs2_glock_cachep;
811 	gl = kmem_cache_alloc(cachep, GFP_NOFS);
812 	if (!gl)
813 		return -ENOMEM;
814 
815 	memset(&gl->gl_lksb, 0, sizeof(struct dlm_lksb));
816 
817 	if (glops->go_flags & GLOF_LVB) {
818 		gl->gl_lksb.sb_lvbptr = kzalloc(GFS2_MIN_LVB_SIZE, GFP_NOFS);
819 		if (!gl->gl_lksb.sb_lvbptr) {
820 			kmem_cache_free(cachep, gl);
821 			return -ENOMEM;
822 		}
823 	}
824 
825 	atomic_inc(&sdp->sd_glock_disposal);
826 	gl->gl_node.next = NULL;
827 	gl->gl_flags = 0;
828 	gl->gl_name = name;
829 	gl->gl_lockref.count = 1;
830 	gl->gl_state = LM_ST_UNLOCKED;
831 	gl->gl_target = LM_ST_UNLOCKED;
832 	gl->gl_demote_state = LM_ST_EXCLUSIVE;
833 	gl->gl_ops = glops;
834 	gl->gl_dstamp = 0;
835 	preempt_disable();
836 	/* We use the global stats to estimate the initial per-glock stats */
837 	gl->gl_stats = this_cpu_ptr(sdp->sd_lkstats)->lkstats[glops->go_type];
838 	preempt_enable();
839 	gl->gl_stats.stats[GFS2_LKS_DCOUNT] = 0;
840 	gl->gl_stats.stats[GFS2_LKS_QCOUNT] = 0;
841 	gl->gl_tchange = jiffies;
842 	gl->gl_object = NULL;
843 	gl->gl_hold_time = GL_GLOCK_DFT_HOLD;
844 	INIT_DELAYED_WORK(&gl->gl_work, glock_work_func);
845 	INIT_WORK(&gl->gl_delete, delete_work_func);
846 
847 	mapping = gfs2_glock2aspace(gl);
848 	if (mapping) {
849                 mapping->a_ops = &gfs2_meta_aops;
850 		mapping->host = s->s_bdev->bd_inode;
851 		mapping->flags = 0;
852 		mapping_set_gfp_mask(mapping, GFP_NOFS);
853 		mapping->private_data = NULL;
854 		mapping->writeback_index = 0;
855 	}
856 
857 	tmp = find_insert_glock(&name, gl);
858 	if (!tmp) {
859 		*glp = gl;
860 		goto out;
861 	}
862 	if (IS_ERR(tmp)) {
863 		ret = PTR_ERR(tmp);
864 		goto out_free;
865 	}
866 	*glp = tmp;
867 
868 out_free:
869 	kfree(gl->gl_lksb.sb_lvbptr);
870 	kmem_cache_free(cachep, gl);
871 	atomic_dec(&sdp->sd_glock_disposal);
872 
873 out:
874 	return ret;
875 }
876 
877 /**
878  * gfs2_holder_init - initialize a struct gfs2_holder in the default way
879  * @gl: the glock
880  * @state: the state we're requesting
881  * @flags: the modifier flags
882  * @gh: the holder structure
883  *
884  */
885 
886 void gfs2_holder_init(struct gfs2_glock *gl, unsigned int state, u16 flags,
887 		      struct gfs2_holder *gh)
888 {
889 	INIT_LIST_HEAD(&gh->gh_list);
890 	gh->gh_gl = gl;
891 	gh->gh_ip = _RET_IP_;
892 	gh->gh_owner_pid = get_pid(task_pid(current));
893 	gh->gh_state = state;
894 	gh->gh_flags = flags;
895 	gh->gh_error = 0;
896 	gh->gh_iflags = 0;
897 	gfs2_glock_hold(gl);
898 }
899 
900 /**
901  * gfs2_holder_reinit - reinitialize a struct gfs2_holder so we can requeue it
902  * @state: the state we're requesting
903  * @flags: the modifier flags
904  * @gh: the holder structure
905  *
906  * Don't mess with the glock.
907  *
908  */
909 
910 void gfs2_holder_reinit(unsigned int state, u16 flags, struct gfs2_holder *gh)
911 {
912 	gh->gh_state = state;
913 	gh->gh_flags = flags;
914 	gh->gh_iflags = 0;
915 	gh->gh_ip = _RET_IP_;
916 	put_pid(gh->gh_owner_pid);
917 	gh->gh_owner_pid = get_pid(task_pid(current));
918 }
919 
920 /**
921  * gfs2_holder_uninit - uninitialize a holder structure (drop glock reference)
922  * @gh: the holder structure
923  *
924  */
925 
926 void gfs2_holder_uninit(struct gfs2_holder *gh)
927 {
928 	put_pid(gh->gh_owner_pid);
929 	gfs2_glock_put(gh->gh_gl);
930 	gfs2_holder_mark_uninitialized(gh);
931 	gh->gh_ip = 0;
932 }
933 
934 /**
935  * gfs2_glock_wait - wait on a glock acquisition
936  * @gh: the glock holder
937  *
938  * Returns: 0 on success
939  */
940 
941 int gfs2_glock_wait(struct gfs2_holder *gh)
942 {
943 	unsigned long time1 = jiffies;
944 
945 	might_sleep();
946 	wait_on_bit(&gh->gh_iflags, HIF_WAIT, TASK_UNINTERRUPTIBLE);
947 	if (time_after(jiffies, time1 + HZ)) /* have we waited > a second? */
948 		/* Lengthen the minimum hold time. */
949 		gh->gh_gl->gl_hold_time = min(gh->gh_gl->gl_hold_time +
950 					      GL_GLOCK_HOLD_INCR,
951 					      GL_GLOCK_MAX_HOLD);
952 	return gh->gh_error;
953 }
954 
955 /**
956  * handle_callback - process a demote request
957  * @gl: the glock
958  * @state: the state the caller wants us to change to
959  *
960  * There are only two requests that we are going to see in actual
961  * practise: LM_ST_SHARED and LM_ST_UNLOCKED
962  */
963 
964 static void handle_callback(struct gfs2_glock *gl, unsigned int state,
965 			    unsigned long delay, bool remote)
966 {
967 	int bit = delay ? GLF_PENDING_DEMOTE : GLF_DEMOTE;
968 
969 	set_bit(bit, &gl->gl_flags);
970 	if (gl->gl_demote_state == LM_ST_EXCLUSIVE) {
971 		gl->gl_demote_state = state;
972 		gl->gl_demote_time = jiffies;
973 	} else if (gl->gl_demote_state != LM_ST_UNLOCKED &&
974 			gl->gl_demote_state != state) {
975 		gl->gl_demote_state = LM_ST_UNLOCKED;
976 	}
977 	if (gl->gl_ops->go_callback)
978 		gl->gl_ops->go_callback(gl, remote);
979 	trace_gfs2_demote_rq(gl, remote);
980 }
981 
982 void gfs2_print_dbg(struct seq_file *seq, const char *fmt, ...)
983 {
984 	struct va_format vaf;
985 	va_list args;
986 
987 	va_start(args, fmt);
988 
989 	if (seq) {
990 		seq_vprintf(seq, fmt, args);
991 	} else {
992 		vaf.fmt = fmt;
993 		vaf.va = &args;
994 
995 		pr_err("%pV", &vaf);
996 	}
997 
998 	va_end(args);
999 }
1000 
1001 /**
1002  * add_to_queue - Add a holder to the wait queue (but look for recursion)
1003  * @gh: the holder structure to add
1004  *
1005  * Eventually we should move the recursive locking trap to a
1006  * debugging option or something like that. This is the fast
1007  * path and needs to have the minimum number of distractions.
1008  *
1009  */
1010 
1011 static inline void add_to_queue(struct gfs2_holder *gh)
1012 __releases(&gl->gl_lockref.lock)
1013 __acquires(&gl->gl_lockref.lock)
1014 {
1015 	struct gfs2_glock *gl = gh->gh_gl;
1016 	struct gfs2_sbd *sdp = gl->gl_name.ln_sbd;
1017 	struct list_head *insert_pt = NULL;
1018 	struct gfs2_holder *gh2;
1019 	int try_futile = 0;
1020 
1021 	BUG_ON(gh->gh_owner_pid == NULL);
1022 	if (test_and_set_bit(HIF_WAIT, &gh->gh_iflags))
1023 		BUG();
1024 
1025 	if (gh->gh_flags & (LM_FLAG_TRY | LM_FLAG_TRY_1CB)) {
1026 		if (test_bit(GLF_LOCK, &gl->gl_flags))
1027 			try_futile = !may_grant(gl, gh);
1028 		if (test_bit(GLF_INVALIDATE_IN_PROGRESS, &gl->gl_flags))
1029 			goto fail;
1030 	}
1031 
1032 	list_for_each_entry(gh2, &gl->gl_holders, gh_list) {
1033 		if (unlikely(gh2->gh_owner_pid == gh->gh_owner_pid &&
1034 		    (gh->gh_gl->gl_ops->go_type != LM_TYPE_FLOCK)))
1035 			goto trap_recursive;
1036 		if (try_futile &&
1037 		    !(gh2->gh_flags & (LM_FLAG_TRY | LM_FLAG_TRY_1CB))) {
1038 fail:
1039 			gh->gh_error = GLR_TRYFAILED;
1040 			gfs2_holder_wake(gh);
1041 			return;
1042 		}
1043 		if (test_bit(HIF_HOLDER, &gh2->gh_iflags))
1044 			continue;
1045 		if (unlikely((gh->gh_flags & LM_FLAG_PRIORITY) && !insert_pt))
1046 			insert_pt = &gh2->gh_list;
1047 	}
1048 	set_bit(GLF_QUEUED, &gl->gl_flags);
1049 	trace_gfs2_glock_queue(gh, 1);
1050 	gfs2_glstats_inc(gl, GFS2_LKS_QCOUNT);
1051 	gfs2_sbstats_inc(gl, GFS2_LKS_QCOUNT);
1052 	if (likely(insert_pt == NULL)) {
1053 		list_add_tail(&gh->gh_list, &gl->gl_holders);
1054 		if (unlikely(gh->gh_flags & LM_FLAG_PRIORITY))
1055 			goto do_cancel;
1056 		return;
1057 	}
1058 	list_add_tail(&gh->gh_list, insert_pt);
1059 do_cancel:
1060 	gh = list_entry(gl->gl_holders.next, struct gfs2_holder, gh_list);
1061 	if (!(gh->gh_flags & LM_FLAG_PRIORITY)) {
1062 		spin_unlock(&gl->gl_lockref.lock);
1063 		if (sdp->sd_lockstruct.ls_ops->lm_cancel)
1064 			sdp->sd_lockstruct.ls_ops->lm_cancel(gl);
1065 		spin_lock(&gl->gl_lockref.lock);
1066 	}
1067 	return;
1068 
1069 trap_recursive:
1070 	fs_err(sdp, "original: %pSR\n", (void *)gh2->gh_ip);
1071 	fs_err(sdp, "pid: %d\n", pid_nr(gh2->gh_owner_pid));
1072 	fs_err(sdp, "lock type: %d req lock state : %d\n",
1073 	       gh2->gh_gl->gl_name.ln_type, gh2->gh_state);
1074 	fs_err(sdp, "new: %pSR\n", (void *)gh->gh_ip);
1075 	fs_err(sdp, "pid: %d\n", pid_nr(gh->gh_owner_pid));
1076 	fs_err(sdp, "lock type: %d req lock state : %d\n",
1077 	       gh->gh_gl->gl_name.ln_type, gh->gh_state);
1078 	gfs2_dump_glock(NULL, gl);
1079 	BUG();
1080 }
1081 
1082 /**
1083  * gfs2_glock_nq - enqueue a struct gfs2_holder onto a glock (acquire a glock)
1084  * @gh: the holder structure
1085  *
1086  * if (gh->gh_flags & GL_ASYNC), this never returns an error
1087  *
1088  * Returns: 0, GLR_TRYFAILED, or errno on failure
1089  */
1090 
1091 int gfs2_glock_nq(struct gfs2_holder *gh)
1092 {
1093 	struct gfs2_glock *gl = gh->gh_gl;
1094 	struct gfs2_sbd *sdp = gl->gl_name.ln_sbd;
1095 	int error = 0;
1096 
1097 	if (unlikely(test_bit(SDF_SHUTDOWN, &sdp->sd_flags)))
1098 		return -EIO;
1099 
1100 	if (test_bit(GLF_LRU, &gl->gl_flags))
1101 		gfs2_glock_remove_from_lru(gl);
1102 
1103 	spin_lock(&gl->gl_lockref.lock);
1104 	add_to_queue(gh);
1105 	if (unlikely((LM_FLAG_NOEXP & gh->gh_flags) &&
1106 		     test_and_clear_bit(GLF_FROZEN, &gl->gl_flags))) {
1107 		set_bit(GLF_REPLY_PENDING, &gl->gl_flags);
1108 		gl->gl_lockref.count++;
1109 		__gfs2_glock_queue_work(gl, 0);
1110 	}
1111 	run_queue(gl, 1);
1112 	spin_unlock(&gl->gl_lockref.lock);
1113 
1114 	if (!(gh->gh_flags & GL_ASYNC))
1115 		error = gfs2_glock_wait(gh);
1116 
1117 	return error;
1118 }
1119 
1120 /**
1121  * gfs2_glock_poll - poll to see if an async request has been completed
1122  * @gh: the holder
1123  *
1124  * Returns: 1 if the request is ready to be gfs2_glock_wait()ed on
1125  */
1126 
1127 int gfs2_glock_poll(struct gfs2_holder *gh)
1128 {
1129 	return test_bit(HIF_WAIT, &gh->gh_iflags) ? 0 : 1;
1130 }
1131 
1132 /**
1133  * gfs2_glock_dq - dequeue a struct gfs2_holder from a glock (release a glock)
1134  * @gh: the glock holder
1135  *
1136  */
1137 
1138 void gfs2_glock_dq(struct gfs2_holder *gh)
1139 {
1140 	struct gfs2_glock *gl = gh->gh_gl;
1141 	const struct gfs2_glock_operations *glops = gl->gl_ops;
1142 	unsigned delay = 0;
1143 	int fast_path = 0;
1144 
1145 	spin_lock(&gl->gl_lockref.lock);
1146 	if (gh->gh_flags & GL_NOCACHE)
1147 		handle_callback(gl, LM_ST_UNLOCKED, 0, false);
1148 
1149 	list_del_init(&gh->gh_list);
1150 	clear_bit(HIF_HOLDER, &gh->gh_iflags);
1151 	if (find_first_holder(gl) == NULL) {
1152 		if (glops->go_unlock) {
1153 			GLOCK_BUG_ON(gl, test_and_set_bit(GLF_LOCK, &gl->gl_flags));
1154 			spin_unlock(&gl->gl_lockref.lock);
1155 			glops->go_unlock(gh);
1156 			spin_lock(&gl->gl_lockref.lock);
1157 			clear_bit(GLF_LOCK, &gl->gl_flags);
1158 		}
1159 		if (list_empty(&gl->gl_holders) &&
1160 		    !test_bit(GLF_PENDING_DEMOTE, &gl->gl_flags) &&
1161 		    !test_bit(GLF_DEMOTE, &gl->gl_flags))
1162 			fast_path = 1;
1163 	}
1164 	if (!test_bit(GLF_LFLUSH, &gl->gl_flags) && demote_ok(gl))
1165 		gfs2_glock_add_to_lru(gl);
1166 
1167 	trace_gfs2_glock_queue(gh, 0);
1168 	if (unlikely(!fast_path)) {
1169 		gl->gl_lockref.count++;
1170 		if (test_bit(GLF_PENDING_DEMOTE, &gl->gl_flags) &&
1171 		    !test_bit(GLF_DEMOTE, &gl->gl_flags) &&
1172 		    gl->gl_name.ln_type == LM_TYPE_INODE)
1173 			delay = gl->gl_hold_time;
1174 		__gfs2_glock_queue_work(gl, delay);
1175 	}
1176 	spin_unlock(&gl->gl_lockref.lock);
1177 }
1178 
1179 void gfs2_glock_dq_wait(struct gfs2_holder *gh)
1180 {
1181 	struct gfs2_glock *gl = gh->gh_gl;
1182 	gfs2_glock_dq(gh);
1183 	might_sleep();
1184 	wait_on_bit(&gl->gl_flags, GLF_DEMOTE, TASK_UNINTERRUPTIBLE);
1185 }
1186 
1187 /**
1188  * gfs2_glock_dq_uninit - dequeue a holder from a glock and initialize it
1189  * @gh: the holder structure
1190  *
1191  */
1192 
1193 void gfs2_glock_dq_uninit(struct gfs2_holder *gh)
1194 {
1195 	gfs2_glock_dq(gh);
1196 	gfs2_holder_uninit(gh);
1197 }
1198 
1199 /**
1200  * gfs2_glock_nq_num - acquire a glock based on lock number
1201  * @sdp: the filesystem
1202  * @number: the lock number
1203  * @glops: the glock operations for the type of glock
1204  * @state: the state to acquire the glock in
1205  * @flags: modifier flags for the acquisition
1206  * @gh: the struct gfs2_holder
1207  *
1208  * Returns: errno
1209  */
1210 
1211 int gfs2_glock_nq_num(struct gfs2_sbd *sdp, u64 number,
1212 		      const struct gfs2_glock_operations *glops,
1213 		      unsigned int state, u16 flags, struct gfs2_holder *gh)
1214 {
1215 	struct gfs2_glock *gl;
1216 	int error;
1217 
1218 	error = gfs2_glock_get(sdp, number, glops, CREATE, &gl);
1219 	if (!error) {
1220 		error = gfs2_glock_nq_init(gl, state, flags, gh);
1221 		gfs2_glock_put(gl);
1222 	}
1223 
1224 	return error;
1225 }
1226 
1227 /**
1228  * glock_compare - Compare two struct gfs2_glock structures for sorting
1229  * @arg_a: the first structure
1230  * @arg_b: the second structure
1231  *
1232  */
1233 
1234 static int glock_compare(const void *arg_a, const void *arg_b)
1235 {
1236 	const struct gfs2_holder *gh_a = *(const struct gfs2_holder **)arg_a;
1237 	const struct gfs2_holder *gh_b = *(const struct gfs2_holder **)arg_b;
1238 	const struct lm_lockname *a = &gh_a->gh_gl->gl_name;
1239 	const struct lm_lockname *b = &gh_b->gh_gl->gl_name;
1240 
1241 	if (a->ln_number > b->ln_number)
1242 		return 1;
1243 	if (a->ln_number < b->ln_number)
1244 		return -1;
1245 	BUG_ON(gh_a->gh_gl->gl_ops->go_type == gh_b->gh_gl->gl_ops->go_type);
1246 	return 0;
1247 }
1248 
1249 /**
1250  * nq_m_sync - synchonously acquire more than one glock in deadlock free order
1251  * @num_gh: the number of structures
1252  * @ghs: an array of struct gfs2_holder structures
1253  *
1254  * Returns: 0 on success (all glocks acquired),
1255  *          errno on failure (no glocks acquired)
1256  */
1257 
1258 static int nq_m_sync(unsigned int num_gh, struct gfs2_holder *ghs,
1259 		     struct gfs2_holder **p)
1260 {
1261 	unsigned int x;
1262 	int error = 0;
1263 
1264 	for (x = 0; x < num_gh; x++)
1265 		p[x] = &ghs[x];
1266 
1267 	sort(p, num_gh, sizeof(struct gfs2_holder *), glock_compare, NULL);
1268 
1269 	for (x = 0; x < num_gh; x++) {
1270 		p[x]->gh_flags &= ~(LM_FLAG_TRY | GL_ASYNC);
1271 
1272 		error = gfs2_glock_nq(p[x]);
1273 		if (error) {
1274 			while (x--)
1275 				gfs2_glock_dq(p[x]);
1276 			break;
1277 		}
1278 	}
1279 
1280 	return error;
1281 }
1282 
1283 /**
1284  * gfs2_glock_nq_m - acquire multiple glocks
1285  * @num_gh: the number of structures
1286  * @ghs: an array of struct gfs2_holder structures
1287  *
1288  *
1289  * Returns: 0 on success (all glocks acquired),
1290  *          errno on failure (no glocks acquired)
1291  */
1292 
1293 int gfs2_glock_nq_m(unsigned int num_gh, struct gfs2_holder *ghs)
1294 {
1295 	struct gfs2_holder *tmp[4];
1296 	struct gfs2_holder **pph = tmp;
1297 	int error = 0;
1298 
1299 	switch(num_gh) {
1300 	case 0:
1301 		return 0;
1302 	case 1:
1303 		ghs->gh_flags &= ~(LM_FLAG_TRY | GL_ASYNC);
1304 		return gfs2_glock_nq(ghs);
1305 	default:
1306 		if (num_gh <= 4)
1307 			break;
1308 		pph = kmalloc_array(num_gh, sizeof(struct gfs2_holder *),
1309 				    GFP_NOFS);
1310 		if (!pph)
1311 			return -ENOMEM;
1312 	}
1313 
1314 	error = nq_m_sync(num_gh, ghs, pph);
1315 
1316 	if (pph != tmp)
1317 		kfree(pph);
1318 
1319 	return error;
1320 }
1321 
1322 /**
1323  * gfs2_glock_dq_m - release multiple glocks
1324  * @num_gh: the number of structures
1325  * @ghs: an array of struct gfs2_holder structures
1326  *
1327  */
1328 
1329 void gfs2_glock_dq_m(unsigned int num_gh, struct gfs2_holder *ghs)
1330 {
1331 	while (num_gh--)
1332 		gfs2_glock_dq(&ghs[num_gh]);
1333 }
1334 
1335 void gfs2_glock_cb(struct gfs2_glock *gl, unsigned int state)
1336 {
1337 	unsigned long delay = 0;
1338 	unsigned long holdtime;
1339 	unsigned long now = jiffies;
1340 
1341 	gfs2_glock_hold(gl);
1342 	holdtime = gl->gl_tchange + gl->gl_hold_time;
1343 	if (test_bit(GLF_QUEUED, &gl->gl_flags) &&
1344 	    gl->gl_name.ln_type == LM_TYPE_INODE) {
1345 		if (time_before(now, holdtime))
1346 			delay = holdtime - now;
1347 		if (test_bit(GLF_REPLY_PENDING, &gl->gl_flags))
1348 			delay = gl->gl_hold_time;
1349 	}
1350 
1351 	spin_lock(&gl->gl_lockref.lock);
1352 	handle_callback(gl, state, delay, true);
1353 	__gfs2_glock_queue_work(gl, delay);
1354 	spin_unlock(&gl->gl_lockref.lock);
1355 }
1356 
1357 /**
1358  * gfs2_should_freeze - Figure out if glock should be frozen
1359  * @gl: The glock in question
1360  *
1361  * Glocks are not frozen if (a) the result of the dlm operation is
1362  * an error, (b) the locking operation was an unlock operation or
1363  * (c) if there is a "noexp" flagged request anywhere in the queue
1364  *
1365  * Returns: 1 if freezing should occur, 0 otherwise
1366  */
1367 
1368 static int gfs2_should_freeze(const struct gfs2_glock *gl)
1369 {
1370 	const struct gfs2_holder *gh;
1371 
1372 	if (gl->gl_reply & ~LM_OUT_ST_MASK)
1373 		return 0;
1374 	if (gl->gl_target == LM_ST_UNLOCKED)
1375 		return 0;
1376 
1377 	list_for_each_entry(gh, &gl->gl_holders, gh_list) {
1378 		if (test_bit(HIF_HOLDER, &gh->gh_iflags))
1379 			continue;
1380 		if (LM_FLAG_NOEXP & gh->gh_flags)
1381 			return 0;
1382 	}
1383 
1384 	return 1;
1385 }
1386 
1387 /**
1388  * gfs2_glock_complete - Callback used by locking
1389  * @gl: Pointer to the glock
1390  * @ret: The return value from the dlm
1391  *
1392  * The gl_reply field is under the gl_lockref.lock lock so that it is ok
1393  * to use a bitfield shared with other glock state fields.
1394  */
1395 
1396 void gfs2_glock_complete(struct gfs2_glock *gl, int ret)
1397 {
1398 	struct lm_lockstruct *ls = &gl->gl_name.ln_sbd->sd_lockstruct;
1399 
1400 	spin_lock(&gl->gl_lockref.lock);
1401 	gl->gl_reply = ret;
1402 
1403 	if (unlikely(test_bit(DFL_BLOCK_LOCKS, &ls->ls_recover_flags))) {
1404 		if (gfs2_should_freeze(gl)) {
1405 			set_bit(GLF_FROZEN, &gl->gl_flags);
1406 			spin_unlock(&gl->gl_lockref.lock);
1407 			return;
1408 		}
1409 	}
1410 
1411 	gl->gl_lockref.count++;
1412 	set_bit(GLF_REPLY_PENDING, &gl->gl_flags);
1413 	__gfs2_glock_queue_work(gl, 0);
1414 	spin_unlock(&gl->gl_lockref.lock);
1415 }
1416 
1417 static int glock_cmp(void *priv, struct list_head *a, struct list_head *b)
1418 {
1419 	struct gfs2_glock *gla, *glb;
1420 
1421 	gla = list_entry(a, struct gfs2_glock, gl_lru);
1422 	glb = list_entry(b, struct gfs2_glock, gl_lru);
1423 
1424 	if (gla->gl_name.ln_number > glb->gl_name.ln_number)
1425 		return 1;
1426 	if (gla->gl_name.ln_number < glb->gl_name.ln_number)
1427 		return -1;
1428 
1429 	return 0;
1430 }
1431 
1432 /**
1433  * gfs2_dispose_glock_lru - Demote a list of glocks
1434  * @list: The list to dispose of
1435  *
1436  * Disposing of glocks may involve disk accesses, so that here we sort
1437  * the glocks by number (i.e. disk location of the inodes) so that if
1438  * there are any such accesses, they'll be sent in order (mostly).
1439  *
1440  * Must be called under the lru_lock, but may drop and retake this
1441  * lock. While the lru_lock is dropped, entries may vanish from the
1442  * list, but no new entries will appear on the list (since it is
1443  * private)
1444  */
1445 
1446 static void gfs2_dispose_glock_lru(struct list_head *list)
1447 __releases(&lru_lock)
1448 __acquires(&lru_lock)
1449 {
1450 	struct gfs2_glock *gl;
1451 
1452 	list_sort(NULL, list, glock_cmp);
1453 
1454 	while(!list_empty(list)) {
1455 		gl = list_entry(list->next, struct gfs2_glock, gl_lru);
1456 		list_del_init(&gl->gl_lru);
1457 		if (!spin_trylock(&gl->gl_lockref.lock)) {
1458 add_back_to_lru:
1459 			list_add(&gl->gl_lru, &lru_list);
1460 			set_bit(GLF_LRU, &gl->gl_flags);
1461 			atomic_inc(&lru_count);
1462 			continue;
1463 		}
1464 		if (test_and_set_bit(GLF_LOCK, &gl->gl_flags)) {
1465 			spin_unlock(&gl->gl_lockref.lock);
1466 			goto add_back_to_lru;
1467 		}
1468 		gl->gl_lockref.count++;
1469 		if (demote_ok(gl))
1470 			handle_callback(gl, LM_ST_UNLOCKED, 0, false);
1471 		WARN_ON(!test_and_clear_bit(GLF_LOCK, &gl->gl_flags));
1472 		__gfs2_glock_queue_work(gl, 0);
1473 		spin_unlock(&gl->gl_lockref.lock);
1474 		cond_resched_lock(&lru_lock);
1475 	}
1476 }
1477 
1478 /**
1479  * gfs2_scan_glock_lru - Scan the LRU looking for locks to demote
1480  * @nr: The number of entries to scan
1481  *
1482  * This function selects the entries on the LRU which are able to
1483  * be demoted, and then kicks off the process by calling
1484  * gfs2_dispose_glock_lru() above.
1485  */
1486 
1487 static long gfs2_scan_glock_lru(int nr)
1488 {
1489 	struct gfs2_glock *gl;
1490 	LIST_HEAD(skipped);
1491 	LIST_HEAD(dispose);
1492 	long freed = 0;
1493 
1494 	spin_lock(&lru_lock);
1495 	while ((nr-- >= 0) && !list_empty(&lru_list)) {
1496 		gl = list_entry(lru_list.next, struct gfs2_glock, gl_lru);
1497 
1498 		/* Test for being demotable */
1499 		if (!test_bit(GLF_LOCK, &gl->gl_flags)) {
1500 			list_move(&gl->gl_lru, &dispose);
1501 			atomic_dec(&lru_count);
1502 			clear_bit(GLF_LRU, &gl->gl_flags);
1503 			freed++;
1504 			continue;
1505 		}
1506 
1507 		list_move(&gl->gl_lru, &skipped);
1508 	}
1509 	list_splice(&skipped, &lru_list);
1510 	if (!list_empty(&dispose))
1511 		gfs2_dispose_glock_lru(&dispose);
1512 	spin_unlock(&lru_lock);
1513 
1514 	return freed;
1515 }
1516 
1517 static unsigned long gfs2_glock_shrink_scan(struct shrinker *shrink,
1518 					    struct shrink_control *sc)
1519 {
1520 	if (!(sc->gfp_mask & __GFP_FS))
1521 		return SHRINK_STOP;
1522 	return gfs2_scan_glock_lru(sc->nr_to_scan);
1523 }
1524 
1525 static unsigned long gfs2_glock_shrink_count(struct shrinker *shrink,
1526 					     struct shrink_control *sc)
1527 {
1528 	return vfs_pressure_ratio(atomic_read(&lru_count));
1529 }
1530 
1531 static struct shrinker glock_shrinker = {
1532 	.seeks = DEFAULT_SEEKS,
1533 	.count_objects = gfs2_glock_shrink_count,
1534 	.scan_objects = gfs2_glock_shrink_scan,
1535 };
1536 
1537 /**
1538  * examine_bucket - Call a function for glock in a hash bucket
1539  * @examiner: the function
1540  * @sdp: the filesystem
1541  * @bucket: the bucket
1542  *
1543  * Note that the function can be called multiple times on the same
1544  * object.  So the user must ensure that the function can cope with
1545  * that.
1546  */
1547 
1548 static void glock_hash_walk(glock_examiner examiner, const struct gfs2_sbd *sdp)
1549 {
1550 	struct gfs2_glock *gl;
1551 	struct rhashtable_iter iter;
1552 
1553 	rhashtable_walk_enter(&gl_hash_table, &iter);
1554 
1555 	do {
1556 		rhashtable_walk_start(&iter);
1557 
1558 		while ((gl = rhashtable_walk_next(&iter)) && !IS_ERR(gl))
1559 			if (gl->gl_name.ln_sbd == sdp &&
1560 			    lockref_get_not_dead(&gl->gl_lockref))
1561 				examiner(gl);
1562 
1563 		rhashtable_walk_stop(&iter);
1564 	} while (cond_resched(), gl == ERR_PTR(-EAGAIN));
1565 
1566 	rhashtable_walk_exit(&iter);
1567 }
1568 
1569 /**
1570  * thaw_glock - thaw out a glock which has an unprocessed reply waiting
1571  * @gl: The glock to thaw
1572  *
1573  */
1574 
1575 static void thaw_glock(struct gfs2_glock *gl)
1576 {
1577 	if (!test_and_clear_bit(GLF_FROZEN, &gl->gl_flags)) {
1578 		gfs2_glock_put(gl);
1579 		return;
1580 	}
1581 	set_bit(GLF_REPLY_PENDING, &gl->gl_flags);
1582 	gfs2_glock_queue_work(gl, 0);
1583 }
1584 
1585 /**
1586  * clear_glock - look at a glock and see if we can free it from glock cache
1587  * @gl: the glock to look at
1588  *
1589  */
1590 
1591 static void clear_glock(struct gfs2_glock *gl)
1592 {
1593 	gfs2_glock_remove_from_lru(gl);
1594 
1595 	spin_lock(&gl->gl_lockref.lock);
1596 	if (gl->gl_state != LM_ST_UNLOCKED)
1597 		handle_callback(gl, LM_ST_UNLOCKED, 0, false);
1598 	__gfs2_glock_queue_work(gl, 0);
1599 	spin_unlock(&gl->gl_lockref.lock);
1600 }
1601 
1602 /**
1603  * gfs2_glock_thaw - Thaw any frozen glocks
1604  * @sdp: The super block
1605  *
1606  */
1607 
1608 void gfs2_glock_thaw(struct gfs2_sbd *sdp)
1609 {
1610 	glock_hash_walk(thaw_glock, sdp);
1611 }
1612 
1613 static void dump_glock(struct seq_file *seq, struct gfs2_glock *gl)
1614 {
1615 	spin_lock(&gl->gl_lockref.lock);
1616 	gfs2_dump_glock(seq, gl);
1617 	spin_unlock(&gl->gl_lockref.lock);
1618 }
1619 
1620 static void dump_glock_func(struct gfs2_glock *gl)
1621 {
1622 	dump_glock(NULL, gl);
1623 }
1624 
1625 /**
1626  * gfs2_gl_hash_clear - Empty out the glock hash table
1627  * @sdp: the filesystem
1628  * @wait: wait until it's all gone
1629  *
1630  * Called when unmounting the filesystem.
1631  */
1632 
1633 void gfs2_gl_hash_clear(struct gfs2_sbd *sdp)
1634 {
1635 	set_bit(SDF_SKIP_DLM_UNLOCK, &sdp->sd_flags);
1636 	flush_workqueue(glock_workqueue);
1637 	glock_hash_walk(clear_glock, sdp);
1638 	flush_workqueue(glock_workqueue);
1639 	wait_event_timeout(sdp->sd_glock_wait,
1640 			   atomic_read(&sdp->sd_glock_disposal) == 0,
1641 			   HZ * 600);
1642 	glock_hash_walk(dump_glock_func, sdp);
1643 }
1644 
1645 void gfs2_glock_finish_truncate(struct gfs2_inode *ip)
1646 {
1647 	struct gfs2_glock *gl = ip->i_gl;
1648 	int ret;
1649 
1650 	ret = gfs2_truncatei_resume(ip);
1651 	gfs2_assert_withdraw(gl->gl_name.ln_sbd, ret == 0);
1652 
1653 	spin_lock(&gl->gl_lockref.lock);
1654 	clear_bit(GLF_LOCK, &gl->gl_flags);
1655 	run_queue(gl, 1);
1656 	spin_unlock(&gl->gl_lockref.lock);
1657 }
1658 
1659 static const char *state2str(unsigned state)
1660 {
1661 	switch(state) {
1662 	case LM_ST_UNLOCKED:
1663 		return "UN";
1664 	case LM_ST_SHARED:
1665 		return "SH";
1666 	case LM_ST_DEFERRED:
1667 		return "DF";
1668 	case LM_ST_EXCLUSIVE:
1669 		return "EX";
1670 	}
1671 	return "??";
1672 }
1673 
1674 static const char *hflags2str(char *buf, u16 flags, unsigned long iflags)
1675 {
1676 	char *p = buf;
1677 	if (flags & LM_FLAG_TRY)
1678 		*p++ = 't';
1679 	if (flags & LM_FLAG_TRY_1CB)
1680 		*p++ = 'T';
1681 	if (flags & LM_FLAG_NOEXP)
1682 		*p++ = 'e';
1683 	if (flags & LM_FLAG_ANY)
1684 		*p++ = 'A';
1685 	if (flags & LM_FLAG_PRIORITY)
1686 		*p++ = 'p';
1687 	if (flags & GL_ASYNC)
1688 		*p++ = 'a';
1689 	if (flags & GL_EXACT)
1690 		*p++ = 'E';
1691 	if (flags & GL_NOCACHE)
1692 		*p++ = 'c';
1693 	if (test_bit(HIF_HOLDER, &iflags))
1694 		*p++ = 'H';
1695 	if (test_bit(HIF_WAIT, &iflags))
1696 		*p++ = 'W';
1697 	if (test_bit(HIF_FIRST, &iflags))
1698 		*p++ = 'F';
1699 	*p = 0;
1700 	return buf;
1701 }
1702 
1703 /**
1704  * dump_holder - print information about a glock holder
1705  * @seq: the seq_file struct
1706  * @gh: the glock holder
1707  *
1708  */
1709 
1710 static void dump_holder(struct seq_file *seq, const struct gfs2_holder *gh)
1711 {
1712 	struct task_struct *gh_owner = NULL;
1713 	char flags_buf[32];
1714 
1715 	rcu_read_lock();
1716 	if (gh->gh_owner_pid)
1717 		gh_owner = pid_task(gh->gh_owner_pid, PIDTYPE_PID);
1718 	gfs2_print_dbg(seq, " H: s:%s f:%s e:%d p:%ld [%s] %pS\n",
1719 		       state2str(gh->gh_state),
1720 		       hflags2str(flags_buf, gh->gh_flags, gh->gh_iflags),
1721 		       gh->gh_error,
1722 		       gh->gh_owner_pid ? (long)pid_nr(gh->gh_owner_pid) : -1,
1723 		       gh_owner ? gh_owner->comm : "(ended)",
1724 		       (void *)gh->gh_ip);
1725 	rcu_read_unlock();
1726 }
1727 
1728 static const char *gflags2str(char *buf, const struct gfs2_glock *gl)
1729 {
1730 	const unsigned long *gflags = &gl->gl_flags;
1731 	char *p = buf;
1732 
1733 	if (test_bit(GLF_LOCK, gflags))
1734 		*p++ = 'l';
1735 	if (test_bit(GLF_DEMOTE, gflags))
1736 		*p++ = 'D';
1737 	if (test_bit(GLF_PENDING_DEMOTE, gflags))
1738 		*p++ = 'd';
1739 	if (test_bit(GLF_DEMOTE_IN_PROGRESS, gflags))
1740 		*p++ = 'p';
1741 	if (test_bit(GLF_DIRTY, gflags))
1742 		*p++ = 'y';
1743 	if (test_bit(GLF_LFLUSH, gflags))
1744 		*p++ = 'f';
1745 	if (test_bit(GLF_INVALIDATE_IN_PROGRESS, gflags))
1746 		*p++ = 'i';
1747 	if (test_bit(GLF_REPLY_PENDING, gflags))
1748 		*p++ = 'r';
1749 	if (test_bit(GLF_INITIAL, gflags))
1750 		*p++ = 'I';
1751 	if (test_bit(GLF_FROZEN, gflags))
1752 		*p++ = 'F';
1753 	if (test_bit(GLF_QUEUED, gflags))
1754 		*p++ = 'q';
1755 	if (test_bit(GLF_LRU, gflags))
1756 		*p++ = 'L';
1757 	if (gl->gl_object)
1758 		*p++ = 'o';
1759 	if (test_bit(GLF_BLOCKING, gflags))
1760 		*p++ = 'b';
1761 	*p = 0;
1762 	return buf;
1763 }
1764 
1765 /**
1766  * gfs2_dump_glock - print information about a glock
1767  * @seq: The seq_file struct
1768  * @gl: the glock
1769  *
1770  * The file format is as follows:
1771  * One line per object, capital letters are used to indicate objects
1772  * G = glock, I = Inode, R = rgrp, H = holder. Glocks are not indented,
1773  * other objects are indented by a single space and follow the glock to
1774  * which they are related. Fields are indicated by lower case letters
1775  * followed by a colon and the field value, except for strings which are in
1776  * [] so that its possible to see if they are composed of spaces for
1777  * example. The field's are n = number (id of the object), f = flags,
1778  * t = type, s = state, r = refcount, e = error, p = pid.
1779  *
1780  */
1781 
1782 void gfs2_dump_glock(struct seq_file *seq, struct gfs2_glock *gl)
1783 {
1784 	const struct gfs2_glock_operations *glops = gl->gl_ops;
1785 	unsigned long long dtime;
1786 	const struct gfs2_holder *gh;
1787 	char gflags_buf[32];
1788 
1789 	dtime = jiffies - gl->gl_demote_time;
1790 	dtime *= 1000000/HZ; /* demote time in uSec */
1791 	if (!test_bit(GLF_DEMOTE, &gl->gl_flags))
1792 		dtime = 0;
1793 	gfs2_print_dbg(seq, "G:  s:%s n:%u/%llx f:%s t:%s d:%s/%llu a:%d v:%d r:%d m:%ld\n",
1794 		  state2str(gl->gl_state),
1795 		  gl->gl_name.ln_type,
1796 		  (unsigned long long)gl->gl_name.ln_number,
1797 		  gflags2str(gflags_buf, gl),
1798 		  state2str(gl->gl_target),
1799 		  state2str(gl->gl_demote_state), dtime,
1800 		  atomic_read(&gl->gl_ail_count),
1801 		  atomic_read(&gl->gl_revokes),
1802 		  (int)gl->gl_lockref.count, gl->gl_hold_time);
1803 
1804 	list_for_each_entry(gh, &gl->gl_holders, gh_list)
1805 		dump_holder(seq, gh);
1806 
1807 	if (gl->gl_state != LM_ST_UNLOCKED && glops->go_dump)
1808 		glops->go_dump(seq, gl);
1809 }
1810 
1811 static int gfs2_glstats_seq_show(struct seq_file *seq, void *iter_ptr)
1812 {
1813 	struct gfs2_glock *gl = iter_ptr;
1814 
1815 	seq_printf(seq, "G: n:%u/%llx rtt:%llu/%llu rttb:%llu/%llu irt:%llu/%llu dcnt: %llu qcnt: %llu\n",
1816 		   gl->gl_name.ln_type,
1817 		   (unsigned long long)gl->gl_name.ln_number,
1818 		   (unsigned long long)gl->gl_stats.stats[GFS2_LKS_SRTT],
1819 		   (unsigned long long)gl->gl_stats.stats[GFS2_LKS_SRTTVAR],
1820 		   (unsigned long long)gl->gl_stats.stats[GFS2_LKS_SRTTB],
1821 		   (unsigned long long)gl->gl_stats.stats[GFS2_LKS_SRTTVARB],
1822 		   (unsigned long long)gl->gl_stats.stats[GFS2_LKS_SIRT],
1823 		   (unsigned long long)gl->gl_stats.stats[GFS2_LKS_SIRTVAR],
1824 		   (unsigned long long)gl->gl_stats.stats[GFS2_LKS_DCOUNT],
1825 		   (unsigned long long)gl->gl_stats.stats[GFS2_LKS_QCOUNT]);
1826 	return 0;
1827 }
1828 
1829 static const char *gfs2_gltype[] = {
1830 	"type",
1831 	"reserved",
1832 	"nondisk",
1833 	"inode",
1834 	"rgrp",
1835 	"meta",
1836 	"iopen",
1837 	"flock",
1838 	"plock",
1839 	"quota",
1840 	"journal",
1841 };
1842 
1843 static const char *gfs2_stype[] = {
1844 	[GFS2_LKS_SRTT]		= "srtt",
1845 	[GFS2_LKS_SRTTVAR]	= "srttvar",
1846 	[GFS2_LKS_SRTTB]	= "srttb",
1847 	[GFS2_LKS_SRTTVARB]	= "srttvarb",
1848 	[GFS2_LKS_SIRT]		= "sirt",
1849 	[GFS2_LKS_SIRTVAR]	= "sirtvar",
1850 	[GFS2_LKS_DCOUNT]	= "dlm",
1851 	[GFS2_LKS_QCOUNT]	= "queue",
1852 };
1853 
1854 #define GFS2_NR_SBSTATS (ARRAY_SIZE(gfs2_gltype) * ARRAY_SIZE(gfs2_stype))
1855 
1856 static int gfs2_sbstats_seq_show(struct seq_file *seq, void *iter_ptr)
1857 {
1858 	struct gfs2_sbd *sdp = seq->private;
1859 	loff_t pos = *(loff_t *)iter_ptr;
1860 	unsigned index = pos >> 3;
1861 	unsigned subindex = pos & 0x07;
1862 	int i;
1863 
1864 	if (index == 0 && subindex != 0)
1865 		return 0;
1866 
1867 	seq_printf(seq, "%-10s %8s:", gfs2_gltype[index],
1868 		   (index == 0) ? "cpu": gfs2_stype[subindex]);
1869 
1870 	for_each_possible_cpu(i) {
1871                 const struct gfs2_pcpu_lkstats *lkstats = per_cpu_ptr(sdp->sd_lkstats, i);
1872 
1873 		if (index == 0)
1874 			seq_printf(seq, " %15u", i);
1875 		else
1876 			seq_printf(seq, " %15llu", (unsigned long long)lkstats->
1877 				   lkstats[index - 1].stats[subindex]);
1878 	}
1879 	seq_putc(seq, '\n');
1880 	return 0;
1881 }
1882 
1883 int __init gfs2_glock_init(void)
1884 {
1885 	int i, ret;
1886 
1887 	ret = rhashtable_init(&gl_hash_table, &ht_parms);
1888 	if (ret < 0)
1889 		return ret;
1890 
1891 	glock_workqueue = alloc_workqueue("glock_workqueue", WQ_MEM_RECLAIM |
1892 					  WQ_HIGHPRI | WQ_FREEZABLE, 0);
1893 	if (!glock_workqueue) {
1894 		rhashtable_destroy(&gl_hash_table);
1895 		return -ENOMEM;
1896 	}
1897 	gfs2_delete_workqueue = alloc_workqueue("delete_workqueue",
1898 						WQ_MEM_RECLAIM | WQ_FREEZABLE,
1899 						0);
1900 	if (!gfs2_delete_workqueue) {
1901 		destroy_workqueue(glock_workqueue);
1902 		rhashtable_destroy(&gl_hash_table);
1903 		return -ENOMEM;
1904 	}
1905 
1906 	ret = register_shrinker(&glock_shrinker);
1907 	if (ret) {
1908 		destroy_workqueue(gfs2_delete_workqueue);
1909 		destroy_workqueue(glock_workqueue);
1910 		rhashtable_destroy(&gl_hash_table);
1911 		return ret;
1912 	}
1913 
1914 	for (i = 0; i < GLOCK_WAIT_TABLE_SIZE; i++)
1915 		init_waitqueue_head(glock_wait_table + i);
1916 
1917 	return 0;
1918 }
1919 
1920 void gfs2_glock_exit(void)
1921 {
1922 	unregister_shrinker(&glock_shrinker);
1923 	rhashtable_destroy(&gl_hash_table);
1924 	destroy_workqueue(glock_workqueue);
1925 	destroy_workqueue(gfs2_delete_workqueue);
1926 }
1927 
1928 static void gfs2_glock_iter_next(struct gfs2_glock_iter *gi, loff_t n)
1929 {
1930 	struct gfs2_glock *gl = gi->gl;
1931 
1932 	if (gl) {
1933 		if (n == 0)
1934 			return;
1935 		if (!lockref_put_not_zero(&gl->gl_lockref))
1936 			gfs2_glock_queue_put(gl);
1937 	}
1938 	for (;;) {
1939 		gl = rhashtable_walk_next(&gi->hti);
1940 		if (IS_ERR_OR_NULL(gl)) {
1941 			if (gl == ERR_PTR(-EAGAIN)) {
1942 				n = 1;
1943 				continue;
1944 			}
1945 			gl = NULL;
1946 			break;
1947 		}
1948 		if (gl->gl_name.ln_sbd != gi->sdp)
1949 			continue;
1950 		if (n <= 1) {
1951 			if (!lockref_get_not_dead(&gl->gl_lockref))
1952 				continue;
1953 			break;
1954 		} else {
1955 			if (__lockref_is_dead(&gl->gl_lockref))
1956 				continue;
1957 			n--;
1958 		}
1959 	}
1960 	gi->gl = gl;
1961 }
1962 
1963 static void *gfs2_glock_seq_start(struct seq_file *seq, loff_t *pos)
1964 	__acquires(RCU)
1965 {
1966 	struct gfs2_glock_iter *gi = seq->private;
1967 	loff_t n;
1968 
1969 	/*
1970 	 * We can either stay where we are, skip to the next hash table
1971 	 * entry, or start from the beginning.
1972 	 */
1973 	if (*pos < gi->last_pos) {
1974 		rhashtable_walk_exit(&gi->hti);
1975 		rhashtable_walk_enter(&gl_hash_table, &gi->hti);
1976 		n = *pos + 1;
1977 	} else {
1978 		n = *pos - gi->last_pos;
1979 	}
1980 
1981 	rhashtable_walk_start(&gi->hti);
1982 
1983 	gfs2_glock_iter_next(gi, n);
1984 	gi->last_pos = *pos;
1985 	return gi->gl;
1986 }
1987 
1988 static void *gfs2_glock_seq_next(struct seq_file *seq, void *iter_ptr,
1989 				 loff_t *pos)
1990 {
1991 	struct gfs2_glock_iter *gi = seq->private;
1992 
1993 	(*pos)++;
1994 	gi->last_pos = *pos;
1995 	gfs2_glock_iter_next(gi, 1);
1996 	return gi->gl;
1997 }
1998 
1999 static void gfs2_glock_seq_stop(struct seq_file *seq, void *iter_ptr)
2000 	__releases(RCU)
2001 {
2002 	struct gfs2_glock_iter *gi = seq->private;
2003 
2004 	rhashtable_walk_stop(&gi->hti);
2005 }
2006 
2007 static int gfs2_glock_seq_show(struct seq_file *seq, void *iter_ptr)
2008 {
2009 	dump_glock(seq, iter_ptr);
2010 	return 0;
2011 }
2012 
2013 static void *gfs2_sbstats_seq_start(struct seq_file *seq, loff_t *pos)
2014 {
2015 	preempt_disable();
2016 	if (*pos >= GFS2_NR_SBSTATS)
2017 		return NULL;
2018 	return pos;
2019 }
2020 
2021 static void *gfs2_sbstats_seq_next(struct seq_file *seq, void *iter_ptr,
2022 				   loff_t *pos)
2023 {
2024 	(*pos)++;
2025 	if (*pos >= GFS2_NR_SBSTATS)
2026 		return NULL;
2027 	return pos;
2028 }
2029 
2030 static void gfs2_sbstats_seq_stop(struct seq_file *seq, void *iter_ptr)
2031 {
2032 	preempt_enable();
2033 }
2034 
2035 static const struct seq_operations gfs2_glock_seq_ops = {
2036 	.start = gfs2_glock_seq_start,
2037 	.next  = gfs2_glock_seq_next,
2038 	.stop  = gfs2_glock_seq_stop,
2039 	.show  = gfs2_glock_seq_show,
2040 };
2041 
2042 static const struct seq_operations gfs2_glstats_seq_ops = {
2043 	.start = gfs2_glock_seq_start,
2044 	.next  = gfs2_glock_seq_next,
2045 	.stop  = gfs2_glock_seq_stop,
2046 	.show  = gfs2_glstats_seq_show,
2047 };
2048 
2049 static const struct seq_operations gfs2_sbstats_seq_ops = {
2050 	.start = gfs2_sbstats_seq_start,
2051 	.next  = gfs2_sbstats_seq_next,
2052 	.stop  = gfs2_sbstats_seq_stop,
2053 	.show  = gfs2_sbstats_seq_show,
2054 };
2055 
2056 #define GFS2_SEQ_GOODSIZE min(PAGE_SIZE << PAGE_ALLOC_COSTLY_ORDER, 65536UL)
2057 
2058 static int __gfs2_glocks_open(struct inode *inode, struct file *file,
2059 			      const struct seq_operations *ops)
2060 {
2061 	int ret = seq_open_private(file, ops, sizeof(struct gfs2_glock_iter));
2062 	if (ret == 0) {
2063 		struct seq_file *seq = file->private_data;
2064 		struct gfs2_glock_iter *gi = seq->private;
2065 
2066 		gi->sdp = inode->i_private;
2067 		seq->buf = kmalloc(GFS2_SEQ_GOODSIZE, GFP_KERNEL | __GFP_NOWARN);
2068 		if (seq->buf)
2069 			seq->size = GFS2_SEQ_GOODSIZE;
2070 		/*
2071 		 * Initially, we are "before" the first hash table entry; the
2072 		 * first call to rhashtable_walk_next gets us the first entry.
2073 		 */
2074 		gi->last_pos = -1;
2075 		gi->gl = NULL;
2076 		rhashtable_walk_enter(&gl_hash_table, &gi->hti);
2077 	}
2078 	return ret;
2079 }
2080 
2081 static int gfs2_glocks_open(struct inode *inode, struct file *file)
2082 {
2083 	return __gfs2_glocks_open(inode, file, &gfs2_glock_seq_ops);
2084 }
2085 
2086 static int gfs2_glocks_release(struct inode *inode, struct file *file)
2087 {
2088 	struct seq_file *seq = file->private_data;
2089 	struct gfs2_glock_iter *gi = seq->private;
2090 
2091 	if (gi->gl)
2092 		gfs2_glock_put(gi->gl);
2093 	rhashtable_walk_exit(&gi->hti);
2094 	return seq_release_private(inode, file);
2095 }
2096 
2097 static int gfs2_glstats_open(struct inode *inode, struct file *file)
2098 {
2099 	return __gfs2_glocks_open(inode, file, &gfs2_glstats_seq_ops);
2100 }
2101 
2102 static int gfs2_sbstats_open(struct inode *inode, struct file *file)
2103 {
2104 	int ret = seq_open(file, &gfs2_sbstats_seq_ops);
2105 	if (ret == 0) {
2106 		struct seq_file *seq = file->private_data;
2107 		seq->private = inode->i_private;  /* sdp */
2108 	}
2109 	return ret;
2110 }
2111 
2112 static const struct file_operations gfs2_glocks_fops = {
2113 	.owner   = THIS_MODULE,
2114 	.open    = gfs2_glocks_open,
2115 	.read    = seq_read,
2116 	.llseek  = seq_lseek,
2117 	.release = gfs2_glocks_release,
2118 };
2119 
2120 static const struct file_operations gfs2_glstats_fops = {
2121 	.owner   = THIS_MODULE,
2122 	.open    = gfs2_glstats_open,
2123 	.read    = seq_read,
2124 	.llseek  = seq_lseek,
2125 	.release = gfs2_glocks_release,
2126 };
2127 
2128 static const struct file_operations gfs2_sbstats_fops = {
2129 	.owner   = THIS_MODULE,
2130 	.open	 = gfs2_sbstats_open,
2131 	.read    = seq_read,
2132 	.llseek  = seq_lseek,
2133 	.release = seq_release,
2134 };
2135 
2136 void gfs2_create_debugfs_file(struct gfs2_sbd *sdp)
2137 {
2138 	sdp->debugfs_dir = debugfs_create_dir(sdp->sd_table_name, gfs2_root);
2139 
2140 	debugfs_create_file("glocks", S_IFREG | S_IRUGO, sdp->debugfs_dir, sdp,
2141 			    &gfs2_glocks_fops);
2142 
2143 	debugfs_create_file("glstats", S_IFREG | S_IRUGO, sdp->debugfs_dir, sdp,
2144 			    &gfs2_glstats_fops);
2145 
2146 	debugfs_create_file("sbstats", S_IFREG | S_IRUGO, sdp->debugfs_dir, sdp,
2147 			    &gfs2_sbstats_fops);
2148 }
2149 
2150 void gfs2_delete_debugfs_file(struct gfs2_sbd *sdp)
2151 {
2152 	debugfs_remove_recursive(sdp->debugfs_dir);
2153 	sdp->debugfs_dir = NULL;
2154 }
2155 
2156 void gfs2_register_debugfs(void)
2157 {
2158 	gfs2_root = debugfs_create_dir("gfs2", NULL);
2159 }
2160 
2161 void gfs2_unregister_debugfs(void)
2162 {
2163 	debugfs_remove(gfs2_root);
2164 	gfs2_root = NULL;
2165 }
2166