1 /*****************************************************************************\
2 * Copyright (C) 2007-2010 Lawrence Livermore National Security, LLC.
3 * Copyright (C) 2007 The Regents of the University of California.
4 * Produced at Lawrence Livermore National Laboratory (cf, DISCLAIMER).
5 * Written by Brian Behlendorf <behlendorf1@llnl.gov>.
8 * This file is part of the SPL, Solaris Porting Layer.
9 * For details, see <http://github.com/behlendorf/spl/>.
11 * The SPL is free software; you can redistribute it and/or modify it
12 * under the terms of the GNU General Public License as published by the
13 * Free Software Foundation; either version 2 of the License, or (at your
14 * option) any later version.
16 * The SPL is distributed in the hope that it will be useful, but WITHOUT
17 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
18 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
21 * You should have received a copy of the GNU General Public License along
22 * with the SPL. If not, see <http://www.gnu.org/licenses/>.
23 *****************************************************************************
24 * Solaris Porting Layer (SPL) Kmem Implementation.
25 \*****************************************************************************/
28 #include <spl-debug.h>
30 #ifdef SS_DEBUG_SUBSYS
31 #undef SS_DEBUG_SUBSYS
34 #define SS_DEBUG_SUBSYS SS_KMEM
37 * The minimum amount of memory measured in pages to be free at all
38 * times on the system. This is similar to Linux's zone->pages_min
39 * multiplied by the number of zones and is sized based on that.
42 EXPORT_SYMBOL(minfree
);
45 * The desired amount of memory measured in pages to be free at all
46 * times on the system. This is similar to Linux's zone->pages_low
47 * multiplied by the number of zones and is sized based on that.
48 * Assuming all zones are being used roughly equally, when we drop
49 * below this threshold asynchronous page reclamation is triggered.
52 EXPORT_SYMBOL(desfree
);
55 * When above this amount of memory measures in pages the system is
56 * determined to have enough free memory. This is similar to Linux's
57 * zone->pages_high multiplied by the number of zones and is sized based
58 * on that. Assuming all zones are being used roughly equally, when
59 * asynchronous page reclamation reaches this threshold it stops.
62 EXPORT_SYMBOL(lotsfree
);
64 /* Unused always 0 in this implementation */
66 EXPORT_SYMBOL(needfree
);
68 pgcnt_t swapfs_minfree
= 0;
69 EXPORT_SYMBOL(swapfs_minfree
);
71 pgcnt_t swapfs_reserve
= 0;
72 EXPORT_SYMBOL(swapfs_reserve
);
74 vmem_t
*heap_arena
= NULL
;
75 EXPORT_SYMBOL(heap_arena
);
77 vmem_t
*zio_alloc_arena
= NULL
;
78 EXPORT_SYMBOL(zio_alloc_arena
);
80 vmem_t
*zio_arena
= NULL
;
81 EXPORT_SYMBOL(zio_arena
);
83 #ifndef HAVE_GET_VMALLOC_INFO
84 get_vmalloc_info_t get_vmalloc_info_fn
= SYMBOL_POISON
;
85 EXPORT_SYMBOL(get_vmalloc_info_fn
);
86 #endif /* HAVE_GET_VMALLOC_INFO */
88 #ifdef HAVE_PGDAT_HELPERS
89 # ifndef HAVE_FIRST_ONLINE_PGDAT
90 first_online_pgdat_t first_online_pgdat_fn
= SYMBOL_POISON
;
91 EXPORT_SYMBOL(first_online_pgdat_fn
);
92 # endif /* HAVE_FIRST_ONLINE_PGDAT */
94 # ifndef HAVE_NEXT_ONLINE_PGDAT
95 next_online_pgdat_t next_online_pgdat_fn
= SYMBOL_POISON
;
96 EXPORT_SYMBOL(next_online_pgdat_fn
);
97 # endif /* HAVE_NEXT_ONLINE_PGDAT */
99 # ifndef HAVE_NEXT_ZONE
100 next_zone_t next_zone_fn
= SYMBOL_POISON
;
101 EXPORT_SYMBOL(next_zone_fn
);
102 # endif /* HAVE_NEXT_ZONE */
104 #else /* HAVE_PGDAT_HELPERS */
106 # ifndef HAVE_PGDAT_LIST
107 struct pglist_data
*pgdat_list_addr
= SYMBOL_POISON
;
108 EXPORT_SYMBOL(pgdat_list_addr
);
109 # endif /* HAVE_PGDAT_LIST */
111 #endif /* HAVE_PGDAT_HELPERS */
113 #ifdef NEED_GET_ZONE_COUNTS
114 # ifndef HAVE_GET_ZONE_COUNTS
115 get_zone_counts_t get_zone_counts_fn
= SYMBOL_POISON
;
116 EXPORT_SYMBOL(get_zone_counts_fn
);
117 # endif /* HAVE_GET_ZONE_COUNTS */
120 spl_global_page_state(spl_zone_stat_item_t item
)
122 unsigned long active
;
123 unsigned long inactive
;
126 get_zone_counts(&active
, &inactive
, &free
);
128 case SPL_NR_FREE_PAGES
: return free
;
129 case SPL_NR_INACTIVE
: return inactive
;
130 case SPL_NR_ACTIVE
: return active
;
131 default: ASSERT(0); /* Unsupported */
137 # ifdef HAVE_GLOBAL_PAGE_STATE
139 spl_global_page_state(spl_zone_stat_item_t item
)
141 unsigned long pages
= 0;
144 case SPL_NR_FREE_PAGES
:
145 # ifdef HAVE_ZONE_STAT_ITEM_NR_FREE_PAGES
146 pages
+= global_page_state(NR_FREE_PAGES
);
149 case SPL_NR_INACTIVE
:
150 # ifdef HAVE_ZONE_STAT_ITEM_NR_INACTIVE
151 pages
+= global_page_state(NR_INACTIVE
);
153 # ifdef HAVE_ZONE_STAT_ITEM_NR_INACTIVE_ANON
154 pages
+= global_page_state(NR_INACTIVE_ANON
);
156 # ifdef HAVE_ZONE_STAT_ITEM_NR_INACTIVE_FILE
157 pages
+= global_page_state(NR_INACTIVE_FILE
);
161 # ifdef HAVE_ZONE_STAT_ITEM_NR_ACTIVE
162 pages
+= global_page_state(NR_ACTIVE
);
164 # ifdef HAVE_ZONE_STAT_ITEM_NR_ACTIVE_ANON
165 pages
+= global_page_state(NR_ACTIVE_ANON
);
167 # ifdef HAVE_ZONE_STAT_ITEM_NR_ACTIVE_FILE
168 pages
+= global_page_state(NR_ACTIVE_FILE
);
172 ASSERT(0); /* Unsupported */
178 # error "Both global_page_state() and get_zone_counts() unavailable"
179 # endif /* HAVE_GLOBAL_PAGE_STATE */
180 #endif /* NEED_GET_ZONE_COUNTS */
181 EXPORT_SYMBOL(spl_global_page_state
);
183 #if !defined(HAVE_INVALIDATE_INODES) && !defined(HAVE_INVALIDATE_INODES_CHECK)
184 invalidate_inodes_t invalidate_inodes_fn
= SYMBOL_POISON
;
185 EXPORT_SYMBOL(invalidate_inodes_fn
);
186 #endif /* !HAVE_INVALIDATE_INODES && !HAVE_INVALIDATE_INODES_CHECK */
188 #ifndef HAVE_SHRINK_DCACHE_MEMORY
189 shrink_dcache_memory_t shrink_dcache_memory_fn
= SYMBOL_POISON
;
190 EXPORT_SYMBOL(shrink_dcache_memory_fn
);
191 #endif /* HAVE_SHRINK_DCACHE_MEMORY */
193 #ifndef HAVE_SHRINK_ICACHE_MEMORY
194 shrink_icache_memory_t shrink_icache_memory_fn
= SYMBOL_POISON
;
195 EXPORT_SYMBOL(shrink_icache_memory_fn
);
196 #endif /* HAVE_SHRINK_ICACHE_MEMORY */
199 spl_kmem_availrmem(void)
201 /* The amount of easily available memory */
202 return (spl_global_page_state(SPL_NR_FREE_PAGES
) +
203 spl_global_page_state(SPL_NR_INACTIVE
));
205 EXPORT_SYMBOL(spl_kmem_availrmem
);
208 vmem_size(vmem_t
*vmp
, int typemask
)
210 struct vmalloc_info vmi
;
214 ASSERT(typemask
& (VMEM_ALLOC
| VMEM_FREE
));
216 get_vmalloc_info(&vmi
);
217 if (typemask
& VMEM_ALLOC
)
218 size
+= (size_t)vmi
.used
;
220 if (typemask
& VMEM_FREE
)
221 size
+= (size_t)(VMALLOC_TOTAL
- vmi
.used
);
225 EXPORT_SYMBOL(vmem_size
);
232 EXPORT_SYMBOL(kmem_debugging
);
234 #ifndef HAVE_KVASPRINTF
235 /* Simplified asprintf. */
236 char *kvasprintf(gfp_t gfp
, const char *fmt
, va_list ap
)
243 len
= vsnprintf(NULL
, 0, fmt
, aq
);
246 p
= kmalloc(len
+1, gfp
);
250 vsnprintf(p
, len
+1, fmt
, ap
);
254 EXPORT_SYMBOL(kvasprintf
);
255 #endif /* HAVE_KVASPRINTF */
258 kmem_vasprintf(const char *fmt
, va_list ap
)
265 ptr
= kvasprintf(GFP_KERNEL
, fmt
, aq
);
267 } while (ptr
== NULL
);
271 EXPORT_SYMBOL(kmem_vasprintf
);
274 kmem_asprintf(const char *fmt
, ...)
281 ptr
= kvasprintf(GFP_KERNEL
, fmt
, ap
);
283 } while (ptr
== NULL
);
287 EXPORT_SYMBOL(kmem_asprintf
);
290 __strdup(const char *str
, int flags
)
296 ptr
= kmalloc_nofail(n
+ 1, flags
);
298 memcpy(ptr
, str
, n
+ 1);
304 strdup(const char *str
)
306 return __strdup(str
, KM_SLEEP
);
308 EXPORT_SYMBOL(strdup
);
315 EXPORT_SYMBOL(strfree
);
318 * Memory allocation interfaces and debugging for basic kmem_*
319 * and vmem_* style memory allocation. When DEBUG_KMEM is enabled
320 * the SPL will keep track of the total memory allocated, and
321 * report any memory leaked when the module is unloaded.
325 /* Shim layer memory accounting */
326 # ifdef HAVE_ATOMIC64_T
327 atomic64_t kmem_alloc_used
= ATOMIC64_INIT(0);
328 unsigned long long kmem_alloc_max
= 0;
329 atomic64_t vmem_alloc_used
= ATOMIC64_INIT(0);
330 unsigned long long vmem_alloc_max
= 0;
331 # else /* HAVE_ATOMIC64_T */
332 atomic_t kmem_alloc_used
= ATOMIC_INIT(0);
333 unsigned long long kmem_alloc_max
= 0;
334 atomic_t vmem_alloc_used
= ATOMIC_INIT(0);
335 unsigned long long vmem_alloc_max
= 0;
336 # endif /* HAVE_ATOMIC64_T */
338 EXPORT_SYMBOL(kmem_alloc_used
);
339 EXPORT_SYMBOL(kmem_alloc_max
);
340 EXPORT_SYMBOL(vmem_alloc_used
);
341 EXPORT_SYMBOL(vmem_alloc_max
);
343 /* When DEBUG_KMEM_TRACKING is enabled not only will total bytes be tracked
344 * but also the location of every alloc and free. When the SPL module is
345 * unloaded a list of all leaked addresses and where they were allocated
346 * will be dumped to the console. Enabling this feature has a significant
347 * impact on performance but it makes finding memory leaks straight forward.
349 * Not surprisingly with debugging enabled the xmem_locks are very highly
350 * contended particularly on xfree(). If we want to run with this detailed
351 * debugging enabled for anything other than debugging we need to minimize
352 * the contention by moving to a lock per xmem_table entry model.
354 # ifdef DEBUG_KMEM_TRACKING
356 # define KMEM_HASH_BITS 10
357 # define KMEM_TABLE_SIZE (1 << KMEM_HASH_BITS)
359 # define VMEM_HASH_BITS 10
360 # define VMEM_TABLE_SIZE (1 << VMEM_HASH_BITS)
362 typedef struct kmem_debug
{
363 struct hlist_node kd_hlist
; /* Hash node linkage */
364 struct list_head kd_list
; /* List of all allocations */
365 void *kd_addr
; /* Allocation pointer */
366 size_t kd_size
; /* Allocation size */
367 const char *kd_func
; /* Allocation function */
368 int kd_line
; /* Allocation line */
371 spinlock_t kmem_lock
;
372 struct hlist_head kmem_table
[KMEM_TABLE_SIZE
];
373 struct list_head kmem_list
;
375 spinlock_t vmem_lock
;
376 struct hlist_head vmem_table
[VMEM_TABLE_SIZE
];
377 struct list_head vmem_list
;
379 EXPORT_SYMBOL(kmem_lock
);
380 EXPORT_SYMBOL(kmem_table
);
381 EXPORT_SYMBOL(kmem_list
);
383 EXPORT_SYMBOL(vmem_lock
);
384 EXPORT_SYMBOL(vmem_table
);
385 EXPORT_SYMBOL(vmem_list
);
387 static kmem_debug_t
*
388 kmem_del_init(spinlock_t
*lock
, struct hlist_head
*table
, int bits
, const void *addr
)
390 struct hlist_head
*head
;
391 struct hlist_node
*node
;
392 struct kmem_debug
*p
;
396 spin_lock_irqsave(lock
, flags
);
398 head
= &table
[hash_ptr(addr
, bits
)];
399 hlist_for_each_entry_rcu(p
, node
, head
, kd_hlist
) {
400 if (p
->kd_addr
== addr
) {
401 hlist_del_init(&p
->kd_hlist
);
402 list_del_init(&p
->kd_list
);
403 spin_unlock_irqrestore(lock
, flags
);
408 spin_unlock_irqrestore(lock
, flags
);
414 kmem_alloc_track(size_t size
, int flags
, const char *func
, int line
,
415 int node_alloc
, int node
)
419 unsigned long irq_flags
;
422 /* Function may be called with KM_NOSLEEP so failure is possible */
423 dptr
= (kmem_debug_t
*) kmalloc_nofail(sizeof(kmem_debug_t
),
424 flags
& ~__GFP_ZERO
);
426 if (unlikely(dptr
== NULL
)) {
427 SDEBUG_LIMIT(SD_CONSOLE
| SD_WARNING
, "debug "
428 "kmem_alloc(%ld, 0x%x) at %s:%d failed (%lld/%llu)\n",
429 sizeof(kmem_debug_t
), flags
, func
, line
,
430 kmem_alloc_used_read(), kmem_alloc_max
);
433 * Marked unlikely because we should never be doing this,
434 * we tolerate to up 2 pages but a single page is best.
436 if (unlikely((size
> PAGE_SIZE
*2) && !(flags
& KM_NODEBUG
))) {
437 SDEBUG_LIMIT(SD_CONSOLE
| SD_WARNING
, "large "
438 "kmem_alloc(%llu, 0x%x) at %s:%d (%lld/%llu)\n",
439 (unsigned long long) size
, flags
, func
, line
,
440 kmem_alloc_used_read(), kmem_alloc_max
);
441 spl_debug_dumpstack(NULL
);
445 * We use __strdup() below because the string pointed to by
446 * __FUNCTION__ might not be available by the time we want
447 * to print it since the module might have been unloaded.
448 * This can only fail in the KM_NOSLEEP case.
450 dptr
->kd_func
= __strdup(func
, flags
& ~__GFP_ZERO
);
451 if (unlikely(dptr
->kd_func
== NULL
)) {
453 SDEBUG_LIMIT(SD_CONSOLE
| SD_WARNING
,
454 "debug __strdup() at %s:%d failed (%lld/%llu)\n",
455 func
, line
, kmem_alloc_used_read(), kmem_alloc_max
);
459 /* Use the correct allocator */
461 ASSERT(!(flags
& __GFP_ZERO
));
462 ptr
= kmalloc_node_nofail(size
, flags
, node
);
463 } else if (flags
& __GFP_ZERO
) {
464 ptr
= kzalloc_nofail(size
, flags
& ~__GFP_ZERO
);
466 ptr
= kmalloc_nofail(size
, flags
);
469 if (unlikely(ptr
== NULL
)) {
470 kfree(dptr
->kd_func
);
472 SDEBUG_LIMIT(SD_CONSOLE
| SD_WARNING
, "kmem_alloc"
473 "(%llu, 0x%x) at %s:%d failed (%lld/%llu)\n",
474 (unsigned long long) size
, flags
, func
, line
,
475 kmem_alloc_used_read(), kmem_alloc_max
);
479 kmem_alloc_used_add(size
);
480 if (unlikely(kmem_alloc_used_read() > kmem_alloc_max
))
481 kmem_alloc_max
= kmem_alloc_used_read();
483 INIT_HLIST_NODE(&dptr
->kd_hlist
);
484 INIT_LIST_HEAD(&dptr
->kd_list
);
487 dptr
->kd_size
= size
;
488 dptr
->kd_line
= line
;
490 spin_lock_irqsave(&kmem_lock
, irq_flags
);
491 hlist_add_head_rcu(&dptr
->kd_hlist
,
492 &kmem_table
[hash_ptr(ptr
, KMEM_HASH_BITS
)]);
493 list_add_tail(&dptr
->kd_list
, &kmem_list
);
494 spin_unlock_irqrestore(&kmem_lock
, irq_flags
);
496 SDEBUG_LIMIT(SD_INFO
,
497 "kmem_alloc(%llu, 0x%x) at %s:%d = %p (%lld/%llu)\n",
498 (unsigned long long) size
, flags
, func
, line
, ptr
,
499 kmem_alloc_used_read(), kmem_alloc_max
);
504 EXPORT_SYMBOL(kmem_alloc_track
);
507 kmem_free_track(const void *ptr
, size_t size
)
512 ASSERTF(ptr
|| size
> 0, "ptr: %p, size: %llu", ptr
,
513 (unsigned long long) size
);
515 dptr
= kmem_del_init(&kmem_lock
, kmem_table
, KMEM_HASH_BITS
, ptr
);
517 /* Must exist in hash due to kmem_alloc() */
520 /* Size must match */
521 ASSERTF(dptr
->kd_size
== size
, "kd_size (%llu) != size (%llu), "
522 "kd_func = %s, kd_line = %d\n", (unsigned long long) dptr
->kd_size
,
523 (unsigned long long) size
, dptr
->kd_func
, dptr
->kd_line
);
525 kmem_alloc_used_sub(size
);
526 SDEBUG_LIMIT(SD_INFO
, "kmem_free(%p, %llu) (%lld/%llu)\n", ptr
,
527 (unsigned long long) size
, kmem_alloc_used_read(),
530 kfree(dptr
->kd_func
);
532 memset(dptr
, 0x5a, sizeof(kmem_debug_t
));
535 memset(ptr
, 0x5a, size
);
540 EXPORT_SYMBOL(kmem_free_track
);
543 vmem_alloc_track(size_t size
, int flags
, const char *func
, int line
)
547 unsigned long irq_flags
;
550 ASSERT(flags
& KM_SLEEP
);
552 /* Function may be called with KM_NOSLEEP so failure is possible */
553 dptr
= (kmem_debug_t
*) kmalloc_nofail(sizeof(kmem_debug_t
),
554 flags
& ~__GFP_ZERO
);
555 if (unlikely(dptr
== NULL
)) {
556 SDEBUG_LIMIT(SD_CONSOLE
| SD_WARNING
, "debug "
557 "vmem_alloc(%ld, 0x%x) at %s:%d failed (%lld/%llu)\n",
558 sizeof(kmem_debug_t
), flags
, func
, line
,
559 vmem_alloc_used_read(), vmem_alloc_max
);
562 * We use __strdup() below because the string pointed to by
563 * __FUNCTION__ might not be available by the time we want
564 * to print it, since the module might have been unloaded.
565 * This can never fail because we have already asserted
566 * that flags is KM_SLEEP.
568 dptr
->kd_func
= __strdup(func
, flags
& ~__GFP_ZERO
);
569 if (unlikely(dptr
->kd_func
== NULL
)) {
571 SDEBUG_LIMIT(SD_CONSOLE
| SD_WARNING
,
572 "debug __strdup() at %s:%d failed (%lld/%llu)\n",
573 func
, line
, vmem_alloc_used_read(), vmem_alloc_max
);
577 /* Use the correct allocator */
578 if (flags
& __GFP_ZERO
) {
579 ptr
= vzalloc_nofail(size
, flags
& ~__GFP_ZERO
);
581 ptr
= vmalloc_nofail(size
, flags
);
584 if (unlikely(ptr
== NULL
)) {
585 kfree(dptr
->kd_func
);
587 SDEBUG_LIMIT(SD_CONSOLE
| SD_WARNING
, "vmem_alloc"
588 "(%llu, 0x%x) at %s:%d failed (%lld/%llu)\n",
589 (unsigned long long) size
, flags
, func
, line
,
590 vmem_alloc_used_read(), vmem_alloc_max
);
594 vmem_alloc_used_add(size
);
595 if (unlikely(vmem_alloc_used_read() > vmem_alloc_max
))
596 vmem_alloc_max
= vmem_alloc_used_read();
598 INIT_HLIST_NODE(&dptr
->kd_hlist
);
599 INIT_LIST_HEAD(&dptr
->kd_list
);
602 dptr
->kd_size
= size
;
603 dptr
->kd_line
= line
;
605 spin_lock_irqsave(&vmem_lock
, irq_flags
);
606 hlist_add_head_rcu(&dptr
->kd_hlist
,
607 &vmem_table
[hash_ptr(ptr
, VMEM_HASH_BITS
)]);
608 list_add_tail(&dptr
->kd_list
, &vmem_list
);
609 spin_unlock_irqrestore(&vmem_lock
, irq_flags
);
611 SDEBUG_LIMIT(SD_INFO
,
612 "vmem_alloc(%llu, 0x%x) at %s:%d = %p (%lld/%llu)\n",
613 (unsigned long long) size
, flags
, func
, line
,
614 ptr
, vmem_alloc_used_read(), vmem_alloc_max
);
619 EXPORT_SYMBOL(vmem_alloc_track
);
622 vmem_free_track(const void *ptr
, size_t size
)
627 ASSERTF(ptr
|| size
> 0, "ptr: %p, size: %llu", ptr
,
628 (unsigned long long) size
);
630 dptr
= kmem_del_init(&vmem_lock
, vmem_table
, VMEM_HASH_BITS
, ptr
);
632 /* Must exist in hash due to vmem_alloc() */
635 /* Size must match */
636 ASSERTF(dptr
->kd_size
== size
, "kd_size (%llu) != size (%llu), "
637 "kd_func = %s, kd_line = %d\n", (unsigned long long) dptr
->kd_size
,
638 (unsigned long long) size
, dptr
->kd_func
, dptr
->kd_line
);
640 vmem_alloc_used_sub(size
);
641 SDEBUG_LIMIT(SD_INFO
, "vmem_free(%p, %llu) (%lld/%llu)\n", ptr
,
642 (unsigned long long) size
, vmem_alloc_used_read(),
645 kfree(dptr
->kd_func
);
647 memset(dptr
, 0x5a, sizeof(kmem_debug_t
));
650 memset(ptr
, 0x5a, size
);
655 EXPORT_SYMBOL(vmem_free_track
);
657 # else /* DEBUG_KMEM_TRACKING */
660 kmem_alloc_debug(size_t size
, int flags
, const char *func
, int line
,
661 int node_alloc
, int node
)
667 * Marked unlikely because we should never be doing this,
668 * we tolerate to up 2 pages but a single page is best.
670 if (unlikely((size
> PAGE_SIZE
* 2) && !(flags
& KM_NODEBUG
))) {
671 SDEBUG(SD_CONSOLE
| SD_WARNING
,
672 "large kmem_alloc(%llu, 0x%x) at %s:%d (%lld/%llu)\n",
673 (unsigned long long) size
, flags
, func
, line
,
674 kmem_alloc_used_read(), kmem_alloc_max
);
678 /* Use the correct allocator */
680 ASSERT(!(flags
& __GFP_ZERO
));
681 ptr
= kmalloc_node_nofail(size
, flags
, node
);
682 } else if (flags
& __GFP_ZERO
) {
683 ptr
= kzalloc_nofail(size
, flags
& (~__GFP_ZERO
));
685 ptr
= kmalloc_nofail(size
, flags
);
688 if (unlikely(ptr
== NULL
)) {
689 SDEBUG_LIMIT(SD_CONSOLE
| SD_WARNING
,
690 "kmem_alloc(%llu, 0x%x) at %s:%d failed (%lld/%llu)\n",
691 (unsigned long long) size
, flags
, func
, line
,
692 kmem_alloc_used_read(), kmem_alloc_max
);
694 kmem_alloc_used_add(size
);
695 if (unlikely(kmem_alloc_used_read() > kmem_alloc_max
))
696 kmem_alloc_max
= kmem_alloc_used_read();
698 SDEBUG_LIMIT(SD_INFO
,
699 "kmem_alloc(%llu, 0x%x) at %s:%d = %p (%lld/%llu)\n",
700 (unsigned long long) size
, flags
, func
, line
, ptr
,
701 kmem_alloc_used_read(), kmem_alloc_max
);
706 EXPORT_SYMBOL(kmem_alloc_debug
);
709 kmem_free_debug(const void *ptr
, size_t size
)
713 ASSERTF(ptr
|| size
> 0, "ptr: %p, size: %llu", ptr
,
714 (unsigned long long) size
);
716 kmem_alloc_used_sub(size
);
717 SDEBUG_LIMIT(SD_INFO
, "kmem_free(%p, %llu) (%lld/%llu)\n", ptr
,
718 (unsigned long long) size
, kmem_alloc_used_read(),
724 EXPORT_SYMBOL(kmem_free_debug
);
727 vmem_alloc_debug(size_t size
, int flags
, const char *func
, int line
)
732 ASSERT(flags
& KM_SLEEP
);
734 /* Use the correct allocator */
735 if (flags
& __GFP_ZERO
) {
736 ptr
= vzalloc_nofail(size
, flags
& (~__GFP_ZERO
));
738 ptr
= vmalloc_nofail(size
, flags
);
741 if (unlikely(ptr
== NULL
)) {
742 SDEBUG_LIMIT(SD_CONSOLE
| SD_WARNING
,
743 "vmem_alloc(%llu, 0x%x) at %s:%d failed (%lld/%llu)\n",
744 (unsigned long long) size
, flags
, func
, line
,
745 vmem_alloc_used_read(), vmem_alloc_max
);
747 vmem_alloc_used_add(size
);
748 if (unlikely(vmem_alloc_used_read() > vmem_alloc_max
))
749 vmem_alloc_max
= vmem_alloc_used_read();
751 SDEBUG_LIMIT(SD_INFO
, "vmem_alloc(%llu, 0x%x) = %p "
752 "(%lld/%llu)\n", (unsigned long long) size
, flags
, ptr
,
753 vmem_alloc_used_read(), vmem_alloc_max
);
758 EXPORT_SYMBOL(vmem_alloc_debug
);
761 vmem_free_debug(const void *ptr
, size_t size
)
765 ASSERTF(ptr
|| size
> 0, "ptr: %p, size: %llu", ptr
,
766 (unsigned long long) size
);
768 vmem_alloc_used_sub(size
);
769 SDEBUG_LIMIT(SD_INFO
, "vmem_free(%p, %llu) (%lld/%llu)\n", ptr
,
770 (unsigned long long) size
, vmem_alloc_used_read(),
776 EXPORT_SYMBOL(vmem_free_debug
);
778 # endif /* DEBUG_KMEM_TRACKING */
779 #endif /* DEBUG_KMEM */
782 * Slab allocation interfaces
784 * While the Linux slab implementation was inspired by the Solaris
785 * implementation I cannot use it to emulate the Solaris APIs. I
786 * require two features which are not provided by the Linux slab.
788 * 1) Constructors AND destructors. Recent versions of the Linux
789 * kernel have removed support for destructors. This is a deal
790 * breaker for the SPL which contains particularly expensive
791 * initializers for mutex's, condition variables, etc. We also
792 * require a minimal level of cleanup for these data types unlike
793 * many Linux data type which do need to be explicitly destroyed.
795 * 2) Virtual address space backed slab. Callers of the Solaris slab
796 * expect it to work well for both small are very large allocations.
797 * Because of memory fragmentation the Linux slab which is backed
798 * by kmalloc'ed memory performs very badly when confronted with
799 * large numbers of large allocations. Basing the slab on the
800 * virtual address space removes the need for contiguous pages
801 * and greatly improve performance for large allocations.
803 * For these reasons, the SPL has its own slab implementation with
804 * the needed features. It is not as highly optimized as either the
805 * Solaris or Linux slabs, but it should get me most of what is
806 * needed until it can be optimized or obsoleted by another approach.
808 * One serious concern I do have about this method is the relatively
809 * small virtual address space on 32bit arches. This will seriously
810 * constrain the size of the slab caches and their performance.
812 * XXX: Improve the partial slab list by carefully maintaining a
813 * strict ordering of fullest to emptiest slabs based on
814 * the slab reference count. This guarantees the when freeing
815 * slabs back to the system we need only linearly traverse the
816 * last N slabs in the list to discover all the freeable slabs.
818 * XXX: NUMA awareness for optionally allocating memory close to a
819 * particular core. This can be advantageous if you know the slab
820 * object will be short lived and primarily accessed from one core.
822 * XXX: Slab coloring may also yield performance improvements and would
823 * be desirable to implement.
826 struct list_head spl_kmem_cache_list
; /* List of caches */
827 struct rw_semaphore spl_kmem_cache_sem
; /* Cache list lock */
829 static int spl_cache_flush(spl_kmem_cache_t
*skc
,
830 spl_kmem_magazine_t
*skm
, int flush
);
832 SPL_SHRINKER_CALLBACK_FWD_DECLARE(spl_kmem_cache_generic_shrinker
);
833 SPL_SHRINKER_DECLARE(spl_kmem_cache_shrinker
,
834 spl_kmem_cache_generic_shrinker
, KMC_DEFAULT_SEEKS
);
837 kv_alloc(spl_kmem_cache_t
*skc
, int size
, int flags
)
843 if (skc
->skc_flags
& KMC_KMEM
) {
844 ptr
= (void *)__get_free_pages(flags
, get_order(size
));
846 #ifdef HAVE_PMD_ALLOC_WITH_MASK
847 ptr
= __vmalloc(size
, flags
|__GFP_HIGHMEM
, PAGE_KERNEL
);
850 * As part of vmalloc() an __pte_alloc_kernel() allocation
851 * may occur. This internal allocation does not honor the
852 * gfp flags passed to vmalloc(). This means even when
853 * vmalloc(GFP_NOFS) is called it is possible synchronous
854 * reclaim will occur. This reclaim can trigger file IO
855 * which can result in a deadlock. This issue can be avoided
856 * by explicitly setting PF_MEMALLOC on the process to
857 * subvert synchronous reclaim. The following bug has
858 * been filed at kernel.org to track the issue.
860 * https://bugzilla.kernel.org/show_bug.cgi?id=30702
862 * NOTE: Only set PF_MEMALLOC if it's not already set, and
863 * then only clear it when we were the one who set it.
865 if (!(flags
& __GFP_FS
) && !(current
->flags
& PF_MEMALLOC
)) {
866 current
->flags
|= PF_MEMALLOC
;
867 ptr
= __vmalloc(size
, flags
|__GFP_HIGHMEM
, PAGE_KERNEL
);
868 current
->flags
&= ~PF_MEMALLOC
;
870 ptr
= __vmalloc(size
, flags
|__GFP_HIGHMEM
, PAGE_KERNEL
);
875 /* Resulting allocated memory will be page aligned */
876 ASSERT(IS_P2ALIGNED(ptr
, PAGE_SIZE
));
882 kv_free(spl_kmem_cache_t
*skc
, void *ptr
, int size
)
884 ASSERT(IS_P2ALIGNED(ptr
, PAGE_SIZE
));
888 * The Linux direct reclaim path uses this out of band value to
889 * determine if forward progress is being made. Normally this is
890 * incremented by kmem_freepages() which is part of the various
891 * Linux slab implementations. However, since we are using none
892 * of that infrastructure we are responsible for incrementing it.
894 if (current
->reclaim_state
)
895 current
->reclaim_state
->reclaimed_slab
+= size
>> PAGE_SHIFT
;
897 if (skc
->skc_flags
& KMC_KMEM
)
898 free_pages((unsigned long)ptr
, get_order(size
));
904 * Required space for each aligned sks.
906 static inline uint32_t
907 spl_sks_size(spl_kmem_cache_t
*skc
)
909 return P2ROUNDUP_TYPED(sizeof(spl_kmem_slab_t
),
910 skc
->skc_obj_align
, uint32_t);
914 * Required space for each aligned object.
916 static inline uint32_t
917 spl_obj_size(spl_kmem_cache_t
*skc
)
919 uint32_t align
= skc
->skc_obj_align
;
921 return P2ROUNDUP_TYPED(skc
->skc_obj_size
, align
, uint32_t) +
922 P2ROUNDUP_TYPED(sizeof(spl_kmem_obj_t
), align
, uint32_t);
926 * Lookup the spl_kmem_object_t for an object given that object.
928 static inline spl_kmem_obj_t
*
929 spl_sko_from_obj(spl_kmem_cache_t
*skc
, void *obj
)
931 return obj
+ P2ROUNDUP_TYPED(skc
->skc_obj_size
,
932 skc
->skc_obj_align
, uint32_t);
936 * Required space for each offslab object taking in to account alignment
937 * restrictions and the power-of-two requirement of kv_alloc().
939 static inline uint32_t
940 spl_offslab_size(spl_kmem_cache_t
*skc
)
942 return 1UL << (highbit(spl_obj_size(skc
)) + 1);
946 * It's important that we pack the spl_kmem_obj_t structure and the
947 * actual objects in to one large address space to minimize the number
948 * of calls to the allocator. It is far better to do a few large
949 * allocations and then subdivide it ourselves. Now which allocator
950 * we use requires balancing a few trade offs.
952 * For small objects we use kmem_alloc() because as long as you are
953 * only requesting a small number of pages (ideally just one) its cheap.
954 * However, when you start requesting multiple pages with kmem_alloc()
955 * it gets increasingly expensive since it requires contiguous pages.
956 * For this reason we shift to vmem_alloc() for slabs of large objects
957 * which removes the need for contiguous pages. We do not use
958 * vmem_alloc() in all cases because there is significant locking
959 * overhead in __get_vm_area_node(). This function takes a single
960 * global lock when acquiring an available virtual address range which
961 * serializes all vmem_alloc()'s for all slab caches. Using slightly
962 * different allocation functions for small and large objects should
963 * give us the best of both worlds.
965 * KMC_ONSLAB KMC_OFFSLAB
967 * +------------------------+ +-----------------+
968 * | spl_kmem_slab_t --+-+ | | spl_kmem_slab_t |---+-+
969 * | skc_obj_size <-+ | | +-----------------+ | |
970 * | spl_kmem_obj_t | | | |
971 * | skc_obj_size <---+ | +-----------------+ | |
972 * | spl_kmem_obj_t | | | skc_obj_size | <-+ |
973 * | ... v | | spl_kmem_obj_t | |
974 * +------------------------+ +-----------------+ v
976 static spl_kmem_slab_t
*
977 spl_slab_alloc(spl_kmem_cache_t
*skc
, int flags
)
979 spl_kmem_slab_t
*sks
;
980 spl_kmem_obj_t
*sko
, *n
;
982 uint32_t obj_size
, offslab_size
= 0;
985 base
= kv_alloc(skc
, skc
->skc_slab_size
, flags
);
989 sks
= (spl_kmem_slab_t
*)base
;
990 sks
->sks_magic
= SKS_MAGIC
;
991 sks
->sks_objs
= skc
->skc_slab_objs
;
992 sks
->sks_age
= jiffies
;
993 sks
->sks_cache
= skc
;
994 INIT_LIST_HEAD(&sks
->sks_list
);
995 INIT_LIST_HEAD(&sks
->sks_free_list
);
997 obj_size
= spl_obj_size(skc
);
999 if (skc
->skc_flags
& KMC_OFFSLAB
)
1000 offslab_size
= spl_offslab_size(skc
);
1002 for (i
= 0; i
< sks
->sks_objs
; i
++) {
1003 if (skc
->skc_flags
& KMC_OFFSLAB
) {
1004 obj
= kv_alloc(skc
, offslab_size
, flags
);
1006 SGOTO(out
, rc
= -ENOMEM
);
1008 obj
= base
+ spl_sks_size(skc
) + (i
* obj_size
);
1011 ASSERT(IS_P2ALIGNED(obj
, skc
->skc_obj_align
));
1012 sko
= spl_sko_from_obj(skc
, obj
);
1013 sko
->sko_addr
= obj
;
1014 sko
->sko_magic
= SKO_MAGIC
;
1015 sko
->sko_slab
= sks
;
1016 INIT_LIST_HEAD(&sko
->sko_list
);
1017 list_add_tail(&sko
->sko_list
, &sks
->sks_free_list
);
1020 list_for_each_entry(sko
, &sks
->sks_free_list
, sko_list
)
1022 skc
->skc_ctor(sko
->sko_addr
, skc
->skc_private
, flags
);
1025 if (skc
->skc_flags
& KMC_OFFSLAB
)
1026 list_for_each_entry_safe(sko
, n
, &sks
->sks_free_list
,
1028 kv_free(skc
, sko
->sko_addr
, offslab_size
);
1030 kv_free(skc
, base
, skc
->skc_slab_size
);
1038 * Remove a slab from complete or partial list, it must be called with
1039 * the 'skc->skc_lock' held but the actual free must be performed
1040 * outside the lock to prevent deadlocking on vmem addresses.
1043 spl_slab_free(spl_kmem_slab_t
*sks
,
1044 struct list_head
*sks_list
, struct list_head
*sko_list
)
1046 spl_kmem_cache_t
*skc
;
1049 ASSERT(sks
->sks_magic
== SKS_MAGIC
);
1050 ASSERT(sks
->sks_ref
== 0);
1052 skc
= sks
->sks_cache
;
1053 ASSERT(skc
->skc_magic
== SKC_MAGIC
);
1054 ASSERT(spin_is_locked(&skc
->skc_lock
));
1057 * Update slab/objects counters in the cache, then remove the
1058 * slab from the skc->skc_partial_list. Finally add the slab
1059 * and all its objects in to the private work lists where the
1060 * destructors will be called and the memory freed to the system.
1062 skc
->skc_obj_total
-= sks
->sks_objs
;
1063 skc
->skc_slab_total
--;
1064 list_del(&sks
->sks_list
);
1065 list_add(&sks
->sks_list
, sks_list
);
1066 list_splice_init(&sks
->sks_free_list
, sko_list
);
1072 * Traverses all the partial slabs attached to a cache and free those
1073 * which which are currently empty, and have not been touched for
1074 * skc_delay seconds to avoid thrashing. The count argument is
1075 * passed to optionally cap the number of slabs reclaimed, a count
1076 * of zero means try and reclaim everything. When flag is set we
1077 * always free an available slab regardless of age.
1080 spl_slab_reclaim(spl_kmem_cache_t
*skc
, int count
, int flag
)
1082 spl_kmem_slab_t
*sks
, *m
;
1083 spl_kmem_obj_t
*sko
, *n
;
1084 LIST_HEAD(sks_list
);
1085 LIST_HEAD(sko_list
);
1091 * Move empty slabs and objects which have not been touched in
1092 * skc_delay seconds on to private lists to be freed outside
1093 * the spin lock. This delay time is important to avoid thrashing
1094 * however when flag is set the delay will not be used.
1096 spin_lock(&skc
->skc_lock
);
1097 list_for_each_entry_safe_reverse(sks
,m
,&skc
->skc_partial_list
,sks_list
){
1099 * All empty slabs are at the end of skc->skc_partial_list,
1100 * therefore once a non-empty slab is found we can stop
1101 * scanning. Additionally, stop when reaching the target
1102 * reclaim 'count' if a non-zero threshold is given.
1104 if ((sks
->sks_ref
> 0) || (count
&& i
>= count
))
1107 if (time_after(jiffies
,sks
->sks_age
+skc
->skc_delay
*HZ
)||flag
) {
1108 spl_slab_free(sks
, &sks_list
, &sko_list
);
1112 spin_unlock(&skc
->skc_lock
);
1115 * The following two loops ensure all the object destructors are
1116 * run, any offslab objects are freed, and the slabs themselves
1117 * are freed. This is all done outside the skc->skc_lock since
1118 * this allows the destructor to sleep, and allows us to perform
1119 * a conditional reschedule when a freeing a large number of
1120 * objects and slabs back to the system.
1122 if (skc
->skc_flags
& KMC_OFFSLAB
)
1123 size
= spl_offslab_size(skc
);
1125 list_for_each_entry_safe(sko
, n
, &sko_list
, sko_list
) {
1126 ASSERT(sko
->sko_magic
== SKO_MAGIC
);
1129 skc
->skc_dtor(sko
->sko_addr
, skc
->skc_private
);
1131 if (skc
->skc_flags
& KMC_OFFSLAB
)
1132 kv_free(skc
, sko
->sko_addr
, size
);
1137 list_for_each_entry_safe(sks
, m
, &sks_list
, sks_list
) {
1138 ASSERT(sks
->sks_magic
== SKS_MAGIC
);
1139 kv_free(skc
, sks
, skc
->skc_slab_size
);
1147 * Called regularly on all caches to age objects out of the magazines
1148 * which have not been access in skc->skc_delay seconds. This prevents
1149 * idle magazines from holding memory which might be better used by
1150 * other caches or parts of the system. The delay is present to
1151 * prevent thrashing the magazine.
1154 spl_magazine_age(void *data
)
1156 spl_kmem_magazine_t
*skm
=
1157 spl_get_work_data(data
, spl_kmem_magazine_t
, skm_work
.work
);
1158 spl_kmem_cache_t
*skc
= skm
->skm_cache
;
1159 int i
= smp_processor_id();
1161 ASSERT(skm
->skm_magic
== SKM_MAGIC
);
1162 ASSERT(skc
->skc_magic
== SKC_MAGIC
);
1163 ASSERT(skc
->skc_mag
[i
] == skm
);
1165 if (skm
->skm_avail
> 0 &&
1166 time_after(jiffies
, skm
->skm_age
+ skc
->skc_delay
* HZ
))
1167 (void)spl_cache_flush(skc
, skm
, skm
->skm_refill
);
1169 if (!test_bit(KMC_BIT_DESTROY
, &skc
->skc_flags
))
1170 schedule_delayed_work_on(i
, &skm
->skm_work
,
1171 skc
->skc_delay
/ 3 * HZ
);
1175 * Called regularly to keep a downward pressure on the size of idle
1176 * magazines and to release free slabs from the cache. This function
1177 * never calls the registered reclaim function, that only occurs
1178 * under memory pressure or with a direct call to spl_kmem_reap().
1181 spl_cache_age(void *data
)
1183 spl_kmem_cache_t
*skc
=
1184 spl_get_work_data(data
, spl_kmem_cache_t
, skc_work
.work
);
1186 ASSERT(skc
->skc_magic
== SKC_MAGIC
);
1187 spl_slab_reclaim(skc
, skc
->skc_reap
, 0);
1189 if (!test_bit(KMC_BIT_DESTROY
, &skc
->skc_flags
))
1190 schedule_delayed_work(&skc
->skc_work
, skc
->skc_delay
/ 3 * HZ
);
1194 * Size a slab based on the size of each aligned object plus spl_kmem_obj_t.
1195 * When on-slab we want to target SPL_KMEM_CACHE_OBJ_PER_SLAB. However,
1196 * for very small objects we may end up with more than this so as not
1197 * to waste space in the minimal allocation of a single page. Also for
1198 * very large objects we may use as few as SPL_KMEM_CACHE_OBJ_PER_SLAB_MIN,
1199 * lower than this and we will fail.
1202 spl_slab_size(spl_kmem_cache_t
*skc
, uint32_t *objs
, uint32_t *size
)
1204 uint32_t sks_size
, obj_size
, max_size
;
1206 if (skc
->skc_flags
& KMC_OFFSLAB
) {
1207 *objs
= SPL_KMEM_CACHE_OBJ_PER_SLAB
;
1208 *size
= sizeof(spl_kmem_slab_t
);
1210 sks_size
= spl_sks_size(skc
);
1211 obj_size
= spl_obj_size(skc
);
1213 if (skc
->skc_flags
& KMC_KMEM
)
1214 max_size
= ((uint32_t)1 << (MAX_ORDER
-3)) * PAGE_SIZE
;
1216 max_size
= (32 * 1024 * 1024);
1218 /* Power of two sized slab */
1219 for (*size
= PAGE_SIZE
; *size
<= max_size
; *size
*= 2) {
1220 *objs
= (*size
- sks_size
) / obj_size
;
1221 if (*objs
>= SPL_KMEM_CACHE_OBJ_PER_SLAB
)
1226 * Unable to satisfy target objects per slab, fall back to
1227 * allocating a maximally sized slab and assuming it can
1228 * contain the minimum objects count use it. If not fail.
1231 *objs
= (*size
- sks_size
) / obj_size
;
1232 if (*objs
>= SPL_KMEM_CACHE_OBJ_PER_SLAB_MIN
)
1240 * Make a guess at reasonable per-cpu magazine size based on the size of
1241 * each object and the cost of caching N of them in each magazine. Long
1242 * term this should really adapt based on an observed usage heuristic.
1245 spl_magazine_size(spl_kmem_cache_t
*skc
)
1247 uint32_t obj_size
= spl_obj_size(skc
);
1251 /* Per-magazine sizes below assume a 4Kib page size */
1252 if (obj_size
> (PAGE_SIZE
* 256))
1253 size
= 4; /* Minimum 4Mib per-magazine */
1254 else if (obj_size
> (PAGE_SIZE
* 32))
1255 size
= 16; /* Minimum 2Mib per-magazine */
1256 else if (obj_size
> (PAGE_SIZE
))
1257 size
= 64; /* Minimum 256Kib per-magazine */
1258 else if (obj_size
> (PAGE_SIZE
/ 4))
1259 size
= 128; /* Minimum 128Kib per-magazine */
1267 * Allocate a per-cpu magazine to associate with a specific core.
1269 static spl_kmem_magazine_t
*
1270 spl_magazine_alloc(spl_kmem_cache_t
*skc
, int node
)
1272 spl_kmem_magazine_t
*skm
;
1273 int size
= sizeof(spl_kmem_magazine_t
) +
1274 sizeof(void *) * skc
->skc_mag_size
;
1277 skm
= kmem_alloc_node(size
, KM_SLEEP
, node
);
1279 skm
->skm_magic
= SKM_MAGIC
;
1281 skm
->skm_size
= skc
->skc_mag_size
;
1282 skm
->skm_refill
= skc
->skc_mag_refill
;
1283 skm
->skm_cache
= skc
;
1284 spl_init_delayed_work(&skm
->skm_work
, spl_magazine_age
, skm
);
1285 skm
->skm_age
= jiffies
;
1292 * Free a per-cpu magazine associated with a specific core.
1295 spl_magazine_free(spl_kmem_magazine_t
*skm
)
1297 int size
= sizeof(spl_kmem_magazine_t
) +
1298 sizeof(void *) * skm
->skm_size
;
1301 ASSERT(skm
->skm_magic
== SKM_MAGIC
);
1302 ASSERT(skm
->skm_avail
== 0);
1304 kmem_free(skm
, size
);
1309 * Create all pre-cpu magazines of reasonable sizes.
1312 spl_magazine_create(spl_kmem_cache_t
*skc
)
1317 skc
->skc_mag_size
= spl_magazine_size(skc
);
1318 skc
->skc_mag_refill
= (skc
->skc_mag_size
+ 1) / 2;
1320 for_each_online_cpu(i
) {
1321 skc
->skc_mag
[i
] = spl_magazine_alloc(skc
, cpu_to_node(i
));
1322 if (!skc
->skc_mag
[i
]) {
1323 for (i
--; i
>= 0; i
--)
1324 spl_magazine_free(skc
->skc_mag
[i
]);
1330 /* Only after everything is allocated schedule magazine work */
1331 for_each_online_cpu(i
)
1332 schedule_delayed_work_on(i
, &skc
->skc_mag
[i
]->skm_work
,
1333 skc
->skc_delay
/ 3 * HZ
);
1339 * Destroy all pre-cpu magazines.
1342 spl_magazine_destroy(spl_kmem_cache_t
*skc
)
1344 spl_kmem_magazine_t
*skm
;
1348 for_each_online_cpu(i
) {
1349 skm
= skc
->skc_mag
[i
];
1350 (void)spl_cache_flush(skc
, skm
, skm
->skm_avail
);
1351 spl_magazine_free(skm
);
1358 * Create a object cache based on the following arguments:
1360 * size cache object size
1361 * align cache object alignment
1362 * ctor cache object constructor
1363 * dtor cache object destructor
1364 * reclaim cache object reclaim
1365 * priv cache private data for ctor/dtor/reclaim
1366 * vmp unused must be NULL
1368 * KMC_NOTOUCH Disable cache object aging (unsupported)
1369 * KMC_NODEBUG Disable debugging (unsupported)
1370 * KMC_NOMAGAZINE Disable magazine (unsupported)
1371 * KMC_NOHASH Disable hashing (unsupported)
1372 * KMC_QCACHE Disable qcache (unsupported)
1373 * KMC_KMEM Force kmem backed cache
1374 * KMC_VMEM Force vmem backed cache
1375 * KMC_OFFSLAB Locate objects off the slab
1378 spl_kmem_cache_create(char *name
, size_t size
, size_t align
,
1379 spl_kmem_ctor_t ctor
,
1380 spl_kmem_dtor_t dtor
,
1381 spl_kmem_reclaim_t reclaim
,
1382 void *priv
, void *vmp
, int flags
)
1384 spl_kmem_cache_t
*skc
;
1385 int rc
, kmem_flags
= KM_SLEEP
;
1388 ASSERTF(!(flags
& KMC_NOMAGAZINE
), "Bad KMC_NOMAGAZINE (%x)\n", flags
);
1389 ASSERTF(!(flags
& KMC_NOHASH
), "Bad KMC_NOHASH (%x)\n", flags
);
1390 ASSERTF(!(flags
& KMC_QCACHE
), "Bad KMC_QCACHE (%x)\n", flags
);
1391 ASSERT(vmp
== NULL
);
1393 /* We may be called when there is a non-zero preempt_count or
1394 * interrupts are disabled is which case we must not sleep.
1396 if (current_thread_info()->preempt_count
|| irqs_disabled())
1397 kmem_flags
= KM_NOSLEEP
;
1399 /* Allocate memory for a new cache an initialize it. Unfortunately,
1400 * this usually ends up being a large allocation of ~32k because
1401 * we need to allocate enough memory for the worst case number of
1402 * cpus in the magazine, skc_mag[NR_CPUS]. Because of this we
1403 * explicitly pass KM_NODEBUG to suppress the kmem warning */
1404 skc
= (spl_kmem_cache_t
*)kmem_zalloc(sizeof(*skc
),
1405 kmem_flags
| KM_NODEBUG
);
1409 skc
->skc_magic
= SKC_MAGIC
;
1410 skc
->skc_name_size
= strlen(name
) + 1;
1411 skc
->skc_name
= (char *)kmem_alloc(skc
->skc_name_size
, kmem_flags
);
1412 if (skc
->skc_name
== NULL
) {
1413 kmem_free(skc
, sizeof(*skc
));
1416 strncpy(skc
->skc_name
, name
, skc
->skc_name_size
);
1418 skc
->skc_ctor
= ctor
;
1419 skc
->skc_dtor
= dtor
;
1420 skc
->skc_reclaim
= reclaim
;
1421 skc
->skc_private
= priv
;
1423 skc
->skc_flags
= flags
;
1424 skc
->skc_obj_size
= size
;
1425 skc
->skc_obj_align
= SPL_KMEM_CACHE_ALIGN
;
1426 skc
->skc_delay
= SPL_KMEM_CACHE_DELAY
;
1427 skc
->skc_reap
= SPL_KMEM_CACHE_REAP
;
1428 atomic_set(&skc
->skc_ref
, 0);
1430 INIT_LIST_HEAD(&skc
->skc_list
);
1431 INIT_LIST_HEAD(&skc
->skc_complete_list
);
1432 INIT_LIST_HEAD(&skc
->skc_partial_list
);
1433 spin_lock_init(&skc
->skc_lock
);
1434 skc
->skc_slab_fail
= 0;
1435 skc
->skc_slab_create
= 0;
1436 skc
->skc_slab_destroy
= 0;
1437 skc
->skc_slab_total
= 0;
1438 skc
->skc_slab_alloc
= 0;
1439 skc
->skc_slab_max
= 0;
1440 skc
->skc_obj_total
= 0;
1441 skc
->skc_obj_alloc
= 0;
1442 skc
->skc_obj_max
= 0;
1445 VERIFY(ISP2(align
));
1446 VERIFY3U(align
, >=, SPL_KMEM_CACHE_ALIGN
); /* Min alignment */
1447 VERIFY3U(align
, <=, PAGE_SIZE
); /* Max alignment */
1448 skc
->skc_obj_align
= align
;
1451 /* If none passed select a cache type based on object size */
1452 if (!(skc
->skc_flags
& (KMC_KMEM
| KMC_VMEM
))) {
1453 if (spl_obj_size(skc
) < (PAGE_SIZE
/ 8))
1454 skc
->skc_flags
|= KMC_KMEM
;
1456 skc
->skc_flags
|= KMC_VMEM
;
1459 rc
= spl_slab_size(skc
, &skc
->skc_slab_objs
, &skc
->skc_slab_size
);
1463 rc
= spl_magazine_create(skc
);
1467 spl_init_delayed_work(&skc
->skc_work
, spl_cache_age
, skc
);
1468 schedule_delayed_work(&skc
->skc_work
, skc
->skc_delay
/ 3 * HZ
);
1470 down_write(&spl_kmem_cache_sem
);
1471 list_add_tail(&skc
->skc_list
, &spl_kmem_cache_list
);
1472 up_write(&spl_kmem_cache_sem
);
1476 kmem_free(skc
->skc_name
, skc
->skc_name_size
);
1477 kmem_free(skc
, sizeof(*skc
));
1480 EXPORT_SYMBOL(spl_kmem_cache_create
);
1483 * Register a move callback to for cache defragmentation.
1484 * XXX: Unimplemented but harmless to stub out for now.
1487 spl_kmem_cache_set_move(kmem_cache_t
*skc
,
1488 kmem_cbrc_t (move
)(void *, void *, size_t, void *))
1490 ASSERT(move
!= NULL
);
1492 EXPORT_SYMBOL(spl_kmem_cache_set_move
);
1495 * Destroy a cache and all objects associated with the cache.
1498 spl_kmem_cache_destroy(spl_kmem_cache_t
*skc
)
1500 DECLARE_WAIT_QUEUE_HEAD(wq
);
1504 ASSERT(skc
->skc_magic
== SKC_MAGIC
);
1506 down_write(&spl_kmem_cache_sem
);
1507 list_del_init(&skc
->skc_list
);
1508 up_write(&spl_kmem_cache_sem
);
1510 /* Cancel any and wait for any pending delayed work */
1511 VERIFY(!test_and_set_bit(KMC_BIT_DESTROY
, &skc
->skc_flags
));
1512 cancel_delayed_work_sync(&skc
->skc_work
);
1513 for_each_online_cpu(i
)
1514 cancel_delayed_work_sync(&skc
->skc_mag
[i
]->skm_work
);
1516 flush_scheduled_work();
1518 /* Wait until all current callers complete, this is mainly
1519 * to catch the case where a low memory situation triggers a
1520 * cache reaping action which races with this destroy. */
1521 wait_event(wq
, atomic_read(&skc
->skc_ref
) == 0);
1523 spl_magazine_destroy(skc
);
1524 spl_slab_reclaim(skc
, 0, 1);
1525 spin_lock(&skc
->skc_lock
);
1527 /* Validate there are no objects in use and free all the
1528 * spl_kmem_slab_t, spl_kmem_obj_t, and object buffers. */
1529 ASSERT3U(skc
->skc_slab_alloc
, ==, 0);
1530 ASSERT3U(skc
->skc_obj_alloc
, ==, 0);
1531 ASSERT3U(skc
->skc_slab_total
, ==, 0);
1532 ASSERT3U(skc
->skc_obj_total
, ==, 0);
1533 ASSERT(list_empty(&skc
->skc_complete_list
));
1535 kmem_free(skc
->skc_name
, skc
->skc_name_size
);
1536 spin_unlock(&skc
->skc_lock
);
1538 kmem_free(skc
, sizeof(*skc
));
1542 EXPORT_SYMBOL(spl_kmem_cache_destroy
);
1545 * Allocate an object from a slab attached to the cache. This is used to
1546 * repopulate the per-cpu magazine caches in batches when they run low.
1549 spl_cache_obj(spl_kmem_cache_t
*skc
, spl_kmem_slab_t
*sks
)
1551 spl_kmem_obj_t
*sko
;
1553 ASSERT(skc
->skc_magic
== SKC_MAGIC
);
1554 ASSERT(sks
->sks_magic
== SKS_MAGIC
);
1555 ASSERT(spin_is_locked(&skc
->skc_lock
));
1557 sko
= list_entry(sks
->sks_free_list
.next
, spl_kmem_obj_t
, sko_list
);
1558 ASSERT(sko
->sko_magic
== SKO_MAGIC
);
1559 ASSERT(sko
->sko_addr
!= NULL
);
1561 /* Remove from sks_free_list */
1562 list_del_init(&sko
->sko_list
);
1564 sks
->sks_age
= jiffies
;
1566 skc
->skc_obj_alloc
++;
1568 /* Track max obj usage statistics */
1569 if (skc
->skc_obj_alloc
> skc
->skc_obj_max
)
1570 skc
->skc_obj_max
= skc
->skc_obj_alloc
;
1572 /* Track max slab usage statistics */
1573 if (sks
->sks_ref
== 1) {
1574 skc
->skc_slab_alloc
++;
1576 if (skc
->skc_slab_alloc
> skc
->skc_slab_max
)
1577 skc
->skc_slab_max
= skc
->skc_slab_alloc
;
1580 return sko
->sko_addr
;
1584 * No available objects on any slabs, create a new slab. Since this
1585 * is an expensive operation we do it without holding the spin lock and
1586 * only briefly acquire it when we link in the fully allocated and
1589 static spl_kmem_slab_t
*
1590 spl_cache_grow(spl_kmem_cache_t
*skc
, int flags
)
1592 spl_kmem_slab_t
*sks
;
1595 ASSERT(skc
->skc_magic
== SKC_MAGIC
);
1600 * Before allocating a new slab check if the slab is being reaped.
1601 * If it is there is a good chance we can wait until it finishes
1602 * and then use one of the newly freed but not aged-out slabs.
1604 if (test_bit(KMC_BIT_REAPING
, &skc
->skc_flags
)) {
1606 SGOTO(out
, sks
= NULL
);
1609 /* Allocate a new slab for the cache */
1610 sks
= spl_slab_alloc(skc
, flags
| __GFP_NORETRY
| KM_NODEBUG
);
1612 SGOTO(out
, sks
= NULL
);
1614 /* Link the new empty slab in to the end of skc_partial_list. */
1615 spin_lock(&skc
->skc_lock
);
1616 skc
->skc_slab_total
++;
1617 skc
->skc_obj_total
+= sks
->sks_objs
;
1618 list_add_tail(&sks
->sks_list
, &skc
->skc_partial_list
);
1619 spin_unlock(&skc
->skc_lock
);
1621 local_irq_disable();
1627 * Refill a per-cpu magazine with objects from the slabs for this
1628 * cache. Ideally the magazine can be repopulated using existing
1629 * objects which have been released, however if we are unable to
1630 * locate enough free objects new slabs of objects will be created.
1633 spl_cache_refill(spl_kmem_cache_t
*skc
, spl_kmem_magazine_t
*skm
, int flags
)
1635 spl_kmem_slab_t
*sks
;
1639 ASSERT(skc
->skc_magic
== SKC_MAGIC
);
1640 ASSERT(skm
->skm_magic
== SKM_MAGIC
);
1642 refill
= MIN(skm
->skm_refill
, skm
->skm_size
- skm
->skm_avail
);
1643 spin_lock(&skc
->skc_lock
);
1645 while (refill
> 0) {
1646 /* No slabs available we may need to grow the cache */
1647 if (list_empty(&skc
->skc_partial_list
)) {
1648 spin_unlock(&skc
->skc_lock
);
1650 sks
= spl_cache_grow(skc
, flags
);
1654 /* Rescheduled to different CPU skm is not local */
1655 if (skm
!= skc
->skc_mag
[smp_processor_id()])
1658 /* Potentially rescheduled to the same CPU but
1659 * allocations may have occurred from this CPU while
1660 * we were sleeping so recalculate max refill. */
1661 refill
= MIN(refill
, skm
->skm_size
- skm
->skm_avail
);
1663 spin_lock(&skc
->skc_lock
);
1667 /* Grab the next available slab */
1668 sks
= list_entry((&skc
->skc_partial_list
)->next
,
1669 spl_kmem_slab_t
, sks_list
);
1670 ASSERT(sks
->sks_magic
== SKS_MAGIC
);
1671 ASSERT(sks
->sks_ref
< sks
->sks_objs
);
1672 ASSERT(!list_empty(&sks
->sks_free_list
));
1674 /* Consume as many objects as needed to refill the requested
1675 * cache. We must also be careful not to overfill it. */
1676 while (sks
->sks_ref
< sks
->sks_objs
&& refill
-- > 0 && ++rc
) {
1677 ASSERT(skm
->skm_avail
< skm
->skm_size
);
1678 ASSERT(rc
< skm
->skm_size
);
1679 skm
->skm_objs
[skm
->skm_avail
++]=spl_cache_obj(skc
,sks
);
1682 /* Move slab to skc_complete_list when full */
1683 if (sks
->sks_ref
== sks
->sks_objs
) {
1684 list_del(&sks
->sks_list
);
1685 list_add(&sks
->sks_list
, &skc
->skc_complete_list
);
1689 spin_unlock(&skc
->skc_lock
);
1691 /* Returns the number of entries added to cache */
1696 * Release an object back to the slab from which it came.
1699 spl_cache_shrink(spl_kmem_cache_t
*skc
, void *obj
)
1701 spl_kmem_slab_t
*sks
= NULL
;
1702 spl_kmem_obj_t
*sko
= NULL
;
1705 ASSERT(skc
->skc_magic
== SKC_MAGIC
);
1706 ASSERT(spin_is_locked(&skc
->skc_lock
));
1708 sko
= spl_sko_from_obj(skc
, obj
);
1709 ASSERT(sko
->sko_magic
== SKO_MAGIC
);
1710 sks
= sko
->sko_slab
;
1711 ASSERT(sks
->sks_magic
== SKS_MAGIC
);
1712 ASSERT(sks
->sks_cache
== skc
);
1713 list_add(&sko
->sko_list
, &sks
->sks_free_list
);
1715 sks
->sks_age
= jiffies
;
1717 skc
->skc_obj_alloc
--;
1719 /* Move slab to skc_partial_list when no longer full. Slabs
1720 * are added to the head to keep the partial list is quasi-full
1721 * sorted order. Fuller at the head, emptier at the tail. */
1722 if (sks
->sks_ref
== (sks
->sks_objs
- 1)) {
1723 list_del(&sks
->sks_list
);
1724 list_add(&sks
->sks_list
, &skc
->skc_partial_list
);
1727 /* Move empty slabs to the end of the partial list so
1728 * they can be easily found and freed during reclamation. */
1729 if (sks
->sks_ref
== 0) {
1730 list_del(&sks
->sks_list
);
1731 list_add_tail(&sks
->sks_list
, &skc
->skc_partial_list
);
1732 skc
->skc_slab_alloc
--;
1739 * Release a batch of objects from a per-cpu magazine back to their
1740 * respective slabs. This occurs when we exceed the magazine size,
1741 * are under memory pressure, when the cache is idle, or during
1742 * cache cleanup. The flush argument contains the number of entries
1743 * to remove from the magazine.
1746 spl_cache_flush(spl_kmem_cache_t
*skc
, spl_kmem_magazine_t
*skm
, int flush
)
1748 int i
, count
= MIN(flush
, skm
->skm_avail
);
1751 ASSERT(skc
->skc_magic
== SKC_MAGIC
);
1752 ASSERT(skm
->skm_magic
== SKM_MAGIC
);
1755 * XXX: Currently we simply return objects from the magazine to
1756 * the slabs in fifo order. The ideal thing to do from a memory
1757 * fragmentation standpoint is to cheaply determine the set of
1758 * objects in the magazine which will result in the largest
1759 * number of free slabs if released from the magazine.
1761 spin_lock(&skc
->skc_lock
);
1762 for (i
= 0; i
< count
; i
++)
1763 spl_cache_shrink(skc
, skm
->skm_objs
[i
]);
1765 skm
->skm_avail
-= count
;
1766 memmove(skm
->skm_objs
, &(skm
->skm_objs
[count
]),
1767 sizeof(void *) * skm
->skm_avail
);
1769 spin_unlock(&skc
->skc_lock
);
1775 * Allocate an object from the per-cpu magazine, or if the magazine
1776 * is empty directly allocate from a slab and repopulate the magazine.
1779 spl_kmem_cache_alloc(spl_kmem_cache_t
*skc
, int flags
)
1781 spl_kmem_magazine_t
*skm
;
1782 unsigned long irq_flags
;
1786 ASSERT(skc
->skc_magic
== SKC_MAGIC
);
1787 ASSERT(!test_bit(KMC_BIT_DESTROY
, &skc
->skc_flags
));
1788 ASSERT(flags
& KM_SLEEP
);
1789 atomic_inc(&skc
->skc_ref
);
1790 local_irq_save(irq_flags
);
1793 /* Safe to update per-cpu structure without lock, but
1794 * in the restart case we must be careful to reacquire
1795 * the local magazine since this may have changed
1796 * when we need to grow the cache. */
1797 skm
= skc
->skc_mag
[smp_processor_id()];
1798 ASSERTF(skm
->skm_magic
== SKM_MAGIC
, "%x != %x: %s/%p/%p %x/%x/%x\n",
1799 skm
->skm_magic
, SKM_MAGIC
, skc
->skc_name
, skc
, skm
,
1800 skm
->skm_size
, skm
->skm_refill
, skm
->skm_avail
);
1802 if (likely(skm
->skm_avail
)) {
1803 /* Object available in CPU cache, use it */
1804 obj
= skm
->skm_objs
[--skm
->skm_avail
];
1805 skm
->skm_age
= jiffies
;
1807 /* Per-CPU cache empty, directly allocate from
1808 * the slab and refill the per-CPU cache. */
1809 (void)spl_cache_refill(skc
, skm
, flags
);
1810 SGOTO(restart
, obj
= NULL
);
1813 local_irq_restore(irq_flags
);
1815 ASSERT(IS_P2ALIGNED(obj
, skc
->skc_obj_align
));
1817 /* Pre-emptively migrate object to CPU L1 cache */
1819 atomic_dec(&skc
->skc_ref
);
1823 EXPORT_SYMBOL(spl_kmem_cache_alloc
);
1826 * Free an object back to the local per-cpu magazine, there is no
1827 * guarantee that this is the same magazine the object was originally
1828 * allocated from. We may need to flush entire from the magazine
1829 * back to the slabs to make space.
1832 spl_kmem_cache_free(spl_kmem_cache_t
*skc
, void *obj
)
1834 spl_kmem_magazine_t
*skm
;
1835 unsigned long flags
;
1838 ASSERT(skc
->skc_magic
== SKC_MAGIC
);
1839 ASSERT(!test_bit(KMC_BIT_DESTROY
, &skc
->skc_flags
));
1840 atomic_inc(&skc
->skc_ref
);
1841 local_irq_save(flags
);
1843 /* Safe to update per-cpu structure without lock, but
1844 * no remote memory allocation tracking is being performed
1845 * it is entirely possible to allocate an object from one
1846 * CPU cache and return it to another. */
1847 skm
= skc
->skc_mag
[smp_processor_id()];
1848 ASSERT(skm
->skm_magic
== SKM_MAGIC
);
1850 /* Per-CPU cache full, flush it to make space */
1851 if (unlikely(skm
->skm_avail
>= skm
->skm_size
))
1852 (void)spl_cache_flush(skc
, skm
, skm
->skm_refill
);
1854 /* Available space in cache, use it */
1855 skm
->skm_objs
[skm
->skm_avail
++] = obj
;
1857 local_irq_restore(flags
);
1858 atomic_dec(&skc
->skc_ref
);
1862 EXPORT_SYMBOL(spl_kmem_cache_free
);
1865 * The generic shrinker function for all caches. Under Linux a shrinker
1866 * may not be tightly coupled with a slab cache. In fact Linux always
1867 * systematically tries calling all registered shrinker callbacks which
1868 * report that they contain unused objects. Because of this we only
1869 * register one shrinker function in the shim layer for all slab caches.
1870 * We always attempt to shrink all caches when this generic shrinker
1871 * is called. The shrinker should return the number of free objects
1872 * in the cache when called with nr_to_scan == 0 but not attempt to
1873 * free any objects. When nr_to_scan > 0 it is a request that nr_to_scan
1874 * objects should be freed, which differs from Solaris semantics.
1875 * Solaris semantics are to free all available objects which may (and
1876 * probably will) be more objects than the requested nr_to_scan.
1879 __spl_kmem_cache_generic_shrinker(struct shrinker
*shrink
,
1880 struct shrink_control
*sc
)
1882 spl_kmem_cache_t
*skc
;
1885 down_read(&spl_kmem_cache_sem
);
1886 list_for_each_entry(skc
, &spl_kmem_cache_list
, skc_list
) {
1888 spl_kmem_cache_reap_now(skc
,
1889 MAX(sc
->nr_to_scan
>> fls64(skc
->skc_slab_objs
), 1));
1892 * Presume everything alloc'ed in reclaimable, this ensures
1893 * we are called again with nr_to_scan > 0 so can try and
1894 * reclaim. The exact number is not important either so
1895 * we forgo taking this already highly contented lock.
1897 unused
+= skc
->skc_obj_alloc
;
1899 up_read(&spl_kmem_cache_sem
);
1901 return (unused
* sysctl_vfs_cache_pressure
) / 100;
1904 SPL_SHRINKER_CALLBACK_WRAPPER(spl_kmem_cache_generic_shrinker
);
1907 * Call the registered reclaim function for a cache. Depending on how
1908 * many and which objects are released it may simply repopulate the
1909 * local magazine which will then need to age-out. Objects which cannot
1910 * fit in the magazine we will be released back to their slabs which will
1911 * also need to age out before being release. This is all just best
1912 * effort and we do not want to thrash creating and destroying slabs.
1915 spl_kmem_cache_reap_now(spl_kmem_cache_t
*skc
, int count
)
1919 ASSERT(skc
->skc_magic
== SKC_MAGIC
);
1920 ASSERT(!test_bit(KMC_BIT_DESTROY
, &skc
->skc_flags
));
1922 /* Prevent concurrent cache reaping when contended */
1923 if (test_and_set_bit(KMC_BIT_REAPING
, &skc
->skc_flags
)) {
1928 atomic_inc(&skc
->skc_ref
);
1931 * When a reclaim function is available it may be invoked repeatedly
1932 * until at least a single slab can be freed. This ensures that we
1933 * do free memory back to the system. This helps minimize the chance
1934 * of an OOM event when the bulk of memory is used by the slab.
1936 * When free slabs are already available the reclaim callback will be
1937 * skipped. Additionally, if no forward progress is detected despite
1938 * a reclaim function the cache will be skipped to avoid deadlock.
1940 * Longer term this would be the correct place to add the code which
1941 * repacks the slabs in order minimize fragmentation.
1943 if (skc
->skc_reclaim
) {
1944 uint64_t objects
= UINT64_MAX
;
1948 spin_lock(&skc
->skc_lock
);
1950 (skc
->skc_slab_total
> 0) &&
1951 ((skc
->skc_slab_total
- skc
->skc_slab_alloc
) == 0) &&
1952 (skc
->skc_obj_alloc
< objects
);
1954 objects
= skc
->skc_obj_alloc
;
1955 spin_unlock(&skc
->skc_lock
);
1958 skc
->skc_reclaim(skc
->skc_private
);
1960 } while (do_reclaim
);
1963 /* Reclaim from the cache, ignoring it's age and delay. */
1964 spl_slab_reclaim(skc
, count
, 1);
1965 clear_bit(KMC_BIT_REAPING
, &skc
->skc_flags
);
1966 atomic_dec(&skc
->skc_ref
);
1970 EXPORT_SYMBOL(spl_kmem_cache_reap_now
);
1973 * Reap all free slabs from all registered caches.
1978 struct shrink_control sc
;
1980 sc
.nr_to_scan
= KMC_REAP_CHUNK
;
1981 sc
.gfp_mask
= GFP_KERNEL
;
1983 __spl_kmem_cache_generic_shrinker(NULL
, &sc
);
1985 EXPORT_SYMBOL(spl_kmem_reap
);
1987 #if defined(DEBUG_KMEM) && defined(DEBUG_KMEM_TRACKING)
1989 spl_sprintf_addr(kmem_debug_t
*kd
, char *str
, int len
, int min
)
1991 int size
= ((len
- 1) < kd
->kd_size
) ? (len
- 1) : kd
->kd_size
;
1994 ASSERT(str
!= NULL
&& len
>= 17);
1995 memset(str
, 0, len
);
1997 /* Check for a fully printable string, and while we are at
1998 * it place the printable characters in the passed buffer. */
1999 for (i
= 0; i
< size
; i
++) {
2000 str
[i
] = ((char *)(kd
->kd_addr
))[i
];
2001 if (isprint(str
[i
])) {
2004 /* Minimum number of printable characters found
2005 * to make it worthwhile to print this as ascii. */
2015 sprintf(str
, "%02x%02x%02x%02x%02x%02x%02x%02x",
2016 *((uint8_t *)kd
->kd_addr
),
2017 *((uint8_t *)kd
->kd_addr
+ 2),
2018 *((uint8_t *)kd
->kd_addr
+ 4),
2019 *((uint8_t *)kd
->kd_addr
+ 6),
2020 *((uint8_t *)kd
->kd_addr
+ 8),
2021 *((uint8_t *)kd
->kd_addr
+ 10),
2022 *((uint8_t *)kd
->kd_addr
+ 12),
2023 *((uint8_t *)kd
->kd_addr
+ 14));
2030 spl_kmem_init_tracking(struct list_head
*list
, spinlock_t
*lock
, int size
)
2035 spin_lock_init(lock
);
2036 INIT_LIST_HEAD(list
);
2038 for (i
= 0; i
< size
; i
++)
2039 INIT_HLIST_HEAD(&kmem_table
[i
]);
2045 spl_kmem_fini_tracking(struct list_head
*list
, spinlock_t
*lock
)
2047 unsigned long flags
;
2052 spin_lock_irqsave(lock
, flags
);
2053 if (!list_empty(list
))
2054 printk(KERN_WARNING
"%-16s %-5s %-16s %s:%s\n", "address",
2055 "size", "data", "func", "line");
2057 list_for_each_entry(kd
, list
, kd_list
)
2058 printk(KERN_WARNING
"%p %-5d %-16s %s:%d\n", kd
->kd_addr
,
2059 (int)kd
->kd_size
, spl_sprintf_addr(kd
, str
, 17, 8),
2060 kd
->kd_func
, kd
->kd_line
);
2062 spin_unlock_irqrestore(lock
, flags
);
2065 #else /* DEBUG_KMEM && DEBUG_KMEM_TRACKING */
2066 #define spl_kmem_init_tracking(list, lock, size)
2067 #define spl_kmem_fini_tracking(list, lock)
2068 #endif /* DEBUG_KMEM && DEBUG_KMEM_TRACKING */
2071 spl_kmem_init_globals(void)
2075 /* For now all zones are includes, it may be wise to restrict
2076 * this to normal and highmem zones if we see problems. */
2077 for_each_zone(zone
) {
2079 if (!populated_zone(zone
))
2082 minfree
+= min_wmark_pages(zone
);
2083 desfree
+= low_wmark_pages(zone
);
2084 lotsfree
+= high_wmark_pages(zone
);
2087 /* Solaris default values */
2088 swapfs_minfree
= MAX(2*1024*1024 >> PAGE_SHIFT
, physmem
>> 3);
2089 swapfs_reserve
= MIN(4*1024*1024 >> PAGE_SHIFT
, physmem
>> 4);
2093 * Called at module init when it is safe to use spl_kallsyms_lookup_name()
2096 spl_kmem_init_kallsyms_lookup(void)
2098 #ifndef HAVE_GET_VMALLOC_INFO
2099 get_vmalloc_info_fn
= (get_vmalloc_info_t
)
2100 spl_kallsyms_lookup_name("get_vmalloc_info");
2101 if (!get_vmalloc_info_fn
) {
2102 printk(KERN_ERR
"Error: Unknown symbol get_vmalloc_info\n");
2105 #endif /* HAVE_GET_VMALLOC_INFO */
2107 #ifdef HAVE_PGDAT_HELPERS
2108 # ifndef HAVE_FIRST_ONLINE_PGDAT
2109 first_online_pgdat_fn
= (first_online_pgdat_t
)
2110 spl_kallsyms_lookup_name("first_online_pgdat");
2111 if (!first_online_pgdat_fn
) {
2112 printk(KERN_ERR
"Error: Unknown symbol first_online_pgdat\n");
2115 # endif /* HAVE_FIRST_ONLINE_PGDAT */
2117 # ifndef HAVE_NEXT_ONLINE_PGDAT
2118 next_online_pgdat_fn
= (next_online_pgdat_t
)
2119 spl_kallsyms_lookup_name("next_online_pgdat");
2120 if (!next_online_pgdat_fn
) {
2121 printk(KERN_ERR
"Error: Unknown symbol next_online_pgdat\n");
2124 # endif /* HAVE_NEXT_ONLINE_PGDAT */
2126 # ifndef HAVE_NEXT_ZONE
2127 next_zone_fn
= (next_zone_t
)
2128 spl_kallsyms_lookup_name("next_zone");
2129 if (!next_zone_fn
) {
2130 printk(KERN_ERR
"Error: Unknown symbol next_zone\n");
2133 # endif /* HAVE_NEXT_ZONE */
2135 #else /* HAVE_PGDAT_HELPERS */
2137 # ifndef HAVE_PGDAT_LIST
2138 pgdat_list_addr
= *(struct pglist_data
**)
2139 spl_kallsyms_lookup_name("pgdat_list");
2140 if (!pgdat_list_addr
) {
2141 printk(KERN_ERR
"Error: Unknown symbol pgdat_list\n");
2144 # endif /* HAVE_PGDAT_LIST */
2145 #endif /* HAVE_PGDAT_HELPERS */
2147 #if defined(NEED_GET_ZONE_COUNTS) && !defined(HAVE_GET_ZONE_COUNTS)
2148 get_zone_counts_fn
= (get_zone_counts_t
)
2149 spl_kallsyms_lookup_name("get_zone_counts");
2150 if (!get_zone_counts_fn
) {
2151 printk(KERN_ERR
"Error: Unknown symbol get_zone_counts\n");
2154 #endif /* NEED_GET_ZONE_COUNTS && !HAVE_GET_ZONE_COUNTS */
2157 * It is now safe to initialize the global tunings which rely on
2158 * the use of the for_each_zone() macro. This macro in turns
2159 * depends on the *_pgdat symbols which are now available.
2161 spl_kmem_init_globals();
2163 #if !defined(HAVE_INVALIDATE_INODES) && !defined(HAVE_INVALIDATE_INODES_CHECK)
2164 invalidate_inodes_fn
= (invalidate_inodes_t
)
2165 spl_kallsyms_lookup_name("invalidate_inodes");
2166 if (!invalidate_inodes_fn
) {
2167 printk(KERN_ERR
"Error: Unknown symbol invalidate_inodes\n");
2170 #endif /* !HAVE_INVALIDATE_INODES && !HAVE_INVALIDATE_INODES_CHECK */
2172 #ifndef HAVE_SHRINK_DCACHE_MEMORY
2173 /* When shrink_dcache_memory_fn == NULL support is disabled */
2174 shrink_dcache_memory_fn
= (shrink_dcache_memory_t
)
2175 spl_kallsyms_lookup_name("shrink_dcache_memory");
2176 #endif /* HAVE_SHRINK_DCACHE_MEMORY */
2178 #ifndef HAVE_SHRINK_ICACHE_MEMORY
2179 /* When shrink_icache_memory_fn == NULL support is disabled */
2180 shrink_icache_memory_fn
= (shrink_icache_memory_t
)
2181 spl_kallsyms_lookup_name("shrink_icache_memory");
2182 #endif /* HAVE_SHRINK_ICACHE_MEMORY */
2193 init_rwsem(&spl_kmem_cache_sem
);
2194 INIT_LIST_HEAD(&spl_kmem_cache_list
);
2196 spl_register_shrinker(&spl_kmem_cache_shrinker
);
2199 kmem_alloc_used_set(0);
2200 vmem_alloc_used_set(0);
2202 spl_kmem_init_tracking(&kmem_list
, &kmem_lock
, KMEM_TABLE_SIZE
);
2203 spl_kmem_init_tracking(&vmem_list
, &vmem_lock
, VMEM_TABLE_SIZE
);
2212 /* Display all unreclaimed memory addresses, including the
2213 * allocation size and the first few bytes of what's located
2214 * at that address to aid in debugging. Performance is not
2215 * a serious concern here since it is module unload time. */
2216 if (kmem_alloc_used_read() != 0)
2217 SDEBUG_LIMIT(SD_CONSOLE
| SD_WARNING
,
2218 "kmem leaked %ld/%ld bytes\n",
2219 kmem_alloc_used_read(), kmem_alloc_max
);
2222 if (vmem_alloc_used_read() != 0)
2223 SDEBUG_LIMIT(SD_CONSOLE
| SD_WARNING
,
2224 "vmem leaked %ld/%ld bytes\n",
2225 vmem_alloc_used_read(), vmem_alloc_max
);
2227 spl_kmem_fini_tracking(&kmem_list
, &kmem_lock
);
2228 spl_kmem_fini_tracking(&vmem_list
, &vmem_lock
);
2229 #endif /* DEBUG_KMEM */
2232 spl_unregister_shrinker(&spl_kmem_cache_shrinker
);