drivers/staging/lustre/lustre/ldlm/ldlm_extent.c

   1 /*
   2  * GPL HEADER START
   3  *
   4  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   5  *
   6  * This program is free software; you can redistribute it and/or modify
   7  * it under the terms of the GNU General Public License version 2 only,
   8  * as published by the Free Software Foundation.
   9  *
  10  * This program is distributed in the hope that it will be useful, but
  11  * WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13  * General Public License version 2 for more details (a copy is included
  14  * in the LICENSE file that accompanied this code).
  15  *
  16  * You should have received a copy of the GNU General Public License
  17  * version 2 along with this program; If not, see
  18  * http://www.sun.com/software/products/lustre/docs/GPLv2.pdf
  19  *
  20  * Please contact Sun Microsystems, Inc., 4150 Network Circle, Santa Clara,
  21  * CA 95054 USA or visit www.sun.com if you need additional information or
  22  * have any questions.
  23  *
  24  * GPL HEADER END
  25  */
  26 /*
  27  * Copyright (c) 2002, 2010, Oracle and/or its affiliates. All rights reserved.
  28  * Use is subject to license terms.
  29  *
  30  * Copyright (c) 2010, 2012, Intel Corporation.
  31  */
  32 /*
  33  * This file is part of Lustre, http://www.lustre.org/
  34  * Lustre is a trademark of Sun Microsystems, Inc.
  35  *
  36  * lustre/ldlm/ldlm_extent.c
  37  *
  38  * Author: Peter Braam <braam@clusterfs.com>
  39  * Author: Phil Schwan <phil@clusterfs.com>
  40  */
  41
  42 /**
  43  * This file contains implementation of EXTENT lock type
  44  *
  45  * EXTENT lock type is for locking a contiguous range of values, represented
  46  * by 64-bit starting and ending offsets (inclusive). There are several extent
  47  * lock modes, some of which may be mutually incompatible. Extent locks are
  48  * considered incompatible if their modes are incompatible and their extents
  49  * intersect.  See the lock mode compatibility matrix in lustre_dlm.h.
  50  */
  51
  52 #define DEBUG_SUBSYSTEM S_LDLM
  53 # include <linux/libcfs/libcfs.h>
  54
  55 #include <lustre_dlm.h>
  56 #include <obd_support.h>
  57 #include <obd.h>
  58 #include <obd_class.h>
  59 #include <lustre_lib.h>
  60
  61 #include "ldlm_internal.h"
  62
  63
  64 /* When a lock is cancelled by a client, the KMS may undergo change if this
  65  * is the "highest lock".  This function returns the new KMS value.
  66  * Caller must hold lr_lock already.
  67  *
  68  * NB: A lock on [x,y] protects a KMS of up to y + 1 bytes! */
  69 __u64 ldlm_extent_shift_kms(struct ldlm_lock *lock, __u64 old_kms)
  70 {
  71         struct ldlm_resource *res = lock->l_resource;
  72         struct list_head *tmp;
  73         struct ldlm_lock *lck;
  74         __u64 kms = 0;
  75         ENTRY;
  76
  77         /* don't let another thread in ldlm_extent_shift_kms race in
  78          * just after we finish and take our lock into account in its
  79          * calculation of the kms */
  80         lock->l_flags |= LDLM_FL_KMS_IGNORE;
  81
  82         list_for_each(tmp, &res->lr_granted) {
  83                 lck = list_entry(tmp, struct ldlm_lock, l_res_link);
  84
  85                 if (lck->l_flags & LDLM_FL_KMS_IGNORE)
  86                         continue;
  87
  88                 if (lck->l_policy_data.l_extent.end >= old_kms)
  89                         RETURN(old_kms);
  90
  91                 /* This extent _has_ to be smaller than old_kms (checked above)
  92                  * so kms can only ever be smaller or the same as old_kms. */
  93                 if (lck->l_policy_data.l_extent.end + 1 > kms)
  94                         kms = lck->l_policy_data.l_extent.end + 1;
  95         }
  96         LASSERTF(kms <= old_kms, "kms "LPU64" old_kms "LPU64"\n", kms, old_kms);
  97
  98         RETURN(kms);
  99 }
 100 EXPORT_SYMBOL(ldlm_extent_shift_kms);
 101
 102 struct kmem_cache *ldlm_interval_slab;
 103 struct ldlm_interval *ldlm_interval_alloc(struct ldlm_lock *lock)
 104 {
 105         struct ldlm_interval *node;
 106         ENTRY;
 107
 108         LASSERT(lock->l_resource->lr_type == LDLM_EXTENT);
 109         OBD_SLAB_ALLOC_PTR_GFP(node, ldlm_interval_slab, __GFP_IO);
 110         if (node == NULL)
 111                 RETURN(NULL);
 112
 113         INIT_LIST_HEAD(&node->li_group);
 114         ldlm_interval_attach(node, lock);
 115         RETURN(node);
 116 }
 117
 118 void ldlm_interval_free(struct ldlm_interval *node)
 119 {
 120         if (node) {
 121                 LASSERT(list_empty(&node->li_group));
 122                 LASSERT(!interval_is_intree(&node->li_node));
 123                 OBD_SLAB_FREE(node, ldlm_interval_slab, sizeof(*node));
 124         }
 125 }
 126
 127 /* interval tree, for LDLM_EXTENT. */
 128 void ldlm_interval_attach(struct ldlm_interval *n,
 129                           struct ldlm_lock *l)
 130 {
 131         LASSERT(l->l_tree_node == NULL);
 132         LASSERT(l->l_resource->lr_type == LDLM_EXTENT);
 133
 134         list_add_tail(&l->l_sl_policy, &n->li_group);
 135         l->l_tree_node = n;
 136 }
 137
 138 struct ldlm_interval *ldlm_interval_detach(struct ldlm_lock *l)
 139 {
 140         struct ldlm_interval *n = l->l_tree_node;
 141
 142         if (n == NULL)
 143                 return NULL;
 144
 145         LASSERT(!list_empty(&n->li_group));
 146         l->l_tree_node = NULL;
 147         list_del_init(&l->l_sl_policy);
 148
 149         return (list_empty(&n->li_group) ? n : NULL);
 150 }
 151
 152 static inline int lock_mode_to_index(ldlm_mode_t mode)
 153 {
 154         int index;
 155
 156         LASSERT(mode != 0);
 157         LASSERT(IS_PO2(mode));
 158         for (index = -1; mode; index++, mode >>= 1) ;
 159         LASSERT(index < LCK_MODE_NUM);
 160         return index;
 161 }
 162
 163 /** Add newly granted lock into interval tree for the resource. */
 164 void ldlm_extent_add_lock(struct ldlm_resource *res,
 165                           struct ldlm_lock *lock)
 166 {
 167         struct interval_node *found, **root;
 168         struct ldlm_interval *node;
 169         struct ldlm_extent *extent;
 170         int idx;
 171
 172         LASSERT(lock->l_granted_mode == lock->l_req_mode);
 173
 174         node = lock->l_tree_node;
 175         LASSERT(node != NULL);
 176         LASSERT(!interval_is_intree(&node->li_node));
 177
 178         idx = lock_mode_to_index(lock->l_granted_mode);
 179         LASSERT(lock->l_granted_mode == 1 << idx);
 180         LASSERT(lock->l_granted_mode == res->lr_itree[idx].lit_mode);
 181
 182         /* node extent initialize */
 183         extent = &lock->l_policy_data.l_extent;
 184         interval_set(&node->li_node, extent->start, extent->end);
 185
 186         root = &res->lr_itree[idx].lit_root;
 187         found = interval_insert(&node->li_node, root);
 188         if (found) { /* The policy group found. */
 189                 struct ldlm_interval *tmp = ldlm_interval_detach(lock);
 190                 LASSERT(tmp != NULL);
 191                 ldlm_interval_free(tmp);
 192                 ldlm_interval_attach(to_ldlm_interval(found), lock);
 193         }
 194         res->lr_itree[idx].lit_size++;
 195
 196         /* even though we use interval tree to manage the extent lock, we also
 197          * add the locks into grant list, for debug purpose, .. */
 198         ldlm_resource_add_lock(res, &res->lr_granted, lock);
 199 }
 200
 201 /** Remove cancelled lock from resource interval tree. */
 202 void ldlm_extent_unlink_lock(struct ldlm_lock *lock)
 203 {
 204         struct ldlm_resource *res = lock->l_resource;
 205         struct ldlm_interval *node = lock->l_tree_node;
 206         struct ldlm_interval_tree *tree;
 207         int idx;
 208
 209         if (!node || !interval_is_intree(&node->li_node)) /* duplicate unlink */
 210                 return;
 211
 212         idx = lock_mode_to_index(lock->l_granted_mode);
 213         LASSERT(lock->l_granted_mode == 1 << idx);
 214         tree = &res->lr_itree[idx];
 215
 216         LASSERT(tree->lit_root != NULL); /* assure the tree is not null */
 217
 218         tree->lit_size--;
 219         node = ldlm_interval_detach(lock);
 220         if (node) {
 221                 interval_erase(&node->li_node, &tree->lit_root);
 222                 ldlm_interval_free(node);
 223         }
 224 }
 225
 226 void ldlm_extent_policy_wire_to_local(const ldlm_wire_policy_data_t *wpolicy,
 227                                      ldlm_policy_data_t *lpolicy)
 228 {
 229         memset(lpolicy, 0, sizeof(*lpolicy));
 230         lpolicy->l_extent.start = wpolicy->l_extent.start;
 231         lpolicy->l_extent.end = wpolicy->l_extent.end;
 232         lpolicy->l_extent.gid = wpolicy->l_extent.gid;
 233 }
 234
 235 void ldlm_extent_policy_local_to_wire(const ldlm_policy_data_t *lpolicy,
 236                                      ldlm_wire_policy_data_t *wpolicy)
 237 {
 238         memset(wpolicy, 0, sizeof(*wpolicy));
 239         wpolicy->l_extent.start = lpolicy->l_extent.start;
 240         wpolicy->l_extent.end = lpolicy->l_extent.end;
 241         wpolicy->l_extent.gid = lpolicy->l_extent.gid;
 242 }