X-Git-Url: https://git.whamcloud.com/?p=fs%2Flustre-release.git;a=blobdiff_plain;f=lustre%2Fldlm%2Fldlm_lockd.c;h=08b2eadfb790f93dc321cf977ebaed8f94308240;hp=43d23fb3c047a6a62443a4f70eaf10a9dbdd3d2d;hb=ec295cad998d4d5e7fc915491da5ac646dbc6af6;hpb=50da882f7f23bf6f6c43356074acf54d7b430020 diff --git a/lustre/ldlm/ldlm_lockd.c b/lustre/ldlm/ldlm_lockd.c index 43d23fb..08b2ead 100644 --- a/lustre/ldlm/ldlm_lockd.c +++ b/lustre/ldlm/ldlm_lockd.c @@ -1,64 +1,276 @@ /* -*- mode: c; c-basic-offset: 8; indent-tabs-mode: nil; -*- * vim:expandtab:shiftwidth=8:tabstop=8: * - * Copyright (C) 2002 Cluster File Systems, Inc. + * Copyright (C) 2002-2004 Cluster File Systems, Inc. * Author: Peter Braam * Author: Phil Schwan * - * This file is part of Lustre, http://www.lustre.org. + * This file is part of the Lustre file system, http://www.lustre.org + * Lustre is a trademark of Cluster File Systems, Inc. * - * Lustre is free software; you can redistribute it and/or - * modify it under the terms of version 2 of the GNU General Public - * License as published by the Free Software Foundation. + * You may have signed or agreed to another license before downloading + * this software. If so, you are bound by the terms and conditions + * of that agreement, and the following does not apply to you. See the + * LICENSE file included with this distribution for more information. * - * Lustre is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. + * If you did not agree to a different license, then this copy of Lustre + * is open source software; you can redistribute it and/or modify it + * under the terms of version 2 of the GNU General Public License as + * published by the Free Software Foundation. * - * You should have received a copy of the GNU General Public License - * along with Lustre; if not, write to the Free Software - * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. + * In either case, Lustre is distributed in the hope that it will be + * useful, but WITHOUT ANY WARRANTY; without even the implied warranty + * of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * license text for more details. */ -#define EXPORT_SYMTAB +#ifndef EXPORT_SYMTAB +# define EXPORT_SYMTAB +#endif #define DEBUG_SUBSYSTEM S_LDLM -#include -#include -#include -#include -#include +#ifdef __KERNEL__ +# include +#else +# include +#endif -extern kmem_cache_t *ldlm_resource_slab; -extern kmem_cache_t *ldlm_lock_slab; -extern struct list_head ldlm_namespace_list; -extern int (*mds_reint_p)(int offset, struct ptlrpc_request *req); -extern int (*mds_getattr_name_p)(int offset, struct ptlrpc_request *req); +#include +#include +#include +#include "ldlm_internal.h" -inline unsigned long round_timeout(unsigned long timeout) +extern cfs_mem_cache_t *ldlm_resource_slab; +extern cfs_mem_cache_t *ldlm_lock_slab; +static struct semaphore ldlm_ref_sem; +static int ldlm_refcount; + +/* LDLM state */ + +static struct ldlm_state *ldlm_state; + +inline cfs_time_t round_timeout(cfs_time_t timeout) { - return ((timeout / HZ) + 1) * HZ; + return cfs_time_seconds((int)cfs_duration_sec(cfs_time_sub(timeout, 0)) + 1); } +/* timeout for initial callback (AST) reply */ +static inline unsigned int ldlm_get_rq_timeout(unsigned int ldlm_timeout, + unsigned int obd_timeout) +{ + unsigned int timeout = min(ldlm_timeout, obd_timeout / 3); + + return timeout < 1 ? 1 : timeout; +} + +#ifdef __KERNEL__ +/* w_l_spinlock protects both waiting_locks_list and expired_lock_thread */ +static spinlock_t waiting_locks_spinlock; /* BH lock (timer) */ static struct list_head waiting_locks_list; -static spinlock_t waiting_locks_spinlock; -static struct timer_list waiting_locks_timer; -static int ldlm_already_setup = 0; +static cfs_timer_t waiting_locks_timer; + +static struct expired_lock_thread { + cfs_waitq_t elt_waitq; + int elt_state; + int elt_dump; + struct list_head elt_expired_locks; +} expired_lock_thread; +#endif + +#define ELT_STOPPED 0 +#define ELT_READY 1 +#define ELT_TERMINATE 2 + +struct ldlm_bl_pool { + spinlock_t blp_lock; + struct list_head blp_list; + cfs_waitq_t blp_waitq; + atomic_t blp_num_threads; + struct completion blp_comp; +}; + +struct ldlm_bl_work_item { + struct list_head blwi_entry; + struct ldlm_namespace *blwi_ns; + struct ldlm_lock_desc blwi_ld; + struct ldlm_lock *blwi_lock; + struct list_head blwi_head; + int blwi_count; +}; + +#ifdef __KERNEL__ + +static inline int have_expired_locks(void) +{ + int need_to_run; + + ENTRY; + spin_lock_bh(&waiting_locks_spinlock); + need_to_run = !list_empty(&expired_lock_thread.elt_expired_locks); + spin_unlock_bh(&waiting_locks_spinlock); + + RETURN(need_to_run); +} + +static int expired_lock_main(void *arg) +{ + struct list_head *expired = &expired_lock_thread.elt_expired_locks; + struct l_wait_info lwi = { 0 }; + int do_dump; + + ENTRY; + cfs_daemonize("ldlm_elt"); + + expired_lock_thread.elt_state = ELT_READY; + cfs_waitq_signal(&expired_lock_thread.elt_waitq); + + while (1) { + l_wait_event(expired_lock_thread.elt_waitq, + have_expired_locks() || + expired_lock_thread.elt_state == ELT_TERMINATE, + &lwi); + + spin_lock_bh(&waiting_locks_spinlock); + if (expired_lock_thread.elt_dump) { + spin_unlock_bh(&waiting_locks_spinlock); + + /* from waiting_locks_callback, but not in timer */ + libcfs_debug_dumplog(); + libcfs_run_lbug_upcall(__FILE__, + "waiting_locks_callback", + expired_lock_thread.elt_dump); + spin_lock_bh(&waiting_locks_spinlock); + expired_lock_thread.elt_dump = 0; + } + + do_dump = 0; + + while (!list_empty(expired)) { + struct obd_export *export; + struct ldlm_lock *lock; + + lock = list_entry(expired->next, struct ldlm_lock, + l_pending_chain); + if ((void *)lock < LP_POISON + CFS_PAGE_SIZE && + (void *)lock >= LP_POISON) { + spin_unlock_bh(&waiting_locks_spinlock); + CERROR("free lock on elt list %p\n", lock); + LBUG(); + } + list_del_init(&lock->l_pending_chain); + if ((void *)lock->l_export < LP_POISON + CFS_PAGE_SIZE && + (void *)lock->l_export >= LP_POISON) { + CERROR("lock with free export on elt list %p\n", + lock->l_export); + lock->l_export = NULL; + LDLM_ERROR(lock, "free export"); + continue; + } + export = class_export_get(lock->l_export); + spin_unlock_bh(&waiting_locks_spinlock); + + do_dump++; + class_fail_export(export); + class_export_put(export); + spin_lock_bh(&waiting_locks_spinlock); + } + spin_unlock_bh(&waiting_locks_spinlock); + + if (do_dump && obd_dump_on_eviction) { + CERROR("dump the log upon eviction\n"); + libcfs_debug_dumplog(); + } + + if (expired_lock_thread.elt_state == ELT_TERMINATE) + break; + } + + expired_lock_thread.elt_state = ELT_STOPPED; + cfs_waitq_signal(&expired_lock_thread.elt_waitq); + RETURN(0); +} + +static int ldlm_add_waiting_lock(struct ldlm_lock *lock); + +/* This is called from within a timer interrupt and cannot schedule */ static void waiting_locks_callback(unsigned long unused) { - struct list_head *liter, *n; + struct ldlm_lock *lock, *last = NULL; +repeat: spin_lock_bh(&waiting_locks_spinlock); - list_for_each_safe(liter, n, &waiting_locks_list) { - struct ldlm_lock *l = list_entry(liter, struct ldlm_lock, - l_pending_chain); - if (l->l_callback_timeout > jiffies) + while (!list_empty(&waiting_locks_list)) { + lock = list_entry(waiting_locks_list.next, struct ldlm_lock, + l_pending_chain); + + if (cfs_time_after(lock->l_callback_timeout, cfs_time_current()) || + (lock->l_req_mode == LCK_GROUP)) break; - LDLM_DEBUG(l, "timer expired, recovering exp %p on conn %p", - l->l_export, l->l_export->exp_connection); - recovd_conn_fail(l->l_export->exp_connection); + + if (ptlrpc_check_suspend()) { + /* there is a case when we talk to one mds, holding + * lock from another mds. this way we easily can get + * here, if second mds is being recovered. so, we + * suspend timeouts. bug 6019 */ + + LDLM_ERROR(lock, "recharge timeout: %s@%s nid %s ", + lock->l_export->exp_client_uuid.uuid, + lock->l_export->exp_connection->c_remote_uuid.uuid, + libcfs_nid2str(lock->l_export->exp_connection->c_peer.nid)); + + list_del_init(&lock->l_pending_chain); + spin_unlock_bh(&waiting_locks_spinlock); + ldlm_add_waiting_lock(lock); + goto repeat; + } + + /* if timeout overlaps the activation time of suspended timeouts + * then extend it to give a chance for client to reconnect */ + if (cfs_time_before(cfs_time_sub(lock->l_callback_timeout, + cfs_time_seconds(obd_timeout)/2), + ptlrpc_suspend_wakeup_time())) { + LDLM_ERROR(lock, "extend timeout due to recovery: %s@%s nid %s ", + lock->l_export->exp_client_uuid.uuid, + lock->l_export->exp_connection->c_remote_uuid.uuid, + libcfs_nid2str(lock->l_export->exp_connection->c_peer.nid)); + + list_del_init(&lock->l_pending_chain); + spin_unlock_bh(&waiting_locks_spinlock); + ldlm_add_waiting_lock(lock); + goto repeat; + } + + LDLM_ERROR(lock, "lock callback timer expired: evicting client " + "%s@%s nid %s\n", + lock->l_export->exp_client_uuid.uuid, + lock->l_export->exp_connection->c_remote_uuid.uuid, + libcfs_nid2str(lock->l_export->exp_connection->c_peer.nid)); + + last = lock; + + list_del(&lock->l_pending_chain); + list_add(&lock->l_pending_chain, + &expired_lock_thread.elt_expired_locks); + } + + if (!list_empty(&expired_lock_thread.elt_expired_locks)) { + if (obd_dump_on_timeout) + expired_lock_thread.elt_dump = __LINE__; + + cfs_waitq_signal(&expired_lock_thread.elt_waitq); + } + + /* + * Make sure the timer will fire again if we have any locks + * left. + */ + if (!list_empty(&waiting_locks_list)) { + cfs_time_t timeout_rounded; + lock = list_entry(waiting_locks_list.next, struct ldlm_lock, + l_pending_chain); + timeout_rounded = (cfs_time_t)round_timeout(lock->l_callback_timeout); + cfs_timer_arm(&waiting_locks_timer, timeout_rounded); } spin_unlock_bh(&waiting_locks_spinlock); } @@ -68,72 +280,237 @@ static void waiting_locks_callback(unsigned long unused) * lock. We add it to the pending-callback chain, and schedule the lock-timeout * timer to fire appropriately. (We round up to the next second, to avoid * floods of timer firings during periods of high lock contention and traffic). + * + * Called with the namespace lock held. */ -static int ldlm_add_waiting_lock(struct ldlm_lock *lock) +static int __ldlm_add_waiting_lock(struct ldlm_lock *lock) { - unsigned long timeout_rounded; - ENTRY; + cfs_time_t timeout_rounded; - LASSERT(list_empty(&lock->l_pending_chain)); + if (!list_empty(&lock->l_pending_chain)) + return 0; - spin_lock_bh(&waiting_locks_spinlock); - lock->l_callback_timeout = jiffies + (obd_timeout * HZ); + lock->l_callback_timeout =cfs_time_add(cfs_time_current(), + cfs_time_seconds(obd_timeout)/2); timeout_rounded = round_timeout(lock->l_callback_timeout); - if (timeout_rounded < waiting_locks_timer.expires || - !timer_pending(&waiting_locks_timer)) { - mod_timer(&waiting_locks_timer, timeout_rounded); + if (cfs_time_before(timeout_rounded, cfs_timer_deadline(&waiting_locks_timer)) || + !cfs_timer_is_armed(&waiting_locks_timer)) { + cfs_timer_arm(&waiting_locks_timer, timeout_rounded); + } list_add_tail(&lock->l_pending_chain, &waiting_locks_list); /* FIFO */ + return 1; +} + +static int ldlm_add_waiting_lock(struct ldlm_lock *lock) +{ + int ret; + + LASSERT(!(lock->l_flags & LDLM_FL_CANCEL_ON_BLOCK)); + + spin_lock_bh(&waiting_locks_spinlock); + if (lock->l_destroyed) { + static cfs_time_t next; + spin_unlock_bh(&waiting_locks_spinlock); + LDLM_ERROR(lock, "not waiting on destroyed lock (bug 5653)"); + if (cfs_time_after(cfs_time_current(), next)) { + next = cfs_time_shift(14400); + libcfs_debug_dumpstack(NULL); + } + return 0; + } + + ret = __ldlm_add_waiting_lock(lock); spin_unlock_bh(&waiting_locks_spinlock); - RETURN(1); + + LDLM_DEBUG(lock, "%sadding to wait list", + ret == 0 ? "not re-" : ""); + return ret; } /* * Remove a lock from the pending list, likely because it had its cancellation * callback arrive without incident. This adjusts the lock-timeout timer if * needed. Returns 0 if the lock wasn't pending after all, 1 if it was. + * + * Called with namespace lock held. */ -int ldlm_del_waiting_lock(struct ldlm_lock *lock) +int __ldlm_del_waiting_lock(struct ldlm_lock *lock) { struct list_head *list_next; - ENTRY; - - spin_lock_bh(&waiting_locks_spinlock); - - if (list_empty(&lock->l_pending_chain)) { - spin_unlock_bh(&waiting_locks_spinlock); - RETURN(0); - } + if (list_empty(&lock->l_pending_chain)) + return 0; list_next = lock->l_pending_chain.next; if (lock->l_pending_chain.prev == &waiting_locks_list) { /* Removing the head of the list, adjust timer. */ if (list_next == &waiting_locks_list) { /* No more, just cancel. */ - del_timer(&waiting_locks_timer); + cfs_timer_disarm(&waiting_locks_timer); } else { struct ldlm_lock *next; next = list_entry(list_next, struct ldlm_lock, l_pending_chain); - mod_timer(&waiting_locks_timer, - round_timeout(next->l_callback_timeout)); + cfs_timer_arm(&waiting_locks_timer, + round_timeout(next->l_callback_timeout)); } } list_del_init(&lock->l_pending_chain); + + return 1; +} + +int ldlm_del_waiting_lock(struct ldlm_lock *lock) +{ + int ret; + + if (lock->l_export == NULL) { + /* We don't have a "waiting locks list" on clients. */ + LDLM_DEBUG(lock, "client lock: no-op"); + return 0; + } + + spin_lock_bh(&waiting_locks_spinlock); + ret = __ldlm_del_waiting_lock(lock); spin_unlock_bh(&waiting_locks_spinlock); + + LDLM_DEBUG(lock, "%s", ret == 0 ? "wasn't waiting" : "removed"); + return ret; +} + +/* + * Prolong the lock + * + * Called with namespace lock held. + */ +int ldlm_refresh_waiting_lock(struct ldlm_lock *lock) +{ + if (lock->l_export == NULL) { + /* We don't have a "waiting locks list" on clients. */ + LDLM_DEBUG(lock, "client lock: no-op"); + return 0; + } + + spin_lock_bh(&waiting_locks_spinlock); + + if (list_empty(&lock->l_pending_chain)) { + spin_unlock_bh(&waiting_locks_spinlock); + LDLM_DEBUG(lock, "wasn't waiting"); + return 0; + } + + __ldlm_del_waiting_lock(lock); + __ldlm_add_waiting_lock(lock); + spin_unlock_bh(&waiting_locks_spinlock); + + LDLM_DEBUG(lock, "refreshed"); + return 1; +} + +#else /* !__KERNEL__ */ + +static int ldlm_add_waiting_lock(struct ldlm_lock *lock) +{ + LASSERT(!(lock->l_flags & LDLM_FL_CANCEL_ON_BLOCK)); RETURN(1); } -static int ldlm_server_blocking_ast(struct ldlm_lock *lock, - struct ldlm_lock_desc *desc, - void *data, __u32 data_len, int flag) +int ldlm_del_waiting_lock(struct ldlm_lock *lock) +{ + RETURN(0); +} + +int ldlm_refresh_waiting_lock(struct ldlm_lock *lock) +{ + RETURN(0); +} +#endif /* __KERNEL__ */ + +static void ldlm_failed_ast(struct ldlm_lock *lock, int rc, + const char *ast_type) +{ + struct ptlrpc_connection *conn = lock->l_export->exp_connection; + char *str = libcfs_nid2str(conn->c_peer.nid); + + LCONSOLE_ERROR_MSG(0x138, "A client on nid %s was evicted from " + "service %s.\n", str, + lock->l_export->exp_obd->obd_name); + + LCONSOLE_ERROR_MSG(0x012, "Lock %s callback to %s timed out for " + "resource %d\n", ast_type, + obd_export_nid2str(lock->l_export), rc); + + if (obd_dump_on_timeout) + libcfs_debug_dumplog(); + class_fail_export(lock->l_export); +} + +static int ldlm_handle_ast_error(struct ldlm_lock *lock, + struct ptlrpc_request *req, int rc, + const char *ast_type) +{ + lnet_process_id_t peer = req->rq_import->imp_connection->c_peer; + + if (rc == -ETIMEDOUT || rc == -EINTR || rc == -ENOTCONN) { + LASSERT(lock->l_export); + if (lock->l_export->exp_libclient) { + LDLM_DEBUG(lock, "%s AST to liblustre client (nid %s)" + " timeout, just cancelling lock", ast_type, + libcfs_nid2str(peer.nid)); + ldlm_lock_cancel(lock); + rc = -ERESTART; + } else if (lock->l_flags & LDLM_FL_CANCEL) { + LDLM_DEBUG(lock, "%s AST timeout from nid %s, but " + "cancel was received (AST reply lost?)", + ast_type, libcfs_nid2str(peer.nid)); + ldlm_lock_cancel(lock); + rc = -ERESTART; + } else { + ldlm_del_waiting_lock(lock); + ldlm_failed_ast(lock, rc, ast_type); + } + } else if (rc) { + if (rc == -EINVAL) + LDLM_DEBUG(lock, "client (nid %s) returned %d" + " from %s AST - normal race", + libcfs_nid2str(peer.nid), + req->rq_repmsg ? + lustre_msg_get_status(req->rq_repmsg) : -1, + ast_type); + else + LDLM_ERROR(lock, "client (nid %s) returned %d " + "from %s AST", libcfs_nid2str(peer.nid), + (req->rq_repmsg != NULL) ? + lustre_msg_get_status(req->rq_repmsg) : 0, + ast_type); + ldlm_lock_cancel(lock); + /* Server-side AST functions are called from ldlm_reprocess_all, + * which needs to be told to please restart its reprocessing. */ + rc = -ERESTART; + } + + return rc; +} + +/* + * ->l_blocking_ast() method for server-side locks. This is invoked when newly + * enqueued server lock conflicts with given one. + * + * Sends blocking ast rpc to the client owning that lock; arms timeout timer + * to wait for client response. + */ +int ldlm_server_blocking_ast(struct ldlm_lock *lock, + struct ldlm_lock_desc *desc, + void *data, int flag) { struct ldlm_request *body; struct ptlrpc_request *req; - int rc = 0, size = sizeof(*body); + int size[] = { [MSG_PTLRPC_BODY_OFF] = sizeof(struct ptlrpc_body), + [DLM_LOCKREQ_OFF] = sizeof(*body) }; + int instant_cancel = 0, rc = 0; ENTRY; if (flag == LDLM_CB_CANCELING) { @@ -141,308 +518,745 @@ static int ldlm_server_blocking_ast(struct ldlm_lock *lock, RETURN(0); } - req = ptlrpc_prep_req(&lock->l_export->exp_ldlm_data.led_import, - LDLM_BL_CALLBACK, 1, &size, NULL); - if (!req) + LASSERT(lock); + if (lock->l_export->exp_obd->obd_recovering != 0) { + LDLM_ERROR(lock, "BUG 6063: lock collide during recovery"); + ldlm_lock_dump(D_ERROR, lock, 0); + } + + req = ptlrpc_prep_req(lock->l_export->exp_imp_reverse, + LUSTRE_DLM_VERSION, LDLM_BL_CALLBACK, 2, size, + NULL); + if (req == NULL) RETURN(-ENOMEM); - body = lustre_msg_buf(req->rq_reqmsg, 0); - memcpy(&body->lock_handle1, &lock->l_remote_handle, - sizeof(body->lock_handle1)); - memcpy(&body->lock_desc, desc, sizeof(*desc)); + lock_res(lock->l_resource); + if (lock->l_granted_mode != lock->l_req_mode) { + /* this blocking AST will be communicated as part of the + * completion AST instead */ + unlock_res(lock->l_resource); + ptlrpc_req_finished(req); + LDLM_DEBUG(lock, "lock not granted, not sending blocking AST"); + RETURN(0); + } + + if (lock->l_destroyed) { + /* What's the point? */ + unlock_res(lock->l_resource); + ptlrpc_req_finished(req); + RETURN(0); + } + + if (lock->l_flags & LDLM_FL_CANCEL_ON_BLOCK) + instant_cancel = 1; + + body = lustre_msg_buf(req->rq_reqmsg, DLM_LOCKREQ_OFF, sizeof(*body)); + body->lock_handle[0] = lock->l_remote_handle; + body->lock_desc = *desc; + body->lock_flags |= (lock->l_flags & LDLM_AST_FLAGS); LDLM_DEBUG(lock, "server preparing blocking AST"); - req->rq_replen = 0; /* no reply needed */ - ldlm_add_waiting_lock(lock); - (void)ptl_send_rpc(req); + ptlrpc_req_set_repsize(req, 1, NULL); + if (instant_cancel) { + unlock_res(lock->l_resource); + ldlm_lock_cancel(lock); + } else { + LASSERT(lock->l_granted_mode == lock->l_req_mode); + ldlm_add_waiting_lock(lock); + unlock_res(lock->l_resource); + } + + req->rq_send_state = LUSTRE_IMP_FULL; + req->rq_timeout = ldlm_get_rq_timeout(ldlm_timeout, obd_timeout); + + if (lock->l_export && lock->l_export->exp_ldlm_stats) + lprocfs_counter_incr(lock->l_export->exp_ldlm_stats, + LDLM_BL_CALLBACK - LDLM_FIRST_OPC); + + if (unlikely(instant_cancel)) { + rc = ptl_send_rpc(req, 1); + } else { + rc = ptlrpc_queue_wait(req); + OBD_FAIL_TIMEOUT(OBD_FAIL_LDLM_GLIMPSE, 2); + } + if (rc != 0) { + /* If client canceled the lock but the cancel has not been + * recieved yet, we need to update lvbo to have the proper + * attributes cached. */ + if (rc == -EINVAL) + ldlm_res_lvbo_update(lock->l_resource, NULL, 0, 1); + rc = ldlm_handle_ast_error(lock, req, rc, "blocking"); + } - /* no commit, and no waiting for reply, so 2x decref now */ - ptlrpc_req_finished(req); ptlrpc_req_finished(req); + /* If we cancelled the lock, we need to restart ldlm_reprocess_queue */ + if (!rc && instant_cancel) + rc = -ERESTART; + RETURN(rc); } -static int ldlm_server_completion_ast(struct ldlm_lock *lock, int flags) +int ldlm_server_completion_ast(struct ldlm_lock *lock, int flags, void *data) { struct ldlm_request *body; struct ptlrpc_request *req; - int rc = 0, size = sizeof(*body); + struct timeval granted_time; + long total_enqueue_wait; + int size[3] = { [MSG_PTLRPC_BODY_OFF] = sizeof(struct ptlrpc_body), + [DLM_LOCKREQ_OFF] = sizeof(*body) }; + int rc = 0, buffers = 2, instant_cancel = 0; ENTRY; - if (lock == NULL) { - LBUG(); - RETURN(-EINVAL); + LASSERT(lock != NULL); + + do_gettimeofday(&granted_time); + total_enqueue_wait = cfs_timeval_sub(&granted_time, + &lock->l_enqueued_time, NULL); + + if (total_enqueue_wait / 1000000 > obd_timeout) + LDLM_ERROR(lock, "enqueue wait took %luus from %lu", + total_enqueue_wait, lock->l_enqueued_time.tv_sec); + + lock_res_and_lock(lock); + if (lock->l_resource->lr_lvb_len) { + size[DLM_REQ_REC_OFF] = lock->l_resource->lr_lvb_len; + buffers = 3; } + unlock_res_and_lock(lock); - req = ptlrpc_prep_req(&lock->l_export->exp_ldlm_data.led_import, - LDLM_CP_CALLBACK, 1, &size, NULL); - if (!req) + req = ptlrpc_prep_req(lock->l_export->exp_imp_reverse, + LUSTRE_DLM_VERSION, LDLM_CP_CALLBACK, buffers, + size, NULL); + if (req == NULL) RETURN(-ENOMEM); - body = lustre_msg_buf(req->rq_reqmsg, 0); - memcpy(&body->lock_handle1, &lock->l_remote_handle, - sizeof(body->lock_handle1)); + body = lustre_msg_buf(req->rq_reqmsg, DLM_LOCKREQ_OFF, sizeof(*body)); + body->lock_handle[0] = lock->l_remote_handle; body->lock_flags = flags; ldlm_lock2desc(lock, &body->lock_desc); - LDLM_DEBUG(lock, "server preparing completion AST"); - req->rq_replen = 0; /* no reply needed */ + if (buffers == 3) { + void *lvb; + + lvb = lustre_msg_buf(req->rq_reqmsg, DLM_REQ_REC_OFF, + lock->l_resource->lr_lvb_len); + lock_res_and_lock(lock); + memcpy(lvb, lock->l_resource->lr_lvb_data, + lock->l_resource->lr_lvb_len); + unlock_res_and_lock(lock); + } + + LDLM_DEBUG(lock, "server preparing completion AST (after %ldus wait)", + total_enqueue_wait); + + ptlrpc_req_set_repsize(req, 1, NULL); + + req->rq_send_state = LUSTRE_IMP_FULL; + req->rq_timeout = ldlm_get_rq_timeout(ldlm_timeout, obd_timeout); + + /* We only send real blocking ASTs after the lock is granted */ + lock_res_and_lock(lock); + if (lock->l_flags & LDLM_FL_AST_SENT) { + body->lock_flags |= LDLM_FL_AST_SENT; + + /* We might get here prior to ldlm_handle_enqueue setting + * LDLM_FL_CANCEL_ON_BLOCK flag. Then we will put this lock + * into waiting list, but this is safe and similar code in + * ldlm_handle_enqueue will call ldlm_lock_cancel() still, + * that would not only cancel the lock, but will also remove + * it from waiting list */ + if (lock->l_flags & LDLM_FL_CANCEL_ON_BLOCK) { + unlock_res_and_lock(lock); + ldlm_lock_cancel(lock); + instant_cancel = 1; + lock_res_and_lock(lock); + } else { + /* start the lock-timeout clock */ + ldlm_add_waiting_lock(lock); + } + } + unlock_res_and_lock(lock); + + if (lock->l_export && lock->l_export->exp_ldlm_stats) + lprocfs_counter_incr(lock->l_export->exp_ldlm_stats, + LDLM_CP_CALLBACK - LDLM_FIRST_OPC); + + rc = ptlrpc_queue_wait(req); + if (rc != 0) + rc = ldlm_handle_ast_error(lock, req, rc, "completion"); - (void)ptl_send_rpc(req); - /* no commit, and no waiting for reply, so 2x decref now */ - ptlrpc_req_finished(req); ptlrpc_req_finished(req); + /* If we cancelled the lock, we need to restart ldlm_reprocess_queue */ + if (!rc && instant_cancel) + rc = -ERESTART; + RETURN(rc); } -int ldlm_handle_enqueue(struct ptlrpc_request *req) +int ldlm_server_glimpse_ast(struct ldlm_lock *lock, void *data) +{ + struct ldlm_resource *res = lock->l_resource; + struct ldlm_request *body; + struct ptlrpc_request *req; + int size[] = { [MSG_PTLRPC_BODY_OFF] = sizeof(struct ptlrpc_body), + [DLM_LOCKREQ_OFF] = sizeof(*body) }; + int rc = 0; + ENTRY; + + LASSERT(lock != NULL); + + req = ptlrpc_prep_req(lock->l_export->exp_imp_reverse, + LUSTRE_DLM_VERSION, LDLM_GL_CALLBACK, 2, size, + NULL); + if (req == NULL) + RETURN(-ENOMEM); + + body = lustre_msg_buf(req->rq_reqmsg, DLM_LOCKREQ_OFF, sizeof(*body)); + body->lock_handle[0] = lock->l_remote_handle; + ldlm_lock2desc(lock, &body->lock_desc); + + lock_res_and_lock(lock); + size[REPLY_REC_OFF] = lock->l_resource->lr_lvb_len; + unlock_res_and_lock(lock); + res = lock->l_resource; + ptlrpc_req_set_repsize(req, 2, size); + + req->rq_send_state = LUSTRE_IMP_FULL; + req->rq_timeout = ldlm_get_rq_timeout(ldlm_timeout, obd_timeout); + + if (lock->l_export && lock->l_export->exp_ldlm_stats) + lprocfs_counter_incr(lock->l_export->exp_ldlm_stats, + LDLM_GL_CALLBACK - LDLM_FIRST_OPC); + + rc = ptlrpc_queue_wait(req); + if (rc == -ELDLM_NO_LOCK_DATA) + LDLM_DEBUG(lock, "lost race - client has a lock but no inode"); + else if (rc != 0) + rc = ldlm_handle_ast_error(lock, req, rc, "glimpse"); + else + rc = ldlm_res_lvbo_update(res, req->rq_repmsg, + REPLY_REC_OFF, 1); + ptlrpc_req_finished(req); + RETURN(rc); +} + +static struct ldlm_lock * +find_existing_lock(struct obd_export *exp, + const struct lustre_handle *remote_hdl) +{ + struct list_head *iter; + + spin_lock(&exp->exp_ldlm_data.led_lock); + list_for_each(iter, &exp->exp_ldlm_data.led_held_locks) { + struct ldlm_lock *lock; + lock = list_entry(iter, struct ldlm_lock, l_export_chain); + if (lock->l_remote_handle.cookie == remote_hdl->cookie) { + LDLM_LOCK_GET(lock); + spin_unlock(&exp->exp_ldlm_data.led_lock); + return lock; + } + } + spin_unlock(&exp->exp_ldlm_data.led_lock); + return NULL; +} + +#ifdef __KERNEL__ +extern unsigned long long lu_time_stamp_get(void); +#else +#define lu_time_stamp_get() time(NULL) +#endif + +/* + * Main server-side entry point into LDLM. This is called by ptlrpc service + * threads to carry out client lock enqueueing requests. + */ +int ldlm_handle_enqueue0(struct ldlm_namespace *ns, + struct ptlrpc_request *req, + const struct ldlm_request *dlm_req, + const struct ldlm_callback_suite *cbs) { - struct obd_device *obddev = req->rq_export->exp_obd; struct ldlm_reply *dlm_rep; - struct ldlm_request *dlm_req; - int rc, size = sizeof(*dlm_rep), cookielen = 0; + int size[3] = { [MSG_PTLRPC_BODY_OFF] = sizeof(struct ptlrpc_body), + [DLM_LOCKREPLY_OFF] = sizeof(*dlm_rep) }; + int rc = 0; __u32 flags; - ldlm_error_t err; + ldlm_error_t err = ELDLM_OK; struct ldlm_lock *lock = NULL; void *cookie = NULL; ENTRY; LDLM_DEBUG_NOLOCK("server-side enqueue handler START"); - dlm_req = lustre_msg_buf(req->rq_reqmsg, 0); + ldlm_request_cancel(req, dlm_req, LDLM_ENQUEUE_CANCEL_OFF); flags = dlm_req->lock_flags; - if (dlm_req->lock_desc.l_resource.lr_type == LDLM_PLAIN && - (flags & LDLM_FL_HAS_INTENT)) { - /* In this case, the reply buffer is allocated deep in - * local_lock_enqueue by the policy function. */ - cookie = req; - cookielen = sizeof(*req); - } else { - rc = lustre_pack_msg(1, &size, NULL, &req->rq_replen, - &req->rq_repmsg); - if (rc) { - CERROR("out of memory\n"); - RETURN(-ENOMEM); + + LASSERT(req->rq_export); + + if (req->rq_export->exp_ldlm_stats) + lprocfs_counter_incr(req->rq_export->exp_ldlm_stats, + LDLM_ENQUEUE - LDLM_FIRST_OPC); + + if (unlikely(dlm_req->lock_desc.l_resource.lr_type < LDLM_MIN_TYPE || + dlm_req->lock_desc.l_resource.lr_type >= LDLM_MAX_TYPE)) { + DEBUG_REQ(D_ERROR, req, "invalid lock request type %d", + dlm_req->lock_desc.l_resource.lr_type); + GOTO(out, rc = -EFAULT); + } + + if (unlikely(dlm_req->lock_desc.l_req_mode <= LCK_MINMODE || + dlm_req->lock_desc.l_req_mode >= LCK_MAXMODE || + dlm_req->lock_desc.l_req_mode & + (dlm_req->lock_desc.l_req_mode-1))) { + DEBUG_REQ(D_ERROR, req, "invalid lock request mode %d", + dlm_req->lock_desc.l_req_mode); + GOTO(out, rc = -EFAULT); + } + + if (req->rq_export->exp_connect_flags & OBD_CONNECT_IBITS) { + if (unlikely(dlm_req->lock_desc.l_resource.lr_type == + LDLM_PLAIN)) { + DEBUG_REQ(D_ERROR, req, + "PLAIN lock request from IBITS client?"); + GOTO(out, rc = -EPROTO); } - if (dlm_req->lock_desc.l_resource.lr_type == LDLM_EXTENT) { - cookie = &dlm_req->lock_desc.l_extent; - cookielen = sizeof(struct ldlm_extent); + } else if (unlikely(dlm_req->lock_desc.l_resource.lr_type == + LDLM_IBITS)) { + DEBUG_REQ(D_ERROR, req, + "IBITS lock request from unaware client?"); + GOTO(out, rc = -EPROTO); + } + +#if 0 + /* FIXME this makes it impossible to use LDLM_PLAIN locks -- check + against server's _CONNECT_SUPPORTED flags? (I don't want to use + ibits for mgc/mgs) */ + + /* INODEBITS_INTEROP: Perform conversion from plain lock to + * inodebits lock if client does not support them. */ + if (!(req->rq_export->exp_connect_flags & OBD_CONNECT_IBITS) && + (dlm_req->lock_desc.l_resource.lr_type == LDLM_PLAIN)) { + dlm_req->lock_desc.l_resource.lr_type = LDLM_IBITS; + dlm_req->lock_desc.l_policy_data.l_inodebits.bits = + MDS_INODELOCK_LOOKUP | MDS_INODELOCK_UPDATE; + if (dlm_req->lock_desc.l_req_mode == LCK_PR) + dlm_req->lock_desc.l_req_mode = LCK_CR; + } +#endif + + if (unlikely(flags & LDLM_FL_REPLAY)) { + lock = find_existing_lock(req->rq_export, + &dlm_req->lock_handle[0]); + if (lock != NULL) { + DEBUG_REQ(D_DLMTRACE, req, "found existing lock cookie " + LPX64, lock->l_handle.h_cookie); + GOTO(existing_lock, rc = 0); } } - /* XXX notice that this lock has no callback data: of course the - export would be exactly what we may want to use here... */ - lock = ldlm_lock_create(obddev->obd_namespace, - &dlm_req->lock_handle2, - dlm_req->lock_desc.l_resource.lr_name, + /* The lock's callback data might be set in the policy function */ + lock = ldlm_lock_create(ns, &dlm_req->lock_desc.l_resource.lr_name, dlm_req->lock_desc.l_resource.lr_type, - dlm_req->lock_desc.l_req_mode, NULL, 0); + dlm_req->lock_desc.l_req_mode, + cbs->lcs_blocking, cbs->lcs_completion, + cbs->lcs_glimpse, NULL, 0); + if (!lock) - GOTO(out, err = -ENOMEM); + GOTO(out, rc = -ENOMEM); - memcpy(&lock->l_remote_handle, &dlm_req->lock_handle1, - sizeof(lock->l_remote_handle)); + do_gettimeofday(&lock->l_enqueued_time); + lock->l_remote_handle = dlm_req->lock_handle[0]; LDLM_DEBUG(lock, "server-side enqueue handler, new lock created"); - err = ldlm_lock_enqueue(lock, cookie, cookielen, &flags, - ldlm_server_completion_ast, - ldlm_server_blocking_ast); - if (err != ELDLM_OK) + OBD_FAIL_TIMEOUT(OBD_FAIL_LDLM_ENQUEUE_BLOCKED, obd_timeout * 2); + /* Don't enqueue a lock onto the export if it has already + * been evicted. Cancel it now instead. (bug 3822) */ + if (req->rq_export->exp_failed) { + LDLM_ERROR(lock, "lock on destroyed export %p", req->rq_export); + GOTO(out, rc = -ENOTCONN); + } + lock->l_export = class_export_get(req->rq_export); + spin_lock(&lock->l_export->exp_ldlm_data.led_lock); + list_add(&lock->l_export_chain, + &lock->l_export->exp_ldlm_data.led_held_locks); + spin_unlock(&lock->l_export->exp_ldlm_data.led_lock); + +existing_lock: + + if (flags & LDLM_FL_HAS_INTENT) { + /* In this case, the reply buffer is allocated deep in + * local_lock_enqueue by the policy function. */ + cookie = req; + } else { + int buffers = 2; + + lock_res_and_lock(lock); + if (lock->l_resource->lr_lvb_len) { + size[DLM_REPLY_REC_OFF] = lock->l_resource->lr_lvb_len; + buffers = 3; + } + unlock_res_and_lock(lock); + + if (OBD_FAIL_CHECK_ONCE(OBD_FAIL_LDLM_ENQUEUE_EXTENT_ERR)) + GOTO(out, rc = -ENOMEM); + + rc = lustre_pack_reply(req, buffers, size, NULL); + if (rc) + GOTO(out, rc); + } + + if (dlm_req->lock_desc.l_resource.lr_type != LDLM_PLAIN) + lock->l_policy_data = dlm_req->lock_desc.l_policy_data; + if (dlm_req->lock_desc.l_resource.lr_type == LDLM_EXTENT) + lock->l_req_extent = lock->l_policy_data.l_extent; + + err = ldlm_lock_enqueue(ns, &lock, cookie, &flags); + if (err) GOTO(out, err); - dlm_rep = lustre_msg_buf(req->rq_repmsg, 0); + dlm_rep = lustre_msg_buf(req->rq_repmsg, DLM_LOCKREPLY_OFF, + sizeof(*dlm_rep)); dlm_rep->lock_flags = flags; + ldlm_lock2desc(lock, &dlm_rep->lock_desc); ldlm_lock2handle(lock, &dlm_rep->lock_handle); - if (dlm_req->lock_desc.l_resource.lr_type == LDLM_EXTENT) - memcpy(&dlm_rep->lock_extent, &lock->l_extent, - sizeof(lock->l_extent)); - if (dlm_rep->lock_flags & LDLM_FL_LOCK_CHANGED) { - memcpy(dlm_rep->lock_resource_name, lock->l_resource->lr_name, - sizeof(dlm_rep->lock_resource_name)); - dlm_rep->lock_mode = lock->l_req_mode; - } - lock->l_export = req->rq_export; - if (lock->l_export) { - l_lock(&lock->l_resource->lr_namespace->ns_lock); - list_add(&lock->l_export_chain, - &lock->l_export->exp_ldlm_data.led_held_locks); - l_unlock(&lock->l_resource->lr_namespace->ns_lock); + /* We never send a blocking AST until the lock is granted, but + * we can tell it right now */ + lock_res_and_lock(lock); + + /* Now take into account flags to be inherited from original lock + request both in reply to client and in our own lock flags. */ + dlm_rep->lock_flags |= dlm_req->lock_flags & LDLM_INHERIT_FLAGS; + lock->l_flags |= dlm_req->lock_flags & LDLM_INHERIT_FLAGS; + + /* Don't move a pending lock onto the export if it has already + * been evicted. Cancel it now instead. (bug 5683) */ + if (unlikely(req->rq_export->exp_failed || + OBD_FAIL_CHECK_ONCE(OBD_FAIL_LDLM_ENQUEUE_OLD_EXPORT))) { + LDLM_ERROR(lock, "lock on destroyed export %p", req->rq_export); + rc = -ENOTCONN; + } else if (lock->l_flags & LDLM_FL_AST_SENT) { + dlm_rep->lock_flags |= LDLM_FL_AST_SENT; + if (lock->l_granted_mode == lock->l_req_mode) { + /* + * Only cancel lock if it was granted, because it would + * be destroyed immediatelly and would never be granted + * in the future, causing timeouts on client. Not + * granted lock will be cancelled immediatelly after + * sending completion AST. + */ + if (dlm_rep->lock_flags & LDLM_FL_CANCEL_ON_BLOCK) { + unlock_res_and_lock(lock); + ldlm_lock_cancel(lock); + lock_res_and_lock(lock); + } else + ldlm_add_waiting_lock(lock); + } } + /* Make sure we never ever grant usual metadata locks to liblustre + clients */ + if ((dlm_req->lock_desc.l_resource.lr_type == LDLM_PLAIN || + dlm_req->lock_desc.l_resource.lr_type == LDLM_IBITS) && + req->rq_export->exp_libclient) { + if (unlikely(!(lock->l_flags & LDLM_FL_CANCEL_ON_BLOCK) || + !(dlm_rep->lock_flags & LDLM_FL_CANCEL_ON_BLOCK))){ + CERROR("Granting sync lock to libclient. " + "req fl %d, rep fl %d, lock fl %d\n", + dlm_req->lock_flags, dlm_rep->lock_flags, + lock->l_flags); + LDLM_ERROR(lock, "sync lock"); + if (dlm_req->lock_flags & LDLM_FL_HAS_INTENT) { + struct ldlm_intent *it; + it = lustre_msg_buf(req->rq_reqmsg, + DLM_INTENT_IT_OFF, + sizeof(*it)); + if (it != NULL) { + CERROR("This is intent %s ("LPU64")\n", + ldlm_it2str(it->opc), it->opc); + } + } + } + } + + unlock_res_and_lock(lock); EXIT; out: - if (lock) - LDLM_DEBUG(lock, "server-side enqueue handler, sending reply" - "(err=%d)", err); req->rq_status = err; + if (req->rq_reply_state == NULL) { + err = lustre_pack_reply(req, 1, NULL, NULL); + if (rc == 0) + rc = err; + req->rq_status = rc; + } - if (ptlrpc_reply(req->rq_svc, req)) - LBUG(); - + /* The LOCK_CHANGED code in ldlm_lock_enqueue depends on this + * ldlm_reprocess_all. If this moves, revisit that code. -phil */ if (lock) { - if (!err) + LDLM_DEBUG(lock, "server-side enqueue handler, sending reply" + "(err=%d, rc=%d)", err, rc); + + lock_res_and_lock(lock); + if (rc == 0) { + size[DLM_REPLY_REC_OFF] = lock->l_resource->lr_lvb_len; + if (size[DLM_REPLY_REC_OFF] > 0) { + void *lvb = lustre_msg_buf(req->rq_repmsg, + DLM_REPLY_REC_OFF, + size[DLM_REPLY_REC_OFF]); + LASSERTF(lvb != NULL, "req %p, lock %p\n", + req, lock); + + memcpy(lvb, lock->l_resource->lr_lvb_data, + size[DLM_REPLY_REC_OFF]); + } + } else { + ldlm_resource_unlink_lock(lock); + ldlm_lock_destroy_nolock(lock); + } + unlock_res_and_lock(lock); + + if (!err && dlm_req->lock_desc.l_resource.lr_type != LDLM_FLOCK) ldlm_reprocess_all(lock->l_resource); + LDLM_LOCK_PUT(lock); } - LDLM_DEBUG_NOLOCK("server-side enqueue handler END (lock %p)", lock); - return 0; + LDLM_DEBUG_NOLOCK("server-side enqueue handler END (lock %p, rc %d)", + lock, rc); + + return rc; } -int ldlm_handle_convert(struct ptlrpc_request *req) +int ldlm_handle_enqueue(struct ptlrpc_request *req, + ldlm_completion_callback completion_callback, + ldlm_blocking_callback blocking_callback, + ldlm_glimpse_callback glimpse_callback) { + int rc; struct ldlm_request *dlm_req; + struct ldlm_callback_suite cbs = { + .lcs_completion = completion_callback, + .lcs_blocking = blocking_callback, + .lcs_glimpse = glimpse_callback + }; + + + dlm_req = lustre_swab_reqbuf(req, DLM_LOCKREQ_OFF, + sizeof *dlm_req, lustre_swab_ldlm_request); + if (dlm_req != NULL) { + rc = ldlm_handle_enqueue0(req->rq_export->exp_obd->obd_namespace, + req, dlm_req, &cbs); + } else { + CERROR ("Can't unpack dlm_req\n"); + rc = -EFAULT; + } + return rc; +} + +int ldlm_handle_convert0(struct ptlrpc_request *req, + const struct ldlm_request *dlm_req) +{ struct ldlm_reply *dlm_rep; struct ldlm_lock *lock; - int rc, size = sizeof(*dlm_rep); + int rc; + int size[2] = { [MSG_PTLRPC_BODY_OFF] = sizeof(struct ptlrpc_body), + [DLM_LOCKREPLY_OFF] = sizeof(*dlm_rep) }; ENTRY; - rc = lustre_pack_msg(1, &size, NULL, &req->rq_replen, &req->rq_repmsg); + if (req->rq_export && req->rq_export->exp_ldlm_stats) + lprocfs_counter_incr(req->rq_export->exp_ldlm_stats, + LDLM_CONVERT - LDLM_FIRST_OPC); + + rc = lustre_pack_reply(req, 2, size, NULL); if (rc) { CERROR("out of memory\n"); RETURN(-ENOMEM); } - dlm_req = lustre_msg_buf(req->rq_reqmsg, 0); - dlm_rep = lustre_msg_buf(req->rq_repmsg, 0); + dlm_rep = lustre_msg_buf(req->rq_repmsg, DLM_LOCKREPLY_OFF, + sizeof(*dlm_rep)); dlm_rep->lock_flags = dlm_req->lock_flags; - lock = ldlm_handle2lock(&dlm_req->lock_handle1); + lock = ldlm_handle2lock(&dlm_req->lock_handle[0]); if (!lock) { req->rq_status = EINVAL; } else { - LDLM_DEBUG(lock, "server-side convert handler START"); - ldlm_lock_convert(lock, dlm_req->lock_desc.l_req_mode, - &dlm_rep->lock_flags); - if (ldlm_del_waiting_lock(lock)) - CDEBUG(D_DLMTRACE, "converted waiting lock %p\n", lock); - req->rq_status = 0; + void *res = NULL; + + LDLM_DEBUG(lock, "server-side convert handler START"); + + do_gettimeofday(&lock->l_enqueued_time); + res = ldlm_lock_convert(lock, dlm_req->lock_desc.l_req_mode, + &dlm_rep->lock_flags); + if (res) { + if (ldlm_del_waiting_lock(lock)) + LDLM_DEBUG(lock, "converted waiting lock"); + req->rq_status = 0; + } else { + req->rq_status = EDEADLOCK; + } + } + + if (lock) { + if (!req->rq_status) + ldlm_reprocess_all(lock->l_resource); + LDLM_DEBUG(lock, "server-side convert handler END"); + LDLM_LOCK_PUT(lock); + } else + LDLM_DEBUG_NOLOCK("server-side convert handler END"); + + RETURN(0); +} + +int ldlm_handle_convert(struct ptlrpc_request *req) +{ + int rc; + struct ldlm_request *dlm_req; + + dlm_req = lustre_swab_reqbuf(req, DLM_LOCKREQ_OFF, sizeof *dlm_req, + lustre_swab_ldlm_request); + if (dlm_req != NULL) { + rc = ldlm_handle_convert0(req, dlm_req); + } else { + CERROR ("Can't unpack dlm_req\n"); + rc = -EFAULT; } - if (ptlrpc_reply(req->rq_svc, req) != 0) - LBUG(); + return rc; +} - if (lock) { - ldlm_reprocess_all(lock->l_resource); - LDLM_DEBUG(lock, "server-side convert handler END"); - LDLM_LOCK_PUT(lock); - } else - LDLM_DEBUG_NOLOCK("server-side convert handler END"); +/* Cancel all the locks, which handles are packed into ldlm_request */ +int ldlm_request_cancel(struct ptlrpc_request *req, + const struct ldlm_request *dlm_req, int first) +{ + struct ldlm_resource *res, *pres = NULL; + struct ldlm_lock *lock; + int i, count, done = 0; + ENTRY; - RETURN(0); + count = dlm_req->lock_count ? dlm_req->lock_count : 1; + if (first >= count) + RETURN(0); + + /* There is no lock on the server at the replay time, + * skip lock cancelling to make replay tests to pass. */ + if (lustre_msg_get_flags(req->rq_reqmsg) & MSG_REPLAY) + RETURN(0); + + LDLM_DEBUG_NOLOCK("server-side cancel handler START: %d locks, " + "starting at %d", count, first); + + for (i = first; i < count; i++) { + lock = ldlm_handle2lock(&dlm_req->lock_handle[i]); + if (!lock) { + LDLM_DEBUG_NOLOCK("server-side cancel handler stale " + "lock (cookie "LPU64")", + dlm_req->lock_handle[i].cookie); + continue; + } + + res = lock->l_resource; + done++; + + if (res != pres) { + if (pres != NULL) { + ldlm_reprocess_all(pres); + ldlm_resource_putref(pres); + } + if (res != NULL) { + ldlm_resource_getref(res); + ldlm_res_lvbo_update(res, NULL, 0, 1); + } + pres = res; + } + ldlm_lock_cancel(lock); + LDLM_LOCK_PUT(lock); + } + if (pres != NULL) { + ldlm_reprocess_all(pres); + ldlm_resource_putref(pres); + } + LDLM_DEBUG_NOLOCK("server-side cancel handler END"); + RETURN(done); } int ldlm_handle_cancel(struct ptlrpc_request *req) { struct ldlm_request *dlm_req; - struct ldlm_lock *lock; int rc; ENTRY; - rc = lustre_pack_msg(0, NULL, NULL, &req->rq_replen, &req->rq_repmsg); + dlm_req = lustre_swab_reqbuf(req, DLM_LOCKREQ_OFF, sizeof(*dlm_req), + lustre_swab_ldlm_request); + if (dlm_req == NULL) { + CERROR("bad request buffer for cancel\n"); + RETURN(-EFAULT); + } + + if (req->rq_export && req->rq_export->exp_ldlm_stats) + lprocfs_counter_incr(req->rq_export->exp_ldlm_stats, + LDLM_CANCEL - LDLM_FIRST_OPC); + + rc = lustre_pack_reply(req, 1, NULL, NULL); if (rc) { CERROR("out of memory\n"); RETURN(-ENOMEM); } - dlm_req = lustre_msg_buf(req->rq_reqmsg, 0); - if (!dlm_req) { - CERROR("bad request buffer for cancel\n"); - RETURN(-EINVAL); - } - lock = ldlm_handle2lock(&dlm_req->lock_handle1); - if (!lock) { - CERROR("bad lock handle\n"); - LDLM_DEBUG_NOLOCK("server-side cancel handler stale lock (lock " - "%p)", (void *)(unsigned long) - dlm_req->lock_handle1.addr); + if (!ldlm_request_cancel(req, dlm_req, 0)) req->rq_status = ESTALE; - } else { - LDLM_DEBUG(lock, "server-side cancel handler START"); - ldlm_lock_cancel(lock); - if (ldlm_del_waiting_lock(lock)) - CDEBUG(D_DLMTRACE, "cancelled waiting lock %p\n", lock); - req->rq_status = 0; - } - if (ptlrpc_reply(req->rq_svc, req) != 0) + if (ptlrpc_reply(req) != 0) LBUG(); - if (lock) { - ldlm_reprocess_all(lock->l_resource); - LDLM_DEBUG(lock, "server-side cancel handler END"); - LDLM_LOCK_PUT(lock); - } - RETURN(0); } -static int ldlm_handle_bl_callback(struct ptlrpc_request *req) +void ldlm_handle_bl_callback(struct ldlm_namespace *ns, + struct ldlm_lock_desc *ld, struct ldlm_lock *lock) { - struct ldlm_request *dlm_req; - struct ldlm_lock *lock; int do_ast; ENTRY; - OBD_FAIL_RETURN(OBD_FAIL_OSC_LOCK_BL_AST, 0); - - dlm_req = lustre_msg_buf(req->rq_reqmsg, 0); - - lock = ldlm_handle2lock(&dlm_req->lock_handle1); - if (!lock) { - CERROR("blocking callback on lock "LPX64" - lock disappeared\n", - dlm_req->lock_handle1.addr); - RETURN(0); - } - LDLM_DEBUG(lock, "client blocking AST callback handler START"); - l_lock(&lock->l_resource->lr_namespace->ns_lock); + lock_res_and_lock(lock); lock->l_flags |= LDLM_FL_CBPENDING; + + if (lock->l_flags & LDLM_FL_CANCEL_ON_BLOCK) + lock->l_flags |= LDLM_FL_CANCEL; + do_ast = (!lock->l_readers && !lock->l_writers); - l_unlock(&lock->l_resource->lr_namespace->ns_lock); + unlock_res_and_lock(lock); if (do_ast) { LDLM_DEBUG(lock, "already unused, calling " "callback (%p)", lock->l_blocking_ast); - if (lock->l_blocking_ast != NULL) { - lock->l_blocking_ast(lock, &dlm_req->lock_desc, - lock->l_data, lock->l_data_len, + if (lock->l_blocking_ast != NULL) + lock->l_blocking_ast(lock, ld, lock->l_ast_data, LDLM_CB_BLOCKING); - } - } else + } else { LDLM_DEBUG(lock, "Lock still has references, will be" " cancelled later"); + } LDLM_DEBUG(lock, "client blocking callback handler END"); LDLM_LOCK_PUT(lock); - RETURN(0); + EXIT; } -static int ldlm_handle_cp_callback(struct ptlrpc_request *req) +static void ldlm_handle_cp_callback(struct ptlrpc_request *req, + struct ldlm_namespace *ns, + struct ldlm_request *dlm_req, + struct ldlm_lock *lock) { - struct list_head ast_list = LIST_HEAD_INIT(ast_list); - struct ldlm_request *dlm_req; - struct ldlm_lock *lock; + CFS_LIST_HEAD(ast_list); ENTRY; - OBD_FAIL_RETURN(OBD_FAIL_OSC_LOCK_CP_AST, 0); - - dlm_req = lustre_msg_buf(req->rq_reqmsg, 0); - - lock = ldlm_handle2lock(&dlm_req->lock_handle1); - if (!lock) { - CERROR("completion callback on lock "LPX64" - lock " - "disappeared\n", dlm_req->lock_handle1.addr); - RETURN(0); - } - LDLM_DEBUG(lock, "client completion callback handler START"); - l_lock(&lock->l_resource->lr_namespace->ns_lock); + lock_res_and_lock(lock); /* If we receive the completion AST before the actual enqueue returned, * then we might need to switch lock modes, resources, or extents. */ @@ -450,89 +1264,354 @@ static int ldlm_handle_cp_callback(struct ptlrpc_request *req) lock->l_req_mode = dlm_req->lock_desc.l_granted_mode; LDLM_DEBUG(lock, "completion AST, new lock mode"); } - if (lock->l_resource->lr_type == LDLM_EXTENT) - memcpy(&lock->l_extent, &dlm_req->lock_desc.l_extent, - sizeof(lock->l_extent)); + + if (lock->l_resource->lr_type != LDLM_PLAIN) { + lock->l_policy_data = dlm_req->lock_desc.l_policy_data; + LDLM_DEBUG(lock, "completion AST, new policy data"); + } + ldlm_resource_unlink_lock(lock); - if (memcmp(dlm_req->lock_desc.l_resource.lr_name, - lock->l_resource->lr_name, - sizeof(__u64) * RES_NAME_SIZE) != 0) { - ldlm_lock_change_resource(lock, - dlm_req->lock_desc.l_resource.lr_name); + if (memcmp(&dlm_req->lock_desc.l_resource.lr_name, + &lock->l_resource->lr_name, + sizeof(lock->l_resource->lr_name)) != 0) { + unlock_res_and_lock(lock); + ldlm_lock_change_resource(ns, lock, + &dlm_req->lock_desc.l_resource.lr_name); LDLM_DEBUG(lock, "completion AST, new resource"); + CERROR("change resource!\n"); + lock_res_and_lock(lock); + } + + if (dlm_req->lock_flags & LDLM_FL_AST_SENT) { + lock->l_flags |= LDLM_FL_CBPENDING; + LDLM_DEBUG(lock, "completion AST includes blocking AST"); + } + + if (lock->l_lvb_len) { + void *lvb; + lvb = lustre_swab_reqbuf(req, DLM_REQ_REC_OFF, lock->l_lvb_len, + lock->l_lvb_swabber); + if (lvb == NULL) { + LDLM_ERROR(lock, "completion AST did not contain " + "expected LVB!"); + } else { + memcpy(lock->l_lvb_data, lvb, lock->l_lvb_len); + } } - lock->l_resource->lr_tmp = &ast_list; - ldlm_grant_lock(lock); - lock->l_resource->lr_tmp = NULL; - l_unlock(&lock->l_resource->lr_namespace->ns_lock); + + ldlm_grant_lock(lock, &ast_list); + unlock_res_and_lock(lock); + LDLM_DEBUG(lock, "callback handler finished, about to run_ast_work"); - LDLM_LOCK_PUT(lock); - ldlm_run_ast_work(&ast_list); + ldlm_run_cp_ast_work(&ast_list); LDLM_DEBUG_NOLOCK("client completion callback handler END (lock %p)", lock); + LDLM_LOCK_PUT(lock); + EXIT; +} + +static void ldlm_handle_gl_callback(struct ptlrpc_request *req, + struct ldlm_namespace *ns, + struct ldlm_request *dlm_req, + struct ldlm_lock *lock) +{ + int rc = -ENOSYS; + ENTRY; + + LDLM_DEBUG(lock, "client glimpse AST callback handler"); + + if (lock->l_glimpse_ast != NULL) + rc = lock->l_glimpse_ast(lock, req); + + if (req->rq_repmsg != NULL) { + ptlrpc_reply(req); + } else { + req->rq_status = rc; + ptlrpc_error(req); + } + + lock_res_and_lock(lock); + if (lock->l_granted_mode == LCK_PW && + !lock->l_readers && !lock->l_writers && + cfs_time_after(cfs_time_current(), + cfs_time_add(lock->l_last_used, + cfs_time_seconds(10)))) { + unlock_res_and_lock(lock); + if (ldlm_bl_to_thread_lock(ns, NULL, lock)) + ldlm_handle_bl_callback(ns, NULL, lock); + + EXIT; + return; + } + unlock_res_and_lock(lock); + LDLM_LOCK_PUT(lock); + EXIT; +} + +static int ldlm_callback_reply(struct ptlrpc_request *req, int rc) +{ + req->rq_status = rc; + if (req->rq_reply_state == NULL) { + rc = lustre_pack_reply(req, 1, NULL, NULL); + if (rc) + return rc; + } + return ptlrpc_reply(req); +} + +#ifdef __KERNEL__ +static int ldlm_bl_to_thread(struct ldlm_namespace *ns, + struct ldlm_lock_desc *ld, struct ldlm_lock *lock, + struct list_head *cancels, int count) +{ + struct ldlm_bl_pool *blp = ldlm_state->ldlm_bl_pool; + struct ldlm_bl_work_item *blwi; + ENTRY; + + if (cancels && count == 0) + RETURN(0); + + OBD_ALLOC(blwi, sizeof(*blwi)); + if (blwi == NULL) + RETURN(-ENOMEM); + + blwi->blwi_ns = ns; + if (ld != NULL) + blwi->blwi_ld = *ld; + if (count) { + list_add(&blwi->blwi_head, cancels); + list_del_init(cancels); + blwi->blwi_count = count; + } else { + blwi->blwi_lock = lock; + } + spin_lock(&blp->blp_lock); + list_add_tail(&blwi->blwi_entry, &blp->blp_list); + cfs_waitq_signal(&blp->blp_waitq); + spin_unlock(&blp->blp_lock); + RETURN(0); } +#endif + +int ldlm_bl_to_thread_lock(struct ldlm_namespace *ns, struct ldlm_lock_desc *ld, + struct ldlm_lock *lock) +{ +#ifdef __KERNEL__ + RETURN(ldlm_bl_to_thread(ns, ld, lock, NULL, 0)); +#else + RETURN(-ENOSYS); +#endif +} + +int ldlm_bl_to_thread_list(struct ldlm_namespace *ns, struct ldlm_lock_desc *ld, + struct list_head *cancels, int count) +{ +#ifdef __KERNEL__ + RETURN(ldlm_bl_to_thread(ns, ld, NULL, cancels, count)); +#else + RETURN(-ENOSYS); +#endif +} static int ldlm_callback_handler(struct ptlrpc_request *req) { + struct ldlm_namespace *ns; + struct ldlm_request *dlm_req; + struct ldlm_lock *lock; int rc; ENTRY; - rc = lustre_unpack_msg(req->rq_reqmsg, req->rq_reqlen); - if (rc) { - CERROR("lustre_ldlm: Invalid request: %d\n", rc); - RETURN(rc); - } + /* Requests arrive in sender's byte order. The ptlrpc service + * handler has already checked and, if necessary, byte-swapped the + * incoming request message body, but I am responsible for the + * message buffers. */ if (req->rq_export == NULL) { - CERROR("lustre_dlm: operation %d with missing/invalid export\n", - req->rq_reqmsg->opc); - RETURN(-ENOTCONN); + struct ldlm_request *dlm_req; + + CDEBUG(D_RPCTRACE, "operation %d from %s with bad " + "export cookie "LPX64"; this is " + "normal if this node rebooted with a lock held\n", + lustre_msg_get_opc(req->rq_reqmsg), + libcfs_id2str(req->rq_peer), + lustre_msg_get_handle(req->rq_reqmsg)->cookie); + + dlm_req = lustre_swab_reqbuf(req, DLM_LOCKREQ_OFF, + sizeof(*dlm_req), + lustre_swab_ldlm_request); + if (dlm_req != NULL) + CDEBUG(D_RPCTRACE, "--> lock cookie: "LPX64"\n", + dlm_req->lock_handle[0].cookie); + + ldlm_callback_reply(req, -ENOTCONN); + RETURN(0); } - switch (req->rq_reqmsg->opc) { + LASSERT(req->rq_export != NULL); + LASSERT(req->rq_export->exp_obd != NULL); + + switch (lustre_msg_get_opc(req->rq_reqmsg)) { case LDLM_BL_CALLBACK: - CDEBUG(D_INODE, "blocking ast\n"); OBD_FAIL_RETURN(OBD_FAIL_LDLM_BL_CALLBACK, 0); - rc = ldlm_handle_bl_callback(req); - RETURN(rc); + break; case LDLM_CP_CALLBACK: - CDEBUG(D_INODE, "completion ast\n"); OBD_FAIL_RETURN(OBD_FAIL_LDLM_CP_CALLBACK, 0); - rc = ldlm_handle_cp_callback(req); - RETURN(rc); + break; + case LDLM_GL_CALLBACK: + OBD_FAIL_RETURN(OBD_FAIL_LDLM_GL_CALLBACK, 0); + break; + case OBD_LOG_CANCEL: /* remove this eventually - for 1.4.0 compat */ + OBD_FAIL_RETURN(OBD_FAIL_OBD_LOG_CANCEL_NET, 0); + rc = llog_origin_handle_cancel(req); + ldlm_callback_reply(req, rc); + RETURN(0); + case OBD_QC_CALLBACK: + OBD_FAIL_RETURN(OBD_FAIL_OBD_QC_CALLBACK_NET, 0); + rc = target_handle_qc_callback(req); + ldlm_callback_reply(req, rc); + RETURN(0); + case QUOTA_DQACQ: + case QUOTA_DQREL: + /* reply in handler */ + rc = target_handle_dqacq_callback(req); + RETURN(0); + case LLOG_ORIGIN_HANDLE_CREATE: + OBD_FAIL_RETURN(OBD_FAIL_OBD_LOGD_NET, 0); + rc = llog_origin_handle_create(req); + ldlm_callback_reply(req, rc); + RETURN(0); + case LLOG_ORIGIN_HANDLE_NEXT_BLOCK: + OBD_FAIL_RETURN(OBD_FAIL_OBD_LOGD_NET, 0); + rc = llog_origin_handle_next_block(req); + ldlm_callback_reply(req, rc); + RETURN(0); + case LLOG_ORIGIN_HANDLE_READ_HEADER: + OBD_FAIL_RETURN(OBD_FAIL_OBD_LOGD_NET, 0); + rc = llog_origin_handle_read_header(req); + ldlm_callback_reply(req, rc); + RETURN(0); + case LLOG_ORIGIN_HANDLE_CLOSE: + OBD_FAIL_RETURN(OBD_FAIL_OBD_LOGD_NET, 0); + rc = llog_origin_handle_close(req); + ldlm_callback_reply(req, rc); + RETURN(0); + case SEC_CTX_FINI: + /* do nothing */ + RETURN(0); + default: + CERROR("unknown opcode %u\n", + lustre_msg_get_opc(req->rq_reqmsg)); + ldlm_callback_reply(req, -EPROTO); + RETURN(0); + } + + ns = req->rq_export->exp_obd->obd_namespace; + LASSERT(ns != NULL); + + dlm_req = lustre_swab_reqbuf(req, DLM_LOCKREQ_OFF, sizeof(*dlm_req), + lustre_swab_ldlm_request); + if (dlm_req == NULL) { + CERROR ("can't unpack dlm_req\n"); + ldlm_callback_reply(req, -EPROTO); + RETURN (0); + } + lock = ldlm_handle2lock_ns(ns, &dlm_req->lock_handle[0]); + if (!lock) { + CDEBUG(D_DLMTRACE, "callback on lock "LPX64" - lock " + "disappeared\n", dlm_req->lock_handle[0].cookie); + ldlm_callback_reply(req, -EINVAL); + RETURN(0); + } + + /* Copy hints/flags (e.g. LDLM_FL_DISCARD_DATA) from AST. */ + lock_res_and_lock(lock); + lock->l_flags |= (dlm_req->lock_flags & LDLM_AST_FLAGS); + if (lustre_msg_get_opc(req->rq_reqmsg) == LDLM_BL_CALLBACK) { + /* If somebody cancels locks and cache is already droped, + * we can tell the server we have no lock. Otherwise, we + * should send cancel after dropping the cache. */ + if ((lock->l_flags & LDLM_FL_CANCELING) && + (lock->l_flags & LDLM_FL_BL_DONE)) { + LDLM_DEBUG(lock, "callback on lock " + LPX64" - lock disappeared\n", + dlm_req->lock_handle[0].cookie); + unlock_res_and_lock(lock); + LDLM_LOCK_PUT(lock); + ldlm_callback_reply(req, -EINVAL); + RETURN(0); + } + lock->l_flags |= LDLM_FL_BL_AST; + } + unlock_res_and_lock(lock); + + /* We want the ost thread to get this reply so that it can respond + * to ost requests (write cache writeback) that might be triggered + * in the callback. + * + * But we'd also like to be able to indicate in the reply that we're + * cancelling right now, because it's unused, or have an intent result + * in the reply, so we might have to push the responsibility for sending + * the reply down into the AST handlers, alas. */ + + switch (lustre_msg_get_opc(req->rq_reqmsg)) { + case LDLM_BL_CALLBACK: + CDEBUG(D_INODE, "blocking ast\n"); + if (!(lock->l_flags & LDLM_FL_CANCEL_ON_BLOCK)) + ldlm_callback_reply(req, 0); + if (ldlm_bl_to_thread_lock(ns, &dlm_req->lock_desc, lock)) + ldlm_handle_bl_callback(ns, &dlm_req->lock_desc, lock); + break; + case LDLM_CP_CALLBACK: + CDEBUG(D_INODE, "completion ast\n"); + ldlm_callback_reply(req, 0); + ldlm_handle_cp_callback(req, ns, dlm_req, lock); + break; + case LDLM_GL_CALLBACK: + CDEBUG(D_INODE, "glimpse ast\n"); + ldlm_handle_gl_callback(req, ns, dlm_req, lock); + break; default: - CERROR("invalid opcode %d\n", req->rq_reqmsg->opc); - RETURN(-EINVAL); + LBUG(); /* checked above */ } RETURN(0); } - static int ldlm_cancel_handler(struct ptlrpc_request *req) { int rc; ENTRY; - rc = lustre_unpack_msg(req->rq_reqmsg, req->rq_reqlen); - if (rc) { - CERROR("lustre_ldlm: Invalid request: %d\n", rc); - RETURN(rc); - } + /* Requests arrive in sender's byte order. The ptlrpc service + * handler has already checked and, if necessary, byte-swapped the + * incoming request message body, but I am responsible for the + * message buffers. */ if (req->rq_export == NULL) { - CERROR("lustre_dlm: operation %d with missing/invalid export\n", - req->rq_reqmsg->opc); - RETURN(-ENOTCONN); + struct ldlm_request *dlm_req; + + CERROR("operation %d from %s with bad export cookie "LPU64"\n", + lustre_msg_get_opc(req->rq_reqmsg), + libcfs_id2str(req->rq_peer), + lustre_msg_get_handle(req->rq_reqmsg)->cookie); + + dlm_req = lustre_swab_reqbuf(req, DLM_LOCKREQ_OFF, + sizeof(*dlm_req), + lustre_swab_ldlm_request); + if (dlm_req != NULL) + ldlm_lock_dump_handle(D_ERROR, + &dlm_req->lock_handle[0]); + ldlm_callback_reply(req, -ENOTCONN); + RETURN(0); } - switch (req->rq_reqmsg->opc) { + switch (lustre_msg_get_opc(req->rq_reqmsg)) { - /* XXX FIXME move this back to mds/handler.c, bug 625069 */ + /* XXX FIXME move this back to mds/handler.c, bug 249 */ case LDLM_CANCEL: CDEBUG(D_INODE, "cancel\n"); OBD_FAIL_RETURN(OBD_FAIL_LDLM_CANCEL, 0); @@ -540,245 +1619,493 @@ static int ldlm_cancel_handler(struct ptlrpc_request *req) if (rc) break; RETURN(0); - + case OBD_LOG_CANCEL: + OBD_FAIL_RETURN(OBD_FAIL_OBD_LOG_CANCEL_NET, 0); + rc = llog_origin_handle_cancel(req); + ldlm_callback_reply(req, rc); + RETURN(0); default: - CERROR("invalid opcode %d\n", req->rq_reqmsg->opc); - RETURN(-EINVAL); + CERROR("invalid opcode %d\n", + lustre_msg_get_opc(req->rq_reqmsg)); + ldlm_callback_reply(req, -EINVAL); } RETURN(0); } +void ldlm_revoke_export_locks(struct obd_export *exp) +{ + struct list_head *locklist = &exp->exp_ldlm_data.led_held_locks; + struct list_head rpc_list; + struct ldlm_lock *lock, *next; + struct ldlm_lock_desc desc; + + ENTRY; + INIT_LIST_HEAD(&rpc_list); + + spin_lock(&exp->exp_ldlm_data.led_lock); + list_for_each_entry_safe(lock, next, locklist, l_export_chain) { + lock_res_and_lock(lock); + + if (lock->l_req_mode != lock->l_granted_mode) { + unlock_res_and_lock(lock); + continue; + } + + LASSERT(lock->l_resource); + if (lock->l_resource->lr_type != LDLM_IBITS && + lock->l_resource->lr_type != LDLM_PLAIN) { + unlock_res_and_lock(lock); + continue; + } + + if (lock->l_flags & LDLM_FL_AST_SENT) { + unlock_res_and_lock(lock); + continue; + } + + LASSERT(lock->l_blocking_ast); + LASSERT(!lock->l_blocking_lock); + + lock->l_flags |= LDLM_FL_AST_SENT; + list_move(&lock->l_export_chain, &rpc_list); + + unlock_res_and_lock(lock); + } + spin_unlock(&exp->exp_ldlm_data.led_lock); + + while (!list_empty(&rpc_list)) { + lock = list_entry(rpc_list.next, struct ldlm_lock, + l_export_chain); + list_del_init(&lock->l_export_chain); + + /* the desc just pretend to exclusive */ + ldlm_lock2desc(lock, &desc); + desc.l_req_mode = LCK_EX; + desc.l_granted_mode = 0; + + LDLM_LOCK_GET(lock); + lock->l_blocking_ast(lock, &desc, lock->l_ast_data, + LDLM_CB_BLOCKING); + LDLM_LOCK_PUT(lock); + } + EXIT; +} + +#ifdef __KERNEL__ +static struct ldlm_bl_work_item *ldlm_bl_get_work(struct ldlm_bl_pool *blp) +{ + struct ldlm_bl_work_item *blwi = NULL; + + spin_lock(&blp->blp_lock); + if (!list_empty(&blp->blp_list)) { + blwi = list_entry(blp->blp_list.next, struct ldlm_bl_work_item, + blwi_entry); + list_del(&blwi->blwi_entry); + } + spin_unlock(&blp->blp_lock); + + return blwi; +} + +struct ldlm_bl_thread_data { + int bltd_num; + struct ldlm_bl_pool *bltd_blp; +}; -static int ldlm_iocontrol(long cmd, struct lustre_handle *conn, int len, - void *karg, void *uarg) +static int ldlm_bl_thread_main(void *arg) { - struct obd_device *obddev = class_conn2obd(conn); - struct ptlrpc_connection *connection; - int err = 0; + struct ldlm_bl_thread_data *bltd = arg; + struct ldlm_bl_pool *blp = bltd->bltd_blp; ENTRY; - if (_IOC_TYPE(cmd) != IOC_LDLM_TYPE || _IOC_NR(cmd) < IOC_LDLM_MIN_NR || - _IOC_NR(cmd) > IOC_LDLM_MAX_NR) { - CDEBUG(D_IOCTL, "invalid ioctl (type %ld, nr %ld, size %ld)\n", - _IOC_TYPE(cmd), _IOC_NR(cmd), _IOC_SIZE(cmd)); - RETURN(-EINVAL); + { + char name[CFS_CURPROC_COMM_MAX]; + snprintf(name, sizeof(name) - 1, "ldlm_bl_%02d", + bltd->bltd_num); + cfs_daemonize(name); } - OBD_ALLOC(obddev->u.ldlm.ldlm_client, - sizeof(*obddev->u.ldlm.ldlm_client)); - connection = ptlrpc_uuid_to_connection("ldlm"); - if (!connection) - CERROR("No LDLM UUID found: assuming ldlm is local.\n"); + atomic_inc(&blp->blp_num_threads); + complete(&blp->blp_comp); - switch (cmd) { - case IOC_LDLM_TEST: - err = ldlm_test(obddev, conn); - CERROR("-- done err %d\n", err); - GOTO(out, err); - case IOC_LDLM_DUMP: - ldlm_dump_all_namespaces(); - GOTO(out, err); - default: - GOTO(out, err = -EINVAL); + while(1) { + struct l_wait_info lwi = { 0 }; + struct ldlm_bl_work_item *blwi = NULL; + + l_wait_event_exclusive(blp->blp_waitq, + (blwi = ldlm_bl_get_work(blp)) != NULL, + &lwi); + + if (blwi->blwi_ns == NULL) + break; + + if (blwi->blwi_count) { + /* The special case when we cancel locks in lru + * asynchronously, we pass the list of locks here. + * Thus lock is marked LDLM_FL_CANCELING, and already + * canceled locally. */ + ldlm_cli_cancel_list(&blwi->blwi_head, + blwi->blwi_count, NULL, 0, 0); + } else { + ldlm_handle_bl_callback(blwi->blwi_ns, &blwi->blwi_ld, + blwi->blwi_lock); + } + OBD_FREE(blwi, sizeof(*blwi)); } - out: - if (connection) - ptlrpc_put_connection(connection); - OBD_FREE(obddev->u.ldlm.ldlm_client, - sizeof(*obddev->u.ldlm.ldlm_client)); - return err; + atomic_dec(&blp->blp_num_threads); + complete(&blp->blp_comp); + RETURN(0); } -#define LDLM_NUM_THREADS 4 +#endif -static int ldlm_setup(struct obd_device *obddev, obd_count len, void *buf) +static int ldlm_setup(void); +static int ldlm_cleanup(int force); + +int ldlm_get_ref(void) +{ + int rc = 0; + ENTRY; + mutex_down(&ldlm_ref_sem); + if (++ldlm_refcount == 1) { + rc = ldlm_setup(); + if (rc) + ldlm_refcount--; + } + mutex_up(&ldlm_ref_sem); + + RETURN(rc); +} + +void ldlm_put_ref(int force) +{ + ENTRY; + mutex_down(&ldlm_ref_sem); + if (ldlm_refcount == 1) { + int rc = ldlm_cleanup(force); + if (rc) + CERROR("ldlm_cleanup failed: %d\n", rc); + else + ldlm_refcount--; + } else { + ldlm_refcount--; + } + mutex_up(&ldlm_ref_sem); + + EXIT; +} + +static int ldlm_setup(void) { - struct ldlm_obd *ldlm = &obddev->u.ldlm; - int rc, i; + struct ldlm_bl_pool *blp; + int rc = 0; +#ifdef __KERNEL__ + int i; +#endif ENTRY; - if (ldlm_already_setup) + if (ldlm_state != NULL) RETURN(-EALREADY); - MOD_INC_USE_COUNT; + OBD_ALLOC(ldlm_state, sizeof(*ldlm_state)); + if (ldlm_state == NULL) + RETURN(-ENOMEM); - rc = ldlm_proc_setup(obddev); +#ifdef LPROCFS + rc = ldlm_proc_setup(); if (rc != 0) - GOTO(out_dec, rc); - - ldlm->ldlm_cb_service = - ptlrpc_init_svc(LDLM_NEVENTS, LDLM_NBUFS, LDLM_BUFSIZE, - LDLM_MAXREQSIZE, LDLM_CB_REQUEST_PORTAL, - LDLM_CB_REPLY_PORTAL, "self", - ldlm_callback_handler, "ldlm_cbd"); - - if (!ldlm->ldlm_cb_service) - GOTO(out_dec, rc = -ENOMEM); - - ldlm->ldlm_cancel_service = - ptlrpc_init_svc(LDLM_NEVENTS, LDLM_NBUFS, LDLM_BUFSIZE, - LDLM_MAXREQSIZE, LDLM_CANCEL_REQUEST_PORTAL, - LDLM_CANCEL_REPLY_PORTAL, "self", - ldlm_cancel_handler, "ldlm_canceld"); - - if (!ldlm->ldlm_cancel_service) - GOTO(out_dec, rc = -ENOMEM); - - for (i = 0; i < LDLM_NUM_THREADS; i++) { - char name[32]; - sprintf(name, "lustre_dlm_%02d", i); - rc = ptlrpc_start_thread(obddev, ldlm->ldlm_cancel_service, - name); - if (rc) { - CERROR("cannot start LDLM thread #%d: rc %d\n", i, rc); - LBUG(); - GOTO(out_thread, rc); - } + GOTO(out_free, rc); +#endif + + ldlm_state->ldlm_cb_service = + ptlrpc_init_svc(LDLM_NBUFS, LDLM_BUFSIZE, LDLM_MAXREQSIZE, + LDLM_MAXREPSIZE, LDLM_CB_REQUEST_PORTAL, + LDLM_CB_REPLY_PORTAL, ldlm_timeout * 900, + ldlm_callback_handler, "ldlm_cbd", + ldlm_svc_proc_dir, NULL, + LDLM_THREADS_AUTO_MIN, LDLM_THREADS_AUTO_MAX, + "ldlm_cb", + LCT_MD_THREAD|LCT_DT_THREAD); + + if (!ldlm_state->ldlm_cb_service) { + CERROR("failed to start service\n"); + GOTO(out_proc, rc = -ENOMEM); + } + + ldlm_state->ldlm_cancel_service = + ptlrpc_init_svc(LDLM_NBUFS, LDLM_BUFSIZE, LDLM_MAXREQSIZE, + LDLM_MAXREPSIZE, LDLM_CANCEL_REQUEST_PORTAL, + LDLM_CANCEL_REPLY_PORTAL, ldlm_timeout * 6000, + ldlm_cancel_handler, "ldlm_canceld", + ldlm_svc_proc_dir, NULL, + LDLM_THREADS_AUTO_MIN, LDLM_THREADS_AUTO_MAX, + "ldlm_cn", + LCT_MD_THREAD|LCT_DT_THREAD|LCT_CL_THREAD); + + if (!ldlm_state->ldlm_cancel_service) { + CERROR("failed to start service\n"); + GOTO(out_proc, rc = -ENOMEM); } - for (i = 0; i < LDLM_NUM_THREADS; i++) { - char name[32]; - sprintf(name, "lustre_dlm_%02d", i); - rc = ptlrpc_start_thread(obddev, ldlm->ldlm_cb_service, name); - if (rc) { + OBD_ALLOC(blp, sizeof(*blp)); + if (blp == NULL) + GOTO(out_proc, rc = -ENOMEM); + ldlm_state->ldlm_bl_pool = blp; + + atomic_set(&blp->blp_num_threads, 0); + cfs_waitq_init(&blp->blp_waitq); + spin_lock_init(&blp->blp_lock); + + CFS_INIT_LIST_HEAD(&blp->blp_list); + +#ifdef __KERNEL__ + for (i = 0; i < LDLM_BL_THREADS; i++) { + struct ldlm_bl_thread_data bltd = { + .bltd_num = i, + .bltd_blp = blp, + }; + init_completion(&blp->blp_comp); + rc = cfs_kernel_thread(ldlm_bl_thread_main, &bltd, 0); + if (rc < 0) { CERROR("cannot start LDLM thread #%d: rc %d\n", i, rc); - LBUG(); GOTO(out_thread, rc); } + wait_for_completion(&blp->blp_comp); } - INIT_LIST_HEAD(&waiting_locks_list); + rc = ptlrpc_start_threads(NULL, ldlm_state->ldlm_cancel_service); + if (rc) + GOTO(out_thread, rc); + + rc = ptlrpc_start_threads(NULL, ldlm_state->ldlm_cb_service); + if (rc) + GOTO(out_thread, rc); + + CFS_INIT_LIST_HEAD(&expired_lock_thread.elt_expired_locks); + expired_lock_thread.elt_state = ELT_STOPPED; + cfs_waitq_init(&expired_lock_thread.elt_waitq); + + CFS_INIT_LIST_HEAD(&waiting_locks_list); spin_lock_init(&waiting_locks_spinlock); - waiting_locks_timer.function = waiting_locks_callback; - waiting_locks_timer.data = 0; - init_timer(&waiting_locks_timer); + cfs_timer_init(&waiting_locks_timer, waiting_locks_callback, 0); + + rc = cfs_kernel_thread(expired_lock_main, NULL, CLONE_VM | CLONE_FILES); + if (rc < 0) { + CERROR("Cannot start ldlm expired-lock thread: %d\n", rc); + GOTO(out_thread, rc); + } - ldlm_already_setup = 1; + wait_event(expired_lock_thread.elt_waitq, + expired_lock_thread.elt_state == ELT_READY); +#endif +#ifdef __KERNEL__ + rc = ldlm_pools_init(); + if (rc) + GOTO(out_thread, rc); +#endif RETURN(0); +#ifdef __KERNEL__ out_thread: - ptlrpc_stop_all_threads(ldlm->ldlm_cancel_service); - ptlrpc_unregister_service(ldlm->ldlm_cancel_service); - ptlrpc_stop_all_threads(ldlm->ldlm_cb_service); - ptlrpc_unregister_service(ldlm->ldlm_cb_service); + ptlrpc_unregister_service(ldlm_state->ldlm_cancel_service); + ptlrpc_unregister_service(ldlm_state->ldlm_cb_service); +#endif out_proc: - - ldlm_proc_cleanup(obddev); - - out_dec: - MOD_DEC_USE_COUNT; +#ifdef LPROCFS + ldlm_proc_cleanup(); + out_free: +#endif + OBD_FREE(ldlm_state, sizeof(*ldlm_state)); + ldlm_state = NULL; return rc; } -static int ldlm_cleanup(struct obd_device *obddev) +static int ldlm_cleanup(int force) { - struct ldlm_obd *ldlm = &obddev->u.ldlm; +#ifdef __KERNEL__ + struct ldlm_bl_pool *blp = ldlm_state->ldlm_bl_pool; +#endif ENTRY; - if (!list_empty(&ldlm_namespace_list)) { + if (!list_empty(ldlm_namespace_list(LDLM_NAMESPACE_SERVER)) || + !list_empty(ldlm_namespace_list(LDLM_NAMESPACE_CLIENT))) { CERROR("ldlm still has namespaces; clean these up first.\n"); + ldlm_dump_all_namespaces(LDLM_NAMESPACE_SERVER, D_DLMTRACE); + ldlm_dump_all_namespaces(LDLM_NAMESPACE_CLIENT, D_DLMTRACE); RETURN(-EBUSY); } - ptlrpc_stop_all_threads(ldlm->ldlm_cb_service); - ptlrpc_unregister_service(ldlm->ldlm_cb_service); - ptlrpc_stop_all_threads(ldlm->ldlm_cancel_service); - ptlrpc_unregister_service(ldlm->ldlm_cancel_service); - ldlm_proc_cleanup(obddev); +#ifdef __KERNEL__ + ldlm_pools_fini(); +#endif - ldlm_already_setup = 0; - MOD_DEC_USE_COUNT; - RETURN(0); -} +#ifdef __KERNEL__ + while (atomic_read(&blp->blp_num_threads) > 0) { + struct ldlm_bl_work_item blwi = { .blwi_ns = NULL }; -static int ldlm_connect(struct lustre_handle *conn, struct obd_device *src, - obd_uuid_t cluuid, struct recovd_obd *recovd, - ptlrpc_recovery_cb_t recover) -{ - return class_connect(conn, src, cluuid); -} + init_completion(&blp->blp_comp); -struct obd_ops ldlm_obd_ops = { - o_iocontrol: ldlm_iocontrol, - o_setup: ldlm_setup, - o_cleanup: ldlm_cleanup, - o_connect: ldlm_connect, - o_disconnect: class_disconnect -}; + spin_lock(&blp->blp_lock); + list_add_tail(&blwi.blwi_entry, &blp->blp_list); + cfs_waitq_signal(&blp->blp_waitq); + spin_unlock(&blp->blp_lock); -static int __init ldlm_init(void) -{ - int rc = class_register_type(&ldlm_obd_ops, 0, OBD_LDLM_DEVICENAME); - if (rc != 0) - return rc; + wait_for_completion(&blp->blp_comp); + } + OBD_FREE(blp, sizeof(*blp)); + + ptlrpc_unregister_service(ldlm_state->ldlm_cb_service); + ptlrpc_unregister_service(ldlm_state->ldlm_cancel_service); + ldlm_proc_cleanup(); - ldlm_resource_slab = kmem_cache_create("ldlm_resources", + expired_lock_thread.elt_state = ELT_TERMINATE; + cfs_waitq_signal(&expired_lock_thread.elt_waitq); + wait_event(expired_lock_thread.elt_waitq, + expired_lock_thread.elt_state == ELT_STOPPED); +#else + ptlrpc_unregister_service(ldlm_state->ldlm_cb_service); + ptlrpc_unregister_service(ldlm_state->ldlm_cancel_service); +#endif + + OBD_FREE(ldlm_state, sizeof(*ldlm_state)); + ldlm_state = NULL; + + RETURN(0); +} + +int __init ldlm_init(void) +{ + init_mutex(&ldlm_ref_sem); + init_mutex(ldlm_namespace_lock(LDLM_NAMESPACE_SERVER)); + init_mutex(ldlm_namespace_lock(LDLM_NAMESPACE_CLIENT)); + ldlm_resource_slab = cfs_mem_cache_create("ldlm_resources", sizeof(struct ldlm_resource), 0, - SLAB_HWCACHE_ALIGN, NULL, NULL); + SLAB_HWCACHE_ALIGN); if (ldlm_resource_slab == NULL) return -ENOMEM; - ldlm_lock_slab = kmem_cache_create("ldlm_locks", + ldlm_lock_slab = cfs_mem_cache_create("ldlm_locks", sizeof(struct ldlm_lock), 0, - SLAB_HWCACHE_ALIGN, NULL, NULL); + SLAB_HWCACHE_ALIGN); if (ldlm_lock_slab == NULL) { - kmem_cache_destroy(ldlm_resource_slab); + cfs_mem_cache_destroy(ldlm_resource_slab); return -ENOMEM; } return 0; } -static void __exit ldlm_exit(void) +void __exit ldlm_exit(void) { - class_unregister_type(OBD_LDLM_DEVICENAME); - if (kmem_cache_destroy(ldlm_resource_slab) != 0) - CERROR("couldn't free ldlm resource slab\n"); - if (kmem_cache_destroy(ldlm_lock_slab) != 0) - CERROR("couldn't free ldlm lock slab\n"); + int rc; + if (ldlm_refcount) + CERROR("ldlm_refcount is %d in ldlm_exit!\n", ldlm_refcount); + rc = cfs_mem_cache_destroy(ldlm_resource_slab); + LASSERTF(rc == 0, "couldn't free ldlm resource slab\n"); + rc = cfs_mem_cache_destroy(ldlm_lock_slab); + LASSERTF(rc == 0, "couldn't free ldlm lock slab\n"); } -EXPORT_SYMBOL(ldlm_completion_ast); -EXPORT_SYMBOL(ldlm_handle_enqueue); -EXPORT_SYMBOL(ldlm_handle_cancel); -EXPORT_SYMBOL(ldlm_handle_convert); +/* ldlm_extent.c */ +EXPORT_SYMBOL(ldlm_extent_shift_kms); + +/* ldlm_lock.c */ +EXPORT_SYMBOL(ldlm_get_processing_policy); +EXPORT_SYMBOL(ldlm_lock2desc); EXPORT_SYMBOL(ldlm_register_intent); -EXPORT_SYMBOL(ldlm_unregister_intent); EXPORT_SYMBOL(ldlm_lockname); EXPORT_SYMBOL(ldlm_typename); -EXPORT_SYMBOL(ldlm_handle2lock); EXPORT_SYMBOL(ldlm_lock2handle); +EXPORT_SYMBOL(__ldlm_handle2lock); +EXPORT_SYMBOL(ldlm_lock_get); EXPORT_SYMBOL(ldlm_lock_put); EXPORT_SYMBOL(ldlm_lock_match); +EXPORT_SYMBOL(ldlm_lock_cancel); EXPORT_SYMBOL(ldlm_lock_addref); EXPORT_SYMBOL(ldlm_lock_decref); +EXPORT_SYMBOL(ldlm_lock_decref_and_cancel); EXPORT_SYMBOL(ldlm_lock_change_resource); EXPORT_SYMBOL(ldlm_lock_set_data); +EXPORT_SYMBOL(ldlm_it2str); +EXPORT_SYMBOL(ldlm_lock_dump); +EXPORT_SYMBOL(ldlm_lock_dump_handle); +EXPORT_SYMBOL(ldlm_cancel_locks_for_export); +EXPORT_SYMBOL(ldlm_reprocess_all_ns); +EXPORT_SYMBOL(ldlm_lock_allow_match); + +/* ldlm_request.c */ +EXPORT_SYMBOL(ldlm_completion_ast); +EXPORT_SYMBOL(ldlm_blocking_ast); +EXPORT_SYMBOL(ldlm_glimpse_ast); +EXPORT_SYMBOL(ldlm_expired_completion_wait); +EXPORT_SYMBOL(ldlm_prep_enqueue_req); EXPORT_SYMBOL(ldlm_cli_convert); EXPORT_SYMBOL(ldlm_cli_enqueue); +EXPORT_SYMBOL(ldlm_cli_enqueue_fini); +EXPORT_SYMBOL(ldlm_cli_enqueue_local); EXPORT_SYMBOL(ldlm_cli_cancel); EXPORT_SYMBOL(ldlm_cli_cancel_unused); -EXPORT_SYMBOL(ldlm_match_or_enqueue); -EXPORT_SYMBOL(ldlm_it2str); -EXPORT_SYMBOL(ldlm_test); -EXPORT_SYMBOL(ldlm_regression_start); -EXPORT_SYMBOL(ldlm_regression_stop); -EXPORT_SYMBOL(ldlm_lock_dump); +EXPORT_SYMBOL(ldlm_cli_cancel_unused_resource); +EXPORT_SYMBOL(ldlm_cli_cancel_req); +EXPORT_SYMBOL(ldlm_cli_join_lru); +EXPORT_SYMBOL(ldlm_replay_locks); +EXPORT_SYMBOL(ldlm_resource_foreach); +EXPORT_SYMBOL(ldlm_namespace_foreach); +EXPORT_SYMBOL(ldlm_namespace_foreach_res); +EXPORT_SYMBOL(ldlm_resource_iterate); +EXPORT_SYMBOL(ldlm_cancel_resource_local); +EXPORT_SYMBOL(ldlm_cli_cancel_list); + +/* ldlm_lockd.c */ +EXPORT_SYMBOL(ldlm_server_blocking_ast); +EXPORT_SYMBOL(ldlm_server_completion_ast); +EXPORT_SYMBOL(ldlm_server_glimpse_ast); +EXPORT_SYMBOL(ldlm_handle_enqueue); +EXPORT_SYMBOL(ldlm_handle_enqueue0); +EXPORT_SYMBOL(ldlm_handle_cancel); +EXPORT_SYMBOL(ldlm_request_cancel); +EXPORT_SYMBOL(ldlm_handle_convert); +EXPORT_SYMBOL(ldlm_handle_convert0); +EXPORT_SYMBOL(ldlm_del_waiting_lock); +EXPORT_SYMBOL(ldlm_get_ref); +EXPORT_SYMBOL(ldlm_put_ref); +EXPORT_SYMBOL(ldlm_refresh_waiting_lock); +EXPORT_SYMBOL(ldlm_revoke_export_locks); + +/* ldlm_resource.c */ EXPORT_SYMBOL(ldlm_namespace_new); EXPORT_SYMBOL(ldlm_namespace_cleanup); EXPORT_SYMBOL(ldlm_namespace_free); EXPORT_SYMBOL(ldlm_namespace_dump); -EXPORT_SYMBOL(ldlm_cancel_locks_for_export); -EXPORT_SYMBOL(l_lock); -EXPORT_SYMBOL(l_unlock); - -MODULE_AUTHOR("Cluster File Systems, Inc. "); -MODULE_DESCRIPTION("Lustre Lock Management Module v0.1"); -MODULE_LICENSE("GPL"); +EXPORT_SYMBOL(ldlm_dump_all_namespaces); +EXPORT_SYMBOL(ldlm_resource_get); +EXPORT_SYMBOL(ldlm_resource_putref); +EXPORT_SYMBOL(ldlm_resource_unlink_lock); + +/* ldlm_lib.c */ +EXPORT_SYMBOL(client_import_add_conn); +EXPORT_SYMBOL(client_import_del_conn); +EXPORT_SYMBOL(client_obd_setup); +EXPORT_SYMBOL(client_obd_cleanup); +EXPORT_SYMBOL(client_connect_import); +EXPORT_SYMBOL(client_disconnect_export); +EXPORT_SYMBOL(target_start_recovery_thread); +EXPORT_SYMBOL(target_stop_recovery_thread); +EXPORT_SYMBOL(target_handle_connect); +EXPORT_SYMBOL(target_cleanup_recovery); +EXPORT_SYMBOL(target_destroy_export); +EXPORT_SYMBOL(target_cancel_recovery_timer); +EXPORT_SYMBOL(target_send_reply); +EXPORT_SYMBOL(target_queue_recovery_request); +EXPORT_SYMBOL(target_handle_ping); +EXPORT_SYMBOL(target_pack_pool_reply); +EXPORT_SYMBOL(target_handle_disconnect); + +/* l_lock.c */ +EXPORT_SYMBOL(lock_res_and_lock); +EXPORT_SYMBOL(unlock_res_and_lock); -module_init(ldlm_init); -module_exit(ldlm_exit);