2 * SPDX-License-Identifier: BSD-2-Clause-FreeBSD
4 * Copyright (c) 2018, Matthew Macy <mmacy@freebsd.org>
6 * Redistribution and use in source and binary forms, with or without
7 * modification, are permitted provided that the following conditions
9 * 1. Redistributions of source code must retain the above copyright
10 * notice, this list of conditions and the following disclaimer.
11 * 2. Redistributions in binary form must reproduce the above copyright
12 * notice, this list of conditions and the following disclaimer in the
13 * documentation and/or other materials provided with the distribution.
15 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
16 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
17 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
18 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
19 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
20 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
21 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
22 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
23 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
24 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
29 #include <sys/cdefs.h>
30 __FBSDID("$FreeBSD$");
32 #include <sys/param.h>
33 #include <sys/systm.h>
34 #include <sys/counter.h>
35 #include <sys/epoch.h>
36 #include <sys/gtaskqueue.h>
37 #include <sys/kernel.h>
38 #include <sys/limits.h>
40 #include <sys/malloc.h>
41 #include <sys/mutex.h>
44 #include <sys/sched.h>
47 #include <sys/sysctl.h>
48 #include <sys/turnstile.h>
50 #include <machine/stdarg.h>
51 #include <sys/stack.h>
55 #include <vm/vm_extern.h>
56 #include <vm/vm_kern.h>
61 static MALLOC_DEFINE(M_EPOCH, "epoch", "epoch based reclamation");
64 #define EPOCH_ALIGN CACHE_LINE_SIZE*2
66 #define EPOCH_ALIGN CACHE_LINE_SIZE
69 TAILQ_HEAD (epoch_tdlist, epoch_tracker);
70 typedef struct epoch_record {
71 ck_epoch_record_t er_record;
72 struct epoch_context er_drain_ctx;
73 struct epoch *er_parent;
74 volatile struct epoch_tdlist er_tdlist;
75 volatile uint32_t er_gen;
77 } __aligned(EPOCH_ALIGN) *epoch_record_t;
80 struct ck_epoch e_epoch __aligned(EPOCH_ALIGN);
81 epoch_record_t e_pcpu_record;
85 struct mtx e_drain_mtx;
86 volatile int e_drain_count;
90 /* arbitrary --- needs benchmarking */
91 #define MAX_ADAPTIVE_SPIN 100
94 CTASSERT(sizeof(ck_epoch_entry_t) == sizeof(struct epoch_context));
95 SYSCTL_NODE(_kern, OID_AUTO, epoch, CTLFLAG_RW, 0, "epoch information");
96 SYSCTL_NODE(_kern_epoch, OID_AUTO, stats, CTLFLAG_RW, 0, "epoch stats");
99 static counter_u64_t block_count;
101 SYSCTL_COUNTER_U64(_kern_epoch_stats, OID_AUTO, nblocked, CTLFLAG_RW,
102 &block_count, "# of times a thread was in an epoch when epoch_wait was called");
103 static counter_u64_t migrate_count;
105 SYSCTL_COUNTER_U64(_kern_epoch_stats, OID_AUTO, migrations, CTLFLAG_RW,
106 &migrate_count, "# of times thread was migrated to another CPU in epoch_wait");
107 static counter_u64_t turnstile_count;
109 SYSCTL_COUNTER_U64(_kern_epoch_stats, OID_AUTO, ncontended, CTLFLAG_RW,
110 &turnstile_count, "# of times a thread was blocked on a lock in an epoch during an epoch_wait");
111 static counter_u64_t switch_count;
113 SYSCTL_COUNTER_U64(_kern_epoch_stats, OID_AUTO, switches, CTLFLAG_RW,
114 &switch_count, "# of times a thread voluntarily context switched in epoch_wait");
115 static counter_u64_t epoch_call_count;
117 SYSCTL_COUNTER_U64(_kern_epoch_stats, OID_AUTO, epoch_calls, CTLFLAG_RW,
118 &epoch_call_count, "# of times a callback was deferred");
119 static counter_u64_t epoch_call_task_count;
121 SYSCTL_COUNTER_U64(_kern_epoch_stats, OID_AUTO, epoch_call_tasks, CTLFLAG_RW,
122 &epoch_call_task_count, "# of times a callback task was run");
124 TAILQ_HEAD (threadlist, thread);
126 CK_STACK_CONTAINER(struct ck_epoch_entry, stack_entry,
127 ck_epoch_entry_container)
129 epoch_t allepochs[MAX_EPOCHS];
131 DPCPU_DEFINE(struct grouptask, epoch_cb_task);
132 DPCPU_DEFINE(int, epoch_cb_count);
134 static __read_mostly int inited;
135 static __read_mostly int epoch_count;
136 __read_mostly epoch_t global_epoch;
137 __read_mostly epoch_t global_epoch_preempt;
139 static void epoch_call_task(void *context __unused);
140 static uma_zone_t pcpu_zone_record;
144 RB_ENTRY(stackentry) se_node;
145 struct stack se_stack;
149 stackentry_compare(struct stackentry *a, struct stackentry *b)
152 if (a->se_stack.depth > b->se_stack.depth)
154 if (a->se_stack.depth < b->se_stack.depth)
156 for (int i = 0; i < a->se_stack.depth; i++) {
157 if (a->se_stack.pcs[i] > b->se_stack.pcs[i])
159 if (a->se_stack.pcs[i] < b->se_stack.pcs[i])
166 RB_HEAD(stacktree, stackentry) epoch_stacks = RB_INITIALIZER(&epoch_stacks);
167 RB_GENERATE_STATIC(stacktree, stackentry, se_node, stackentry_compare);
169 static struct mtx epoch_stacks_lock;
170 MTX_SYSINIT(epochstacks, &epoch_stacks_lock, "epoch_stacks", MTX_DEF);
172 static void epoch_trace_report(const char *fmt, ...) __printflike(1, 2);
174 epoch_trace_report(const char *fmt, ...)
177 struct stackentry se, *new;
179 stack_zero(&se.se_stack); /* XXX: is it really needed? */
180 stack_save(&se.se_stack);
182 /* Tree is never reduced - go lockless. */
183 if (RB_FIND(stacktree, &epoch_stacks, &se) != NULL)
186 new = malloc(sizeof(*new), M_STACK, M_NOWAIT);
188 bcopy(&se.se_stack, &new->se_stack, sizeof(struct stack));
190 mtx_lock(&epoch_stacks_lock);
191 new = RB_INSERT(stacktree, &epoch_stacks, new);
192 mtx_unlock(&epoch_stacks_lock);
198 (void)vprintf(fmt, ap);
200 stack_print_ddb(&se.se_stack);
204 epoch_trace_enter(struct thread *td, epoch_t epoch, epoch_tracker_t et,
205 const char *file, int line)
209 SLIST_FOREACH(iet, &td->td_epochs, et_tlink)
210 if (iet->et_epoch == epoch)
211 epoch_trace_report("Recursively entering epoch %s "
212 "previously entered at %s:%d\n",
213 epoch->e_name, iet->et_file, iet->et_line);
214 et->et_epoch = epoch;
217 SLIST_INSERT_HEAD(&td->td_epochs, et, et_tlink);
221 epoch_trace_exit(struct thread *td, epoch_t epoch, epoch_tracker_t et,
222 const char *file, int line)
225 if (SLIST_FIRST(&td->td_epochs) != et) {
226 epoch_trace_report("Exiting epoch %s in a not nested order. "
227 "Most recently entered %s at %s:%d\n",
229 SLIST_FIRST(&td->td_epochs)->et_epoch->e_name,
230 SLIST_FIRST(&td->td_epochs)->et_file,
231 SLIST_FIRST(&td->td_epochs)->et_line);
232 /* This will panic if et is not anywhere on td_epochs. */
233 SLIST_REMOVE(&td->td_epochs, et, epoch_tracker, et_tlink);
235 SLIST_REMOVE_HEAD(&td->td_epochs, et_tlink);
237 #endif /* EPOCH_TRACE */
240 epoch_init(void *arg __unused)
244 block_count = counter_u64_alloc(M_WAITOK);
245 migrate_count = counter_u64_alloc(M_WAITOK);
246 turnstile_count = counter_u64_alloc(M_WAITOK);
247 switch_count = counter_u64_alloc(M_WAITOK);
248 epoch_call_count = counter_u64_alloc(M_WAITOK);
249 epoch_call_task_count = counter_u64_alloc(M_WAITOK);
251 pcpu_zone_record = uma_zcreate("epoch_record pcpu",
252 sizeof(struct epoch_record), NULL, NULL, NULL, NULL,
253 UMA_ALIGN_PTR, UMA_ZONE_PCPU);
255 GROUPTASK_INIT(DPCPU_ID_PTR(cpu, epoch_cb_task), 0,
256 epoch_call_task, NULL);
257 taskqgroup_attach_cpu(qgroup_softirq,
258 DPCPU_ID_PTR(cpu, epoch_cb_task), NULL, cpu, NULL, NULL,
261 SLIST_INIT(&thread0.td_epochs);
263 global_epoch = epoch_alloc("Global", 0);
264 global_epoch_preempt = epoch_alloc("Global preemptible", EPOCH_PREEMPT);
266 SYSINIT(epoch, SI_SUB_TASKQ + 1, SI_ORDER_FIRST, epoch_init, NULL);
268 #if !defined(EARLY_AP_STARTUP)
270 epoch_init_smp(void *dummy __unused)
274 SYSINIT(epoch_smp, SI_SUB_SMP + 1, SI_ORDER_FIRST, epoch_init_smp, NULL);
278 epoch_ctor(epoch_t epoch)
283 epoch->e_pcpu_record = uma_zalloc_pcpu(pcpu_zone_record, M_WAITOK);
285 er = zpcpu_get_cpu(epoch->e_pcpu_record, cpu);
286 bzero(er, sizeof(*er));
287 ck_epoch_register(&epoch->e_epoch, &er->er_record, NULL);
288 TAILQ_INIT((struct threadlist *)(uintptr_t)&er->er_tdlist);
290 er->er_parent = epoch;
295 epoch_adjust_prio(struct thread *td, u_char prio)
299 sched_prio(td, prio);
304 epoch_alloc(const char *name, int flags)
308 if (__predict_false(!inited))
309 panic("%s called too early in boot", __func__);
310 epoch = malloc(sizeof(struct epoch), M_EPOCH, M_ZERO | M_WAITOK);
311 ck_epoch_init(&epoch->e_epoch);
313 MPASS(epoch_count < MAX_EPOCHS - 2);
314 epoch->e_flags = flags;
315 epoch->e_idx = epoch_count;
316 epoch->e_name = name;
317 sx_init(&epoch->e_drain_sx, "epoch-drain-sx");
318 mtx_init(&epoch->e_drain_mtx, "epoch-drain-mtx", NULL, MTX_DEF);
319 allepochs[epoch_count++] = epoch;
324 epoch_free(epoch_t epoch)
327 epoch_drain_callbacks(epoch);
328 allepochs[epoch->e_idx] = NULL;
329 epoch_wait(global_epoch);
330 uma_zfree_pcpu(pcpu_zone_record, epoch->e_pcpu_record);
331 mtx_destroy(&epoch->e_drain_mtx);
332 sx_destroy(&epoch->e_drain_sx);
333 free(epoch, M_EPOCH);
336 static epoch_record_t
337 epoch_currecord(epoch_t epoch)
340 return (zpcpu_get_cpu(epoch->e_pcpu_record, curcpu));
343 #define INIT_CHECK(epoch) \
345 if (__predict_false((epoch) == NULL)) \
350 _epoch_enter_preempt(epoch_t epoch, epoch_tracker_t et EPOCH_FILE_LINE)
352 struct epoch_record *er;
355 MPASS(cold || epoch != NULL);
357 MPASS(epoch->e_flags & EPOCH_PREEMPT);
360 epoch_trace_enter(td, epoch, et, file, line);
366 td->td_pre_epoch_prio = td->td_priority;
367 er = epoch_currecord(epoch);
368 TAILQ_INSERT_TAIL(&er->er_tdlist, et, et_link);
369 ck_epoch_begin(&er->er_record, &et->et_section);
374 epoch_enter(epoch_t epoch)
379 MPASS(cold || epoch != NULL);
384 er = epoch_currecord(epoch);
385 ck_epoch_begin(&er->er_record, NULL);
389 _epoch_exit_preempt(epoch_t epoch, epoch_tracker_t et EPOCH_FILE_LINE)
391 struct epoch_record *er;
398 MPASS(td->td_epochnest);
400 er = epoch_currecord(epoch);
401 MPASS(epoch->e_flags & EPOCH_PREEMPT);
403 MPASS(et->et_td == td);
405 et->et_td = (void*)0xDEADBEEF;
407 ck_epoch_end(&er->er_record, &et->et_section);
408 TAILQ_REMOVE(&er->er_tdlist, et, et_link);
410 if (__predict_false(td->td_pre_epoch_prio != td->td_priority))
411 epoch_adjust_prio(td, td->td_pre_epoch_prio);
414 epoch_trace_exit(td, epoch, et, file, line);
419 epoch_exit(epoch_t epoch)
426 MPASS(td->td_epochnest);
428 er = epoch_currecord(epoch);
429 ck_epoch_end(&er->er_record, NULL);
434 * epoch_block_handler_preempt() is a callback from the CK code when another
435 * thread is currently in an epoch section.
438 epoch_block_handler_preempt(struct ck_epoch *global __unused,
439 ck_epoch_record_t *cr, void *arg __unused)
441 epoch_record_t record;
442 struct thread *td, *owner, *curwaittd;
443 struct epoch_tracker *tdwait;
444 struct turnstile *ts;
445 struct lock_object *lock;
447 int locksheld __unused;
449 record = __containerof(cr, struct epoch_record, er_record);
451 locksheld = td->td_locks;
453 counter_u64_add(block_count, 1);
455 * We lost a race and there's no longer any threads
456 * on the CPU in an epoch section.
458 if (TAILQ_EMPTY(&record->er_tdlist))
461 if (record->er_cpuid != curcpu) {
463 * If the head of the list is running, we can wait for it
464 * to remove itself from the list and thus save us the
465 * overhead of a migration
467 gen = record->er_gen;
470 * We can't actually check if the waiting thread is running
471 * so we simply poll for it to exit before giving up and
476 } while (!TAILQ_EMPTY(&record->er_tdlist) &&
477 gen == record->er_gen &&
478 spincount++ < MAX_ADAPTIVE_SPIN);
481 * If the generation has changed we can poll again
482 * otherwise we need to migrate.
484 if (gen != record->er_gen)
487 * Being on the same CPU as that of the record on which
488 * we need to wait allows us access to the thread
489 * list associated with that CPU. We can then examine the
490 * oldest thread in the queue and wait on its turnstile
491 * until it resumes and so on until a grace period
495 counter_u64_add(migrate_count, 1);
496 sched_bind(td, record->er_cpuid);
498 * At this point we need to return to the ck code
499 * to scan to see if a grace period has elapsed.
500 * We can't move on to check the thread list, because
501 * in the meantime new threads may have arrived that
502 * in fact belong to a different epoch.
507 * Try to find a thread in an epoch section on this CPU
508 * waiting on a turnstile. Otherwise find the lowest
509 * priority thread (highest prio value) and drop our priority
510 * to match to allow it to run.
512 TAILQ_FOREACH(tdwait, &record->er_tdlist, et_link) {
514 * Propagate our priority to any other waiters to prevent us
515 * from starving them. They will have their original priority
516 * restore on exit from epoch_wait().
518 curwaittd = tdwait->et_td;
519 if (!TD_IS_INHIBITED(curwaittd) && curwaittd->td_priority > td->td_priority) {
522 thread_lock(curwaittd);
523 sched_prio(curwaittd, td->td_priority);
524 thread_unlock(curwaittd);
528 if (TD_IS_INHIBITED(curwaittd) && TD_ON_LOCK(curwaittd) &&
529 ((ts = curwaittd->td_blocked) != NULL)) {
531 * We unlock td to allow turnstile_wait to reacquire
532 * the thread lock. Before unlocking it we enter a
533 * critical section to prevent preemption after we
534 * reenable interrupts by dropping the thread lock in
535 * order to prevent curwaittd from getting to run.
540 if (turnstile_lock(ts, &lock, &owner)) {
541 if (ts == curwaittd->td_blocked) {
542 MPASS(TD_IS_INHIBITED(curwaittd) &&
543 TD_ON_LOCK(curwaittd));
545 turnstile_wait(ts, owner,
546 curwaittd->td_tsqueue);
547 counter_u64_add(turnstile_count, 1);
551 turnstile_unlock(ts, lock);
555 KASSERT(td->td_locks == locksheld,
556 ("%d extra locks held", td->td_locks - locksheld));
560 * We didn't find any threads actually blocked on a lock
561 * so we have nothing to do except context switch away.
563 counter_u64_add(switch_count, 1);
564 mi_switch(SW_VOL | SWT_RELINQUISH, NULL);
567 * Release the thread lock while yielding to
568 * allow other threads to acquire the lock
569 * pointed to by TDQ_LOCKPTR(td). Else a
570 * deadlock like situation might happen. (HPS)
577 epoch_wait_preempt(epoch_t epoch)
586 MPASS(cold || epoch != NULL);
590 locks = curthread->td_locks;
591 MPASS(epoch->e_flags & EPOCH_PREEMPT);
592 if ((epoch->e_flags & EPOCH_LOCKED) == 0)
593 WITNESS_WARN(WARN_GIANTOK | WARN_SLEEPOK, NULL,
594 "epoch_wait() can be long running");
595 KASSERT(!in_epoch(epoch), ("epoch_wait_preempt() called in the middle "
596 "of an epoch section of the same epoch"));
601 old_cpu = PCPU_GET(cpuid);
602 old_pinned = td->td_pinned;
603 old_prio = td->td_priority;
604 was_bound = sched_is_bound(td);
607 sched_bind(td, old_cpu);
609 ck_epoch_synchronize_wait(&epoch->e_epoch, epoch_block_handler_preempt,
612 /* restore CPU binding, if any */
613 if (was_bound != 0) {
614 sched_bind(td, old_cpu);
616 /* get thread back to initial CPU, if any */
618 sched_bind(td, old_cpu);
621 /* restore pinned after bind */
622 td->td_pinned = old_pinned;
624 /* restore thread priority */
625 sched_prio(td, old_prio);
628 KASSERT(td->td_locks == locks,
629 ("%d residual locks held", td->td_locks - locks));
633 epoch_block_handler(struct ck_epoch *g __unused, ck_epoch_record_t *c __unused,
640 epoch_wait(epoch_t epoch)
643 MPASS(cold || epoch != NULL);
645 MPASS(epoch->e_flags == 0);
647 ck_epoch_synchronize_wait(&epoch->e_epoch, epoch_block_handler, NULL);
652 epoch_call(epoch_t epoch, epoch_context_t ctx, void (*callback) (epoch_context_t))
655 ck_epoch_entry_t *cb;
660 /* too early in boot to have epoch set up */
661 if (__predict_false(epoch == NULL))
663 #if !defined(EARLY_AP_STARTUP)
664 if (__predict_false(inited < 2))
669 *DPCPU_PTR(epoch_cb_count) += 1;
670 er = epoch_currecord(epoch);
671 ck_epoch_call(&er->er_record, cb, (ck_epoch_cb_t *)callback);
679 epoch_call_task(void *arg __unused)
681 ck_stack_entry_t *cursor, *head, *next;
682 ck_epoch_record_t *record;
686 int i, npending, total;
688 ck_stack_init(&cb_stack);
690 epoch_enter(global_epoch);
691 for (total = i = 0; i < epoch_count; i++) {
692 if (__predict_false((epoch = allepochs[i]) == NULL))
694 er = epoch_currecord(epoch);
695 record = &er->er_record;
696 if ((npending = record->n_pending) == 0)
698 ck_epoch_poll_deferred(record, &cb_stack);
699 total += npending - record->n_pending;
701 epoch_exit(global_epoch);
702 *DPCPU_PTR(epoch_cb_count) -= total;
705 counter_u64_add(epoch_call_count, total);
706 counter_u64_add(epoch_call_task_count, 1);
708 head = ck_stack_batch_pop_npsc(&cb_stack);
709 for (cursor = head; cursor != NULL; cursor = next) {
710 struct ck_epoch_entry *entry =
711 ck_epoch_entry_container(cursor);
713 next = CK_STACK_NEXT(cursor);
714 entry->function(entry);
719 in_epoch_verbose(epoch_t epoch, int dump_onfail)
721 struct epoch_tracker *tdwait;
726 if (td->td_epochnest == 0)
728 if (__predict_false((epoch) == NULL))
731 er = epoch_currecord(epoch);
732 TAILQ_FOREACH(tdwait, &er->er_tdlist, et_link)
733 if (tdwait->et_td == td) {
739 MPASS(td->td_pinned);
740 printf("cpu: %d id: %d\n", curcpu, td->td_tid);
741 TAILQ_FOREACH(tdwait, &er->er_tdlist, et_link)
742 printf("td_tid: %d ", tdwait->et_td->td_tid);
751 in_epoch(epoch_t epoch)
753 return (in_epoch_verbose(epoch, 0));
757 epoch_drain_cb(struct epoch_context *ctx)
759 struct epoch *epoch =
760 __containerof(ctx, struct epoch_record, er_drain_ctx)->er_parent;
762 if (atomic_fetchadd_int(&epoch->e_drain_count, -1) == 1) {
763 mtx_lock(&epoch->e_drain_mtx);
765 mtx_unlock(&epoch->e_drain_mtx);
770 epoch_drain_callbacks(epoch_t epoch)
779 WITNESS_WARN(WARN_GIANTOK | WARN_SLEEPOK, NULL,
780 "epoch_drain_callbacks() may sleep!");
782 /* too early in boot to have epoch set up */
783 if (__predict_false(epoch == NULL))
785 #if !defined(EARLY_AP_STARTUP)
786 if (__predict_false(inited < 2))
791 sx_xlock(&epoch->e_drain_sx);
792 mtx_lock(&epoch->e_drain_mtx);
796 old_cpu = PCPU_GET(cpuid);
797 old_pinned = td->td_pinned;
798 was_bound = sched_is_bound(td);
803 epoch->e_drain_count++;
805 er = zpcpu_get_cpu(epoch->e_pcpu_record, cpu);
807 epoch_call(epoch, &er->er_drain_ctx, &epoch_drain_cb);
810 /* restore CPU binding, if any */
811 if (was_bound != 0) {
812 sched_bind(td, old_cpu);
814 /* get thread back to initial CPU, if any */
816 sched_bind(td, old_cpu);
819 /* restore pinned after bind */
820 td->td_pinned = old_pinned;
824 while (epoch->e_drain_count != 0)
825 msleep(epoch, &epoch->e_drain_mtx, PZERO, "EDRAIN", 0);
827 mtx_unlock(&epoch->e_drain_mtx);
828 sx_xunlock(&epoch->e_drain_sx);
834 epoch_thread_init(struct thread *td)
837 td->td_et = malloc(sizeof(struct epoch_tracker), M_EPOCH, M_WAITOK);
841 epoch_thread_fini(struct thread *td)
844 free(td->td_et, M_EPOCH);