/*
- * Copyright (c) 2000 Apple Computer, Inc. All rights reserved.
+ * Copyright (c) 2000-2015 Apple Inc. All rights reserved.
*
- * @APPLE_LICENSE_HEADER_START@
+ * @APPLE_OSREFERENCE_LICENSE_HEADER_START@
*
- * The contents of this file constitute Original Code as defined in and
- * are subject to the Apple Public Source License Version 1.1 (the
- * "License"). You may not use this file except in compliance with the
- * License. Please obtain a copy of the License at
- * http://www.apple.com/publicsource and read it before using this file.
+ * This file contains Original Code and/or Modifications of Original Code
+ * as defined in and that are subject to the Apple Public Source License
+ * Version 2.0 (the 'License'). You may not use this file except in
+ * compliance with the License. The rights granted to you under the License
+ * may not be used to create, or enable the creation or redistribution of,
+ * unlawful or unlicensed copies of an Apple operating system, or to
+ * circumvent, violate, or enable the circumvention or violation of, any
+ * terms of an Apple operating system software license agreement.
*
- * This Original Code and all software distributed under the License are
- * distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, EITHER
+ * Please obtain a copy of the License at
+ * http://www.opensource.apple.com/apsl/ and read it before using this file.
+ *
+ * The Original Code and all software distributed under the License are
+ * distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
* EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,
* INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY,
- * FITNESS FOR A PARTICULAR PURPOSE OR NON-INFRINGEMENT. Please see the
- * License for the specific language governing rights and limitations
- * under the License.
+ * FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR NON-INFRINGEMENT.
+ * Please see the License for the specific language governing rights and
+ * limitations under the License.
*
- * @APPLE_LICENSE_HEADER_END@
+ * @APPLE_OSREFERENCE_LICENSE_HEADER_END@
*/
/*
* @OSF_FREE_COPYRIGHT@
* Author: Avadis Tevanian, Jr., Michael Wayne Young, David Golub
* Date: 1986
*
- * Thread/thread_shuttle management primitives implementation.
+ * Thread management primitives implementation.
*/
/*
* Copyright (c) 1993 The University of Utah and
*
*/
-#include <cpus.h>
-#include <mach_host.h>
-#include <simple_clock.h>
-#include <mach_debug.h>
-#include <mach_prof.h>
-#include <stack_usage.h>
-
+#include <mach/mach_types.h>
#include <mach/boolean.h>
#include <mach/policy.h>
#include <mach/thread_info.h>
#include <mach/thread_status.h>
#include <mach/time_value.h>
#include <mach/vm_param.h>
-#include <kern/ast.h>
+
+#include <machine/thread.h>
+#include <machine/pal_routines.h>
+#include <machine/limits.h>
+
+#include <kern/kern_types.h>
+#include <kern/kalloc.h>
#include <kern/cpu_data.h>
#include <kern/counters.h>
-#include <kern/etap_macros.h>
+#include <kern/extmod_statistics.h>
#include <kern/ipc_mig.h>
#include <kern/ipc_tt.h>
#include <kern/mach_param.h>
#include <kern/queue.h>
#include <kern/sched.h>
#include <kern/sched_prim.h>
-#include <kern/sf.h>
-#include <kern/mk_sp.h> /*** ??? fix so this can be removed ***/
+#include <kern/sync_lock.h>
+#include <kern/syscall_subr.h>
#include <kern/task.h>
#include <kern/thread.h>
-#include <kern/thread_act.h>
-#include <kern/thread_swap.h>
+#include <kern/thread_group.h>
+#include <kern/coalition.h>
#include <kern/host.h>
#include <kern/zalloc.h>
-#include <vm/vm_kern.h>
+#include <kern/assert.h>
+#include <kern/exc_resource.h>
+#include <kern/exc_guard.h>
+#include <kern/telemetry.h>
+#include <kern/policy_internal.h>
+
+#include <corpses/task_corpse.h>
+#if KPC
+#include <kern/kpc.h>
+#endif
+
+#if MONOTONIC
+#include <kern/monotonic.h>
+#include <machine/monotonic.h>
+#endif /* MONOTONIC */
+
#include <ipc/ipc_kmsg.h>
#include <ipc/ipc_port.h>
-#include <machine/thread.h> /* for MACHINE_STACK */
-#include <kern/profile.h>
-#include <kern/assert.h>
+#include <bank/bank_types.h>
+
+#include <vm/vm_kern.h>
+#include <vm/vm_pageout.h>
+
#include <sys/kdebug.h>
+#include <sys/bsdtask_info.h>
+#include <mach/sdt.h>
+#include <san/kasan.h>
+
+#include <stdatomic.h>
/*
* Exported interfaces
*/
-
+#include <mach/task_server.h>
#include <mach/thread_act_server.h>
#include <mach/mach_host_server.h>
+#include <mach/host_priv_server.h>
+#include <mach/mach_voucher_server.h>
+#include <kern/policy_internal.h>
-/*
- * Per-Cpu stashed global state
- */
-vm_offset_t active_stacks[NCPUS]; /* per-cpu active stacks */
-vm_offset_t kernel_stack[NCPUS]; /* top of active stacks */
-thread_act_t active_kloaded[NCPUS]; /* + act if kernel loaded */
-
-struct zone *thread_shuttle_zone;
+static struct zone *thread_zone;
+static lck_grp_attr_t thread_lck_grp_attr;
+lck_attr_t thread_lck_attr;
+lck_grp_t thread_lck_grp;
-queue_head_t reaper_queue;
-decl_simple_lock_data(,reaper_lock)
-thread_call_t thread_reaper_call;
+struct zone *thread_qos_override_zone;
-extern int tick;
+decl_simple_lock_data(static,thread_stack_lock)
+static queue_head_t thread_stack_queue;
-extern void pcb_module_init(void);
+decl_simple_lock_data(static,thread_terminate_lock)
+static queue_head_t thread_terminate_queue;
-/* private */
-static struct thread_shuttle thr_sh_template;
+static queue_head_t crashed_threads_queue;
-#if MACH_DEBUG
-#if STACK_USAGE
-static void stack_init(vm_offset_t stack, unsigned int bytes);
-void stack_finalize(vm_offset_t stack);
-vm_size_t stack_usage(vm_offset_t stack);
-#else /*STACK_USAGE*/
-#define stack_init(stack, size)
-#define stack_finalize(stack)
-#define stack_usage(stack) (vm_size_t)0
-#endif /*STACK_USAGE*/
-
-#ifdef MACHINE_STACK
-extern
-#endif
- void stack_statistics(
- unsigned int *totalp,
- vm_size_t *maxusagep);
-
-#define STACK_MARKER 0xdeadbeef
-#if STACK_USAGE
-boolean_t stack_check_usage = TRUE;
-#else /* STACK_USAGE */
-boolean_t stack_check_usage = FALSE;
-#endif /* STACK_USAGE */
-decl_simple_lock_data(,stack_usage_lock)
-vm_size_t stack_max_usage = 0;
-vm_size_t stack_max_use = KERNEL_STACK_SIZE - 64;
-#endif /* MACH_DEBUG */
-
-/* Forwards */
-void thread_collect_scan(void);
-
-kern_return_t thread_create_shuttle(
- thread_act_t thr_act,
- integer_t priority,
- void (*start)(void),
- thread_t *new_thread);
+decl_simple_lock_data(static,thread_exception_lock)
+static queue_head_t thread_exception_queue;
-extern void Load_context(
- thread_t thread);
+struct thread_exception_elt {
+ queue_chain_t elt;
+ exception_type_t exception_type;
+ task_t exception_task;
+ thread_t exception_thread;
+};
+static struct thread thread_template, init_thread;
-/*
- * Machine-dependent code must define:
- * thread_machine_init
- * thread_machine_terminate
- * thread_machine_collect
- *
- * The thread->pcb field is reserved for machine-dependent code.
- */
+static void sched_call_null(
+ int type,
+ thread_t thread);
-#ifdef MACHINE_STACK
-/*
- * Machine-dependent code must define:
- * stack_alloc_try
- * stack_alloc
- * stack_free
- * stack_collect
- * and if MACH_DEBUG:
- * stack_statistics
- */
-#else /* MACHINE_STACK */
-/*
- * We allocate stacks from generic kernel VM.
- * Machine-dependent code must define:
- * machine_kernel_stack_init
- *
- * The stack_free_list can only be accessed at splsched,
- * because stack_alloc_try/thread_invoke operate at splsched.
- */
+#ifdef MACH_BSD
+extern void proc_exit(void *);
+extern mach_exception_data_type_t proc_encode_exit_exception_code(void *);
+extern uint64_t get_dispatchqueue_offset_from_proc(void *);
+extern uint64_t get_return_to_kernel_offset_from_proc(void *p);
+extern int proc_selfpid(void);
+extern char * proc_name_address(void *p);
+#endif /* MACH_BSD */
-decl_simple_lock_data(,stack_lock_data) /* splsched only */
-#define stack_lock() simple_lock(&stack_lock_data)
-#define stack_unlock() simple_unlock(&stack_lock_data)
+extern int disable_exc_resource;
+extern int audio_active;
+extern int debug_task;
+int thread_max = CONFIG_THREAD_MAX; /* Max number of threads */
+int task_threadmax = CONFIG_THREAD_MAX;
-vm_offset_t stack_free_list; /* splsched only */
-unsigned int stack_free_max = 0;
-unsigned int stack_free_count = 0; /* splsched only */
-unsigned int stack_free_limit = 1; /* patchable */
+static uint64_t thread_unique_id = 100;
-unsigned int stack_alloc_hits = 0; /* debugging */
-unsigned int stack_alloc_misses = 0; /* debugging */
+struct _thread_ledger_indices thread_ledgers = { -1 };
+static ledger_template_t thread_ledger_template = NULL;
+static void init_thread_ledgers(void);
-unsigned int stack_alloc_total = 0;
-unsigned int stack_alloc_hiwater = 0;
+#if CONFIG_JETSAM
+void jetsam_on_ledger_cpulimit_exceeded(void);
+#endif
/*
- * The next field is at the base of the stack,
- * so the low end is left unsullied.
+ * Level (in terms of percentage of the limit) at which the CPU usage monitor triggers telemetry.
+ *
+ * (ie when any thread's CPU consumption exceeds 70% of the limit, start taking user
+ * stacktraces, aka micro-stackshots)
*/
+#define CPUMON_USTACKSHOTS_TRIGGER_DEFAULT_PCT 70
-#define stack_next(stack) (*((vm_offset_t *)((stack) + KERNEL_STACK_SIZE) - 1))
+int cpumon_ustackshots_trigger_pct; /* Percentage. Level at which we start gathering telemetry. */
+void __attribute__((noinline)) SENDING_NOTIFICATION__THIS_THREAD_IS_CONSUMING_TOO_MUCH_CPU(void);
/*
- * stack_alloc:
- *
- * Allocate a kernel stack for an activation.
- * May block.
+ * The smallest interval over which we support limiting CPU consumption is 1ms
*/
-vm_offset_t
-stack_alloc(
- thread_t thread,
- void (*start_pos)(thread_t))
-{
- vm_offset_t stack;
- spl_t s;
+#define MINIMUM_CPULIMIT_INTERVAL_MS 1
+void
+thread_bootstrap(void)
+{
/*
- * We first try the free list. It is probably empty,
- * or stack_alloc_try would have succeeded, but possibly
- * a stack was freed before the swapin thread got to us.
+ * Fill in a template thread for fast initialization.
*/
- s = splsched();
- stack_lock();
- stack = stack_free_list;
- if (stack != 0) {
- stack_free_list = stack_next(stack);
- stack_free_count--;
- }
- stack_unlock();
- splx(s);
-
- if (stack == 0) {
- /*
- * Kernel stacks should be naturally aligned,
- * so that it is easy to find the starting/ending
- * addresses of a stack given an address in the middle.
- */
+#if MACH_ASSERT
+ thread_template.thread_magic = THREAD_MAGIC;
+#endif /* MACH_ASSERT */
+
+ thread_template.runq = PROCESSOR_NULL;
+
+ thread_template.ref_count = 2;
+
+ thread_template.reason = AST_NONE;
+ thread_template.at_safe_point = FALSE;
+ thread_template.wait_event = NO_EVENT64;
+ thread_template.waitq = NULL;
+ thread_template.wait_result = THREAD_WAITING;
+ thread_template.options = THREAD_ABORTSAFE;
+ thread_template.state = TH_WAIT | TH_UNINT;
+ thread_template.wake_active = FALSE;
+ thread_template.continuation = THREAD_CONTINUE_NULL;
+ thread_template.parameter = NULL;
+
+ thread_template.importance = 0;
+ thread_template.sched_mode = TH_MODE_NONE;
+ thread_template.sched_flags = 0;
+ thread_template.saved_mode = TH_MODE_NONE;
+ thread_template.safe_release = 0;
+ thread_template.th_sched_bucket = TH_BUCKET_RUN;
+
+ thread_template.sfi_class = SFI_CLASS_UNSPECIFIED;
+ thread_template.sfi_wait_class = SFI_CLASS_UNSPECIFIED;
+
+ thread_template.active = 0;
+ thread_template.started = 0;
+ thread_template.static_param = 0;
+ thread_template.policy_reset = 0;
+
+ thread_template.base_pri = BASEPRI_DEFAULT;
+ thread_template.sched_pri = 0;
+ thread_template.max_priority = 0;
+ thread_template.task_priority = 0;
+ thread_template.promotions = 0;
+ thread_template.pending_promoter_index = 0;
+ thread_template.pending_promoter[0] = NULL;
+ thread_template.pending_promoter[1] = NULL;
+ thread_template.rwlock_count = 0;
+
+
+ thread_template.realtime.deadline = UINT64_MAX;
+
+ thread_template.quantum_remaining = 0;
+ thread_template.last_run_time = 0;
+ thread_template.last_made_runnable_time = THREAD_NOT_RUNNABLE;
+ thread_template.last_basepri_change_time = THREAD_NOT_RUNNABLE;
+ thread_template.same_pri_latency = 0;
+
+ thread_template.computation_metered = 0;
+ thread_template.computation_epoch = 0;
+
+#if defined(CONFIG_SCHED_TIMESHARE_CORE)
+ thread_template.sched_stamp = 0;
+ thread_template.pri_shift = INT8_MAX;
+ thread_template.sched_usage = 0;
+ thread_template.cpu_usage = thread_template.cpu_delta = 0;
+#endif
+ thread_template.c_switch = thread_template.p_switch = thread_template.ps_switch = 0;
+
+#if MONOTONIC
+ memset(&thread_template.t_monotonic, 0,
+ sizeof(thread_template.t_monotonic));
+#endif /* MONOTONIC */
+
+ thread_template.bound_processor = PROCESSOR_NULL;
+ thread_template.last_processor = PROCESSOR_NULL;
+
+ thread_template.sched_call = sched_call_null;
+
+ timer_init(&thread_template.user_timer);
+ timer_init(&thread_template.system_timer);
+ timer_init(&thread_template.ptime);
+ thread_template.user_timer_save = 0;
+ thread_template.system_timer_save = 0;
+ thread_template.vtimer_user_save = 0;
+ thread_template.vtimer_prof_save = 0;
+ thread_template.vtimer_rlim_save = 0;
+ thread_template.vtimer_qos_save = 0;
+
+#if CONFIG_SCHED_SFI
+ thread_template.wait_sfi_begin_time = 0;
+#endif
- if (kmem_alloc_aligned(kernel_map, &stack,
- round_page(KERNEL_STACK_SIZE)) != KERN_SUCCESS)
- panic("stack_alloc");
+ thread_template.wait_timer_is_set = FALSE;
+ thread_template.wait_timer_active = 0;
- stack_alloc_total++;
- if (stack_alloc_total > stack_alloc_hiwater)
- stack_alloc_hiwater = stack_alloc_total;
+ thread_template.depress_timer_active = 0;
-#if MACH_DEBUG
- stack_init(stack, round_page(KERNEL_STACK_SIZE));
-#endif /* MACH_DEBUG */
+ thread_template.recover = (vm_offset_t)NULL;
+
+ thread_template.map = VM_MAP_NULL;
+
+#if CONFIG_DTRACE
+ thread_template.t_dtrace_predcache = 0;
+ thread_template.t_dtrace_vtime = 0;
+ thread_template.t_dtrace_tracing = 0;
+#endif /* CONFIG_DTRACE */
+
+#if KPERF
+ thread_template.kperf_flags = 0;
+ thread_template.kperf_pet_gen = 0;
+ thread_template.kperf_c_switch = 0;
+ thread_template.kperf_pet_cnt = 0;
+#endif
- /*
- * If using fractional pages, free the remainder(s)
- */
- if (KERNEL_STACK_SIZE < round_page(KERNEL_STACK_SIZE)) {
- vm_offset_t ptr = stack + KERNEL_STACK_SIZE;
- vm_offset_t endp = stack + round_page(KERNEL_STACK_SIZE);
- while (ptr < endp) {
-#if MACH_DEBUG
- /*
- * We need to initialize just the end of the
- * region.
- */
- stack_init(ptr, (unsigned int) (endp - ptr));
+#if KPC
+ thread_template.kpc_buf = NULL;
#endif
- stack_lock();
- stack_next(stack) = stack_free_list;
- stack_free_list = stack;
- if (++stack_free_count > stack_free_max)
- stack_free_max = stack_free_count;
- stack_unlock();
- ptr += KERNEL_STACK_SIZE;
- }
- }
- }
- stack_attach(thread, stack, start_pos);
- return (stack);
-}
-/*
- * stack_free:
- *
- * Free a kernel stack.
- * Called at splsched.
- */
+#if HYPERVISOR
+ thread_template.hv_thread_target = NULL;
+#endif /* HYPERVISOR */
-void
-stack_free(
- thread_t thread)
-{
- vm_offset_t stack = stack_detach(thread);
- assert(stack);
- if (stack != thread->stack_privilege) {
- stack_lock();
- stack_next(stack) = stack_free_list;
- stack_free_list = stack;
- if (++stack_free_count > stack_free_max)
- stack_free_max = stack_free_count;
- stack_unlock();
- }
-}
+#if (DEVELOPMENT || DEBUG)
+ thread_template.t_page_creation_throttled_hard = 0;
+ thread_template.t_page_creation_throttled_soft = 0;
+#endif /* DEVELOPMENT || DEBUG */
+ thread_template.t_page_creation_throttled = 0;
+ thread_template.t_page_creation_count = 0;
+ thread_template.t_page_creation_time = 0;
-/*
- * stack_collect:
- *
- * Free excess kernel stacks.
- * May block.
- */
+ thread_template.affinity_set = NULL;
+
+ thread_template.syscalls_unix = 0;
+ thread_template.syscalls_mach = 0;
-void
-stack_collect(void)
-{
- register vm_offset_t stack;
- spl_t s;
+ thread_template.t_ledger = LEDGER_NULL;
+ thread_template.t_threadledger = LEDGER_NULL;
+ thread_template.t_bankledger = LEDGER_NULL;
+ thread_template.t_deduct_bank_ledger_time = 0;
- /* If using fractional pages, Cannot just call kmem_free(),
- * and we're too lazy to coalesce small chunks.
- */
- if (KERNEL_STACK_SIZE < round_page(KERNEL_STACK_SIZE))
- return;
+ thread_template.requested_policy = (struct thread_requested_policy) {};
+ thread_template.effective_policy = (struct thread_effective_policy) {};
- s = splsched();
- stack_lock();
- while (stack_free_count > stack_free_limit) {
- stack = stack_free_list;
- stack_free_list = stack_next(stack);
- stack_free_count--;
- stack_unlock();
- splx(s);
+ bzero(&thread_template.overrides, sizeof(thread_template.overrides));
+ thread_template.sync_ipc_overrides = 0;
-#if MACH_DEBUG
- stack_finalize(stack);
-#endif /* MACH_DEBUG */
- kmem_free(kernel_map, stack, KERNEL_STACK_SIZE);
+ thread_template.iotier_override = THROTTLE_LEVEL_NONE;
+ thread_template.thread_io_stats = NULL;
+#if CONFIG_EMBEDDED
+ thread_template.taskwatch = NULL;
+#endif /* CONFIG_EMBEDDED */
+ thread_template.thread_callout_interrupt_wakeups = thread_template.thread_callout_platform_idle_wakeups = 0;
- s = splsched();
- stack_alloc_total--;
- stack_lock();
- }
- stack_unlock();
- splx(s);
-}
+ thread_template.thread_timer_wakeups_bin_1 = thread_template.thread_timer_wakeups_bin_2 = 0;
+ thread_template.callout_woken_from_icontext = thread_template.callout_woken_from_platform_idle = 0;
+ thread_template.thread_tag = 0;
-#if MACH_DEBUG
-/*
- * stack_statistics:
- *
- * Return statistics on cached kernel stacks.
- * *maxusagep must be initialized by the caller.
- */
+ thread_template.ith_voucher_name = MACH_PORT_NULL;
+ thread_template.ith_voucher = IPC_VOUCHER_NULL;
+
+ thread_template.th_work_interval = NULL;
+
+ init_thread = thread_template;
+ machine_set_current_thread(&init_thread);
+}
+
+extern boolean_t allow_qos_policy_set;
void
-stack_statistics(
- unsigned int *totalp,
- vm_size_t *maxusagep)
+thread_init(void)
{
- spl_t s;
+ thread_zone = zinit(
+ sizeof(struct thread),
+ thread_max * sizeof(struct thread),
+ THREAD_CHUNK * sizeof(struct thread),
+ "threads");
- s = splsched();
- stack_lock();
+ thread_qos_override_zone = zinit(
+ sizeof(struct thread_qos_override),
+ 4 * thread_max * sizeof(struct thread_qos_override),
+ PAGE_SIZE,
+ "thread qos override");
+ zone_change(thread_qos_override_zone, Z_EXPAND, TRUE);
+ zone_change(thread_qos_override_zone, Z_COLLECT, TRUE);
+ zone_change(thread_qos_override_zone, Z_CALLERACCT, FALSE);
+ zone_change(thread_qos_override_zone, Z_NOENCRYPT, TRUE);
-#if STACK_USAGE
- if (stack_check_usage) {
- vm_offset_t stack;
+ lck_grp_attr_setdefault(&thread_lck_grp_attr);
+ lck_grp_init(&thread_lck_grp, "thread", &thread_lck_grp_attr);
+ lck_attr_setdefault(&thread_lck_attr);
- /*
- * This is pretty expensive to do at splsched,
- * but it only happens when someone makes
- * a debugging call, so it should be OK.
- */
+ stack_init();
- for (stack = stack_free_list; stack != 0;
- stack = stack_next(stack)) {
- vm_size_t usage = stack_usage(stack);
+ thread_policy_init();
- if (usage > *maxusagep)
- *maxusagep = usage;
- }
- }
-#endif /* STACK_USAGE */
+ /*
+ * Initialize any machine-dependent
+ * per-thread structures necessary.
+ */
+ machine_thread_init();
- *totalp = stack_free_count;
- stack_unlock();
- splx(s);
-}
-#endif /* MACH_DEBUG */
+ if (!PE_parse_boot_argn("cpumon_ustackshots_trigger_pct", &cpumon_ustackshots_trigger_pct,
+ sizeof (cpumon_ustackshots_trigger_pct))) {
+ cpumon_ustackshots_trigger_pct = CPUMON_USTACKSHOTS_TRIGGER_DEFAULT_PCT;
+ }
-#endif /* MACHINE_STACK */
+ PE_parse_boot_argn("-qos-policy-allow", &allow_qos_policy_set, sizeof(allow_qos_policy_set));
+ init_thread_ledgers();
+}
-stack_fake_zone_info(int *count, vm_size_t *cur_size, vm_size_t *max_size, vm_size_t *elem_size,
- vm_size_t *alloc_size, int *collectable, int *exhaustable)
+boolean_t
+thread_is_active(thread_t thread)
{
- *count = stack_alloc_total - stack_free_count;
- *cur_size = KERNEL_STACK_SIZE * stack_alloc_total;
- *max_size = KERNEL_STACK_SIZE * stack_alloc_hiwater;
- *elem_size = KERNEL_STACK_SIZE;
- *alloc_size = KERNEL_STACK_SIZE;
- *collectable = 1;
- *exhaustable = 0;
+ return (thread->active);
}
-
-/*
- * stack_privilege:
- *
- * stack_alloc_try on this thread must always succeed.
- */
-
void
-stack_privilege(
- register thread_t thread)
+thread_corpse_continue(void)
{
+ thread_t thread = current_thread();
+
+ thread_terminate_internal(thread);
+
/*
- * This implementation only works for the current thread.
+ * Handle the thread termination directly
+ * here instead of returning to userspace.
*/
+ assert(thread->active == FALSE);
+ thread_ast_clear(thread, AST_APC);
+ thread_apc_ast(thread);
- if (thread != current_thread())
- panic("stack_privilege");
+ panic("thread_corpse_continue");
+ /*NOTREACHED*/
+}
- if (thread->stack_privilege == 0)
- thread->stack_privilege = current_stack();
+static void
+thread_terminate_continue(void)
+{
+ panic("thread_terminate_continue");
+ /*NOTREACHED*/
}
/*
- * stack_alloc_try:
- *
- * Non-blocking attempt to allocate a kernel stack.
- * Called at splsched with the thread locked.
+ * thread_terminate_self:
*/
-
-boolean_t stack_alloc_try(
- thread_t thread,
- void (*start_pos)(thread_t))
+void
+thread_terminate_self(void)
{
- register vm_offset_t stack;
+ thread_t thread = current_thread();
+ task_t task;
+ spl_t s;
+ int threadcnt;
- if ((stack = thread->stack_privilege) == (vm_offset_t)0) {
- stack_lock();
- stack = stack_free_list;
- if (stack != (vm_offset_t)0) {
- stack_free_list = stack_next(stack);
- stack_free_count--;
- }
- stack_unlock();
- }
+ pal_thread_terminate_self(thread);
- if (stack != 0) {
- stack_attach(thread, stack, start_pos);
- stack_alloc_hits++;
- return TRUE;
- } else {
- stack_alloc_misses++;
- return FALSE;
- }
-}
+ DTRACE_PROC(lwp__exit);
-natural_t min_quantum_abstime;
-extern natural_t min_quantum_ms;
+ thread_mtx_lock(thread);
-void
-thread_init(void)
-{
- thread_shuttle_zone = zinit(
- sizeof(struct thread_shuttle),
- THREAD_MAX * sizeof(struct thread_shuttle),
- THREAD_CHUNK * sizeof(struct thread_shuttle),
- "threads");
+ ipc_thread_disable(thread);
- /*
- * Fill in a template thread_shuttle for fast initialization.
- * [Fields that must be (or are typically) reset at
- * time of creation are so noted.]
- */
+ thread_mtx_unlock(thread);
- /* thr_sh_template.links (none) */
- thr_sh_template.runq = RUN_QUEUE_NULL;
-
-
- /* thr_sh_template.task (later) */
- /* thr_sh_template.thread_list (later) */
- /* thr_sh_template.pset_threads (later) */
-
- /* one ref for pset, one for activation */
- thr_sh_template.ref_count = 2;
-
- thr_sh_template.wait_event = NO_EVENT;
- thr_sh_template.wait_result = KERN_SUCCESS;
- thr_sh_template.wait_queue = WAIT_QUEUE_NULL;
- thr_sh_template.wake_active = FALSE;
- thr_sh_template.state = TH_WAIT|TH_UNINT;
- thr_sh_template.interruptible = TRUE;
- thr_sh_template.continuation = (void (*)(void))0;
- thr_sh_template.top_act = THR_ACT_NULL;
-
- thr_sh_template.importance = 0;
- thr_sh_template.sched_mode = 0;
-
- thr_sh_template.priority = 0;
- thr_sh_template.sched_pri = 0;
- thr_sh_template.depress_priority = -1;
- thr_sh_template.max_priority = 0;
-
- thr_sh_template.cpu_usage = 0;
- thr_sh_template.sched_usage = 0;
- thr_sh_template.sched_stamp = 0;
- thr_sh_template.sleep_stamp = 0;
-
- thr_sh_template.policy = POLICY_NULL;
- thr_sh_template.sp_state = 0;
- thr_sh_template.unconsumed_quantum = 0;
-
- thr_sh_template.vm_privilege = FALSE;
-
- timer_init(&(thr_sh_template.user_timer));
- timer_init(&(thr_sh_template.system_timer));
- thr_sh_template.user_timer_save.low = 0;
- thr_sh_template.user_timer_save.high = 0;
- thr_sh_template.system_timer_save.low = 0;
- thr_sh_template.system_timer_save.high = 0;
- thr_sh_template.cpu_delta = 0;
- thr_sh_template.sched_delta = 0;
-
- thr_sh_template.active = FALSE; /* reset */
-
- /* thr_sh_template.processor_set (later) */
-#if NCPUS > 1
- thr_sh_template.bound_processor = PROCESSOR_NULL;
-#endif /*NCPUS > 1*/
-#if MACH_HOST
- thr_sh_template.may_assign = TRUE;
- thr_sh_template.assign_active = FALSE;
-#endif /* MACH_HOST */
- thr_sh_template.funnel_state = 0;
-
-#if NCPUS > 1
- /* thr_sh_template.last_processor (later) */
-#endif /* NCPUS > 1 */
+ s = splsched();
+ thread_lock(thread);
/*
- * Initialize other data structures used in
- * this module.
+ * Cancel priority depression, wait for concurrent expirations
+ * on other processors.
*/
+ if (thread->sched_flags & TH_SFLAG_DEPRESSED_MASK) {
+ thread->sched_flags &= ~TH_SFLAG_DEPRESSED_MASK;
- queue_init(&reaper_queue);
- simple_lock_init(&reaper_lock, ETAP_THREAD_REAPER);
- thr_sh_template.funnel_lock = THR_FUNNEL_NULL;
-
-#ifndef MACHINE_STACK
- simple_lock_init(&stack_lock_data, ETAP_THREAD_STACK);
-#endif /* MACHINE_STACK */
+ /* If our priority was low because of a depressed yield, restore it in case we block below */
+ thread_recompute_sched_pri(thread, FALSE);
-#if MACH_DEBUG
- simple_lock_init(&stack_usage_lock, ETAP_THREAD_STACK_USAGE);
-#endif /* MACH_DEBUG */
+ if (timer_call_cancel(&thread->depress_timer))
+ thread->depress_timer_active--;
+ }
-#if MACH_LDEBUG
- thr_sh_template.kthread = FALSE;
- thr_sh_template.mutex_count = 0;
-#endif /* MACH_LDEBUG */
+ while (thread->depress_timer_active > 0) {
+ thread_unlock(thread);
+ splx(s);
- {
- AbsoluteTime abstime;
+ delay(1);
- clock_interval_to_absolutetime_interval(
- min_quantum_ms, 1000*NSEC_PER_USEC, &abstime);
- assert(abstime.hi == 0 && abstime.lo != 0);
- min_quantum_abstime = abstime.lo;
+ s = splsched();
+ thread_lock(thread);
}
- /*
- * Initialize any machine-dependent
- * per-thread structures necessary.
- */
- thread_machine_init();
-}
+ thread_sched_call(thread, NULL);
-void
-thread_reaper_enqueue(
- thread_t thread)
-{
- /*
- * thread lock is already held, splsched()
- * not necessary here.
- */
- simple_lock(&reaper_lock);
+ thread_unlock(thread);
+ splx(s);
- enqueue_tail(&reaper_queue, (queue_entry_t)thread);
-#if 0 /* CHECKME! */
- /*
- * Since thread has been put in the reaper_queue, it must no longer
- * be preempted (otherwise, it could be put back in a run queue).
- */
- thread->preempt = TH_NOT_PREEMPTABLE;
-#endif
+#if CONFIG_EMBEDDED
+ thead_remove_taskwatch(thread);
+#endif /* CONFIG_EMBEDDED */
- simple_unlock(&reaper_lock);
+ work_interval_thread_terminate(thread);
- thread_call_enter(thread_reaper_call);
-}
+ thread_mtx_lock(thread);
+ thread_policy_reset(thread);
-/*
- * Routine: thread_terminate_self
- *
- * This routine is called by a thread which has unwound from
- * its current RPC and kernel contexts and found that it's
- * root activation has been marked for extinction. This lets
- * it clean up the last few things that can only be cleaned
- * up in this context and then impale itself on the reaper
- * queue.
- *
- * When the reaper gets the thread, it will deallocate the
- * thread_act's reference on itself, which in turn will release
- * its own reference on this thread. By doing things in that
- * order, a thread_act will always have a valid thread - but the
- * thread may persist beyond having a thread_act (but must never
- * run like that).
- */
-void
-thread_terminate_self(void)
-{
- register thread_t thread = current_thread();
- thread_act_t thr_act = thread->top_act;
- task_t task = thr_act->task;
- int active_acts;
- spl_t s;
+ thread_mtx_unlock(thread);
+
+ bank_swap_thread_bank_ledger(thread, NULL);
+
+ task = thread->task;
+ uthread_cleanup(task, thread->uthread, task->bsd_info);
+
+ if (task->bsd_info && !task_is_exec_copy(task)) {
+ /* trace out pid before we sign off */
+ long dbg_arg1 = 0;
+ long dbg_arg2 = 0;
+
+ kdbg_trace_data(thread->task->bsd_info, &dbg_arg1, &dbg_arg2);
+
+ KERNEL_DEBUG_CONSTANT(TRACE_DATA_THREAD_TERMINATE_PID | DBG_FUNC_NONE,
+ dbg_arg1, 0, 0, 0, 0);
+ }
/*
- * We should be at the base of the inheritance chain.
+ * After this subtraction, this thread should never access
+ * task->bsd_info unless it got 0 back from the hw_atomic_sub. It
+ * could be racing with other threads to be the last thread in the
+ * process, and the last thread in the process will tear down the proc
+ * structure and zero-out task->bsd_info.
*/
- assert(thr_act->thread == thread);
+ threadcnt = hw_atomic_sub(&task->active_thread_count, 1);
/*
- * Check to see if this is the last active activation. By
- * this we mean the last activation to call thread_terminate_self.
- * If so, and the task is associated with a BSD process, we
- * need to call BSD and let them clean up.
+ * If we are the last thread to terminate and the task is
+ * associated with a BSD process, perform BSD process exit.
*/
- task_lock(task);
- active_acts = --task->active_act_count;
- task_unlock(task);
- if (!active_acts && task->bsd_info)
- proc_exit(task->bsd_info);
+ if (threadcnt == 0 && task->bsd_info != NULL && !task_is_exec_copy(task)) {
+ mach_exception_data_type_t subcode = 0;
+ {
+ /* since we're the last thread in this process, trace out the command name too */
+ long dbg_arg1 = 0, dbg_arg2 = 0, dbg_arg3 = 0, dbg_arg4 = 0;
-#ifdef CALLOUT_RPC_MODEL
- if (thr_act->lower) {
- /*
- * JMM - RPC will not be using a callout/stack manipulation
- * mechanism. instead we will let it return normally as if
- * from a continuation. Accordingly, these need to be cleaned
- * up a bit.
- */
- act_switch_swapcheck(thread, (ipc_port_t)0);
- act_lock(thr_act); /* hierarchy violation XXX */
- (void) switch_act(THR_ACT_NULL);
- assert(thr_act->ref_count == 1); /* XXX */
- /* act_deallocate(thr_act); XXX */
- prev_act = thread->top_act;
- /*
- * disable preemption to protect kernel stack changes
- * disable_preemption();
- * MACH_RPC_RET(prev_act) = KERN_RPC_SERVER_TERMINATED;
- * machine_kernel_stack_init(thread, mach_rpc_return_error);
- */
- act_unlock(thr_act);
+ kdbg_trace_string(thread->task->bsd_info, &dbg_arg1, &dbg_arg2, &dbg_arg3, &dbg_arg4);
+ KERNEL_DEBUG_CONSTANT(TRACE_STRING_PROC_EXIT | DBG_FUNC_NONE,
+ dbg_arg1, dbg_arg2, dbg_arg3, dbg_arg4, 0);
+ }
+
+ /* Get the exit reason before proc_exit */
+ subcode = proc_encode_exit_exception_code(task->bsd_info);
+ proc_exit(task->bsd_info);
/*
- * Load_context(thread);
+ * if there is crash info in task
+ * then do the deliver action since this is
+ * last thread for this task.
*/
- /* NOTREACHED */
+ if (task->corpse_info) {
+ task_deliver_crash_notification(task, current_thread(), EXC_RESOURCE, subcode);
+ }
}
-#else /* !CALLOUT_RPC_MODEL */
-
- assert(!thr_act->lower);
+ if (threadcnt == 0) {
+ task_lock(task);
+ if (task_is_a_corpse_fork(task)) {
+ thread_wakeup((event_t)&task->active_thread_count);
+ }
+ task_unlock(task);
+ }
-#endif /* CALLOUT_RPC_MODEL */
+ uthread_cred_free(thread->uthread);
s = splsched();
thread_lock(thread);
- thread->active = FALSE;
- thread_unlock(thread);
- splx(s);
- thread_timer_terminate();
+ /*
+ * Cancel wait timer, and wait for
+ * concurrent expirations.
+ */
+ if (thread->wait_timer_is_set) {
+ thread->wait_timer_is_set = FALSE;
+
+ if (timer_call_cancel(&thread->wait_timer))
+ thread->wait_timer_active--;
+ }
- /* flush any lazy HW state while in own context */
- thread_machine_flush(thr_act);
+ while (thread->wait_timer_active > 0) {
+ thread_unlock(thread);
+ splx(s);
- ipc_thread_terminate(thread);
+ delay(1);
+
+ s = splsched();
+ thread_lock(thread);
+ }
- s = splsched();
- thread_lock(thread);
- thread->state |= (TH_HALTED|TH_TERMINATE);
- assert((thread->state & TH_UNINT) == 0);
-#if 0 /* CHECKME! */
/*
- * Since thread has been put in the reaper_queue, it must no longer
- * be preempted (otherwise, it could be put back in a run queue).
+ * If there is a reserved stack, release it.
*/
- thread->preempt = TH_NOT_PREEMPTABLE;
-#endif
+ if (thread->reserved_stack != 0) {
+ stack_free_reserved(thread);
+ thread->reserved_stack = 0;
+ }
+
+ /*
+ * Mark thread as terminating, and block.
+ */
+ thread->state |= TH_TERMINATE;
thread_mark_wait_locked(thread, THREAD_UNINT);
+ assert((thread->sched_flags & TH_SFLAG_PROMOTED) == 0);
+ assert(thread->promotions == 0);
+ assert(!(thread->sched_flags & TH_SFLAG_WAITQ_PROMOTED));
+ assert(thread->rwlock_count == 0);
thread_unlock(thread);
- /* splx(s); */
+ /* splsched */
- ETAP_SET_REASON(thread, BLOCKED_ON_TERMINATION);
- thread_block((void (*)(void)) 0);
- panic("the zombie walks!");
+ thread_block((thread_continue_t)thread_terminate_continue);
/*NOTREACHED*/
}
+/* Drop a thread refcount that definitely isn't the last one. */
+void
+thread_deallocate_safe(thread_t thread)
+{
+ assert_thread_magic(thread);
-/*
- * Create a new thread.
- * Doesn't start the thread running; It first must be attached to
- * an activation - then use thread_go to start it.
- */
-kern_return_t
-thread_create_shuttle(
- thread_act_t thr_act,
- integer_t priority,
- void (*start)(void),
- thread_t *new_thread)
+ uint32_t old_refcount = atomic_fetch_sub_explicit(&thread->ref_count, 1, memory_order_release);
+
+ if (__improbable(old_refcount <= 1))
+ panic("bad thread refcount: %d", old_refcount);
+}
+
+void
+thread_deallocate(
+ thread_t thread)
{
- thread_t new_shuttle;
- task_t parent_task = thr_act->task;
- processor_set_t pset;
- kern_return_t result;
- sched_policy_t *policy;
- sf_return_t sfr;
- int suspcnt;
+ task_t task;
+ __assert_only uint32_t th_ref_count;
- assert(!thr_act->thread);
- assert(!thr_act->pool_port);
+ if (thread == THREAD_NULL)
+ return;
- /*
- * Allocate a thread and initialize static fields
- */
- new_shuttle = (thread_t)zalloc(thread_shuttle_zone);
- if (new_shuttle == THREAD_NULL)
- return (KERN_RESOURCE_SHORTAGE);
+ assert_thread_magic(thread);
- *new_shuttle = thr_sh_template;
+ if (__probable(atomic_fetch_sub_explicit(&thread->ref_count, 1,
+ memory_order_release) - 1 > 0)) {
+ return;
+ }
- thread_lock_init(new_shuttle);
- rpc_lock_init(new_shuttle);
- wake_lock_init(new_shuttle);
- new_shuttle->sleep_stamp = sched_tick;
+ th_ref_count = atomic_load_explicit(&thread->ref_count, memory_order_acquire);
+ assert(th_ref_count == 0);
- pset = parent_task->processor_set;
- if (!pset->active) {
- pset = &default_pset;
- }
- pset_lock(pset);
+ assert(thread_owned_workloops_count(thread) == 0);
- task_lock(parent_task);
+ if (!(thread->state & TH_TERMINATE2))
+ panic("thread_deallocate: thread not properly terminated\n");
- /*
- * Don't need to initialize because the context switch
- * code will set it before it can be used.
- */
- if (!parent_task->active) {
- task_unlock(parent_task);
- pset_unlock(pset);
- zfree(thread_shuttle_zone, (vm_offset_t) new_shuttle);
- return (KERN_FAILURE);
- }
+ assert(thread->runq == PROCESSOR_NULL);
- act_attach(thr_act, new_shuttle, 0);
+ assert(thread->user_promotions == 0);
- /* Chain the thr_act onto the task's list */
- queue_enter(&parent_task->thr_acts, thr_act, thread_act_t, thr_acts);
- parent_task->thr_act_count++;
- parent_task->res_act_count++;
- parent_task->active_act_count++;
+#if KPC
+ kpc_thread_destroy(thread);
+#endif
- /* Associate the thread with that scheduling policy */
- new_shuttle->policy = parent_task->policy;
- policy = &sched_policy[new_shuttle->policy];
- sfr = policy->sp_ops.sp_thread_attach(policy, new_shuttle);
- if (sfr != SF_SUCCESS)
- panic("thread_create_shuttle: sp_thread_attach");
+ ipc_thread_terminate(thread);
- /* Associate the thread with the processor set */
- sfr = policy->sp_ops.sp_thread_processor_set(policy, new_shuttle, pset);
- if (sfr != SF_SUCCESS)
- panic("thread_create_shuttle: sp_thread_proceessor_set");
+ proc_thread_qos_deallocate(thread);
- /* Set the thread's scheduling parameters */
- new_shuttle->max_priority = parent_task->max_priority;
- new_shuttle->priority = (priority < 0)? parent_task->priority: priority;
- if (new_shuttle->priority > new_shuttle->max_priority)
- new_shuttle->priority = new_shuttle->max_priority;
- sfr = policy->sp_ops.sp_thread_setup(policy, new_shuttle);
- if (sfr != SF_SUCCESS)
- panic("thread_create_shuttle: sp_thread_setup");
+ task = thread->task;
-#if ETAP_EVENT_MONITOR
- new_thread->etap_reason = 0;
- new_thread->etap_trace = FALSE;
-#endif /* ETAP_EVENT_MONITOR */
+#ifdef MACH_BSD
+ {
+ void *ut = thread->uthread;
- new_shuttle->active = TRUE;
- thr_act->active = TRUE;
- pset_unlock(pset);
+ thread->uthread = NULL;
+ uthread_zone_free(ut);
+ }
+#endif /* MACH_BSD */
+ if (thread->t_ledger)
+ ledger_dereference(thread->t_ledger);
+ if (thread->t_threadledger)
+ ledger_dereference(thread->t_threadledger);
- /*
- * No need to lock thr_act, since it can't be known to anyone --
- * we set its suspend_count to one more than the task suspend_count
- * by calling thread_hold.
- */
- thr_act->user_stop_count = 1;
- for (suspcnt = thr_act->task->suspend_count + 1; suspcnt; --suspcnt)
- thread_hold(thr_act);
- task_unlock(parent_task);
+ if (IPC_VOUCHER_NULL != thread->ith_voucher)
+ ipc_voucher_release(thread->ith_voucher);
- /*
- * Thread still isn't runnable yet (our caller will do
- * that). Initialize runtime-dependent fields here.
- */
- result = thread_machine_create(new_shuttle, thr_act, thread_continue);
- assert (result == KERN_SUCCESS);
+ if (thread->thread_io_stats)
+ kfree(thread->thread_io_stats, sizeof(struct io_stat_info));
- machine_kernel_stack_init(new_shuttle, thread_continue);
- ipc_thread_init(new_shuttle);
- thread_start(new_shuttle, start);
- thread_timer_setup(new_shuttle);
+ if (thread->kernel_stack != 0)
+ stack_free(thread);
- *new_thread = new_shuttle;
+ lck_mtx_destroy(&thread->mutex, &thread_lck_grp);
+ machine_thread_destroy(thread);
- {
- long dbg_arg1, dbg_arg2, dbg_arg3, dbg_arg4;
+ task_deallocate(task);
- KERNEL_DEBUG_CONSTANT((TRACEDBG_CODE(DBG_TRACE_DATA, 1)) | DBG_FUNC_NONE,
- (vm_address_t)new_shuttle, 0,0,0,0);
+#if MACH_ASSERT
+ assert_thread_magic(thread);
+ thread->thread_magic = 0;
+#endif /* MACH_ASSERT */
- kdbg_trace_string(parent_task->bsd_info, &dbg_arg1, &dbg_arg2, &dbg_arg3,
- &dbg_arg4);
- KERNEL_DEBUG_CONSTANT((TRACEDBG_CODE(DBG_TRACE_STRING, 1)) | DBG_FUNC_NONE,
- dbg_arg1, dbg_arg2, dbg_arg3, dbg_arg4, 0);
- }
+ zfree(thread_zone, thread);
+}
- return (KERN_SUCCESS);
+void
+thread_starts_owning_workloop(thread_t thread)
+{
+ atomic_fetch_add_explicit(&thread->kqwl_owning_count, 1,
+ memory_order_relaxed);
}
-kern_return_t
-thread_create(
- task_t task,
- thread_act_t *new_act)
+void
+thread_ends_owning_workloop(thread_t thread)
{
- thread_act_t thr_act;
- thread_t thread;
- kern_return_t result;
- sched_policy_t *policy;
- sf_return_t sfr;
- spl_t s;
- extern void thread_bootstrap_return(void);
+ __assert_only uint32_t count;
+ count = atomic_fetch_sub_explicit(&thread->kqwl_owning_count, 1,
+ memory_order_relaxed);
+ assert(count > 0);
+}
- if (task == TASK_NULL)
- return KERN_INVALID_ARGUMENT;
+uint32_t
+thread_owned_workloops_count(thread_t thread)
+{
+ return atomic_load_explicit(&thread->kqwl_owning_count,
+ memory_order_relaxed);
+}
- result = act_create(task, &thr_act);
- if (result != KERN_SUCCESS)
- return (result);
+/*
+ * thread_inspect_deallocate:
+ *
+ * Drop a thread inspection reference.
+ */
+void
+thread_inspect_deallocate(
+ thread_inspect_t thread_inspect)
+{
+ return(thread_deallocate((thread_t)thread_inspect));
+}
- result = thread_create_shuttle(thr_act, -1, thread_bootstrap_return, &thread);
- if (result != KERN_SUCCESS) {
- act_deallocate(thr_act);
- return (result);
- }
+/*
+ * thread_exception_daemon:
+ *
+ * Deliver EXC_{RESOURCE,GUARD} exception
+ */
+static void
+thread_exception_daemon(void)
+{
+ struct thread_exception_elt *elt;
+ task_t task;
+ thread_t thread;
+ exception_type_t etype;
+
+ simple_lock(&thread_exception_lock);
+ while ((elt = (struct thread_exception_elt *)dequeue_head(&thread_exception_queue)) != NULL) {
+ simple_unlock(&thread_exception_lock);
+
+ etype = elt->exception_type;
+ task = elt->exception_task;
+ thread = elt->exception_thread;
+ assert_thread_magic(thread);
+
+ kfree(elt, sizeof (*elt));
+
+ /* wait for all the threads in the task to terminate */
+ task_lock(task);
+ task_wait_till_threads_terminate_locked(task);
+ task_unlock(task);
+
+ /* Consumes the task ref returned by task_generate_corpse_internal */
+ task_deallocate(task);
+ /* Consumes the thread ref returned by task_generate_corpse_internal */
+ thread_deallocate(thread);
- if (task->kernel_loaded)
- thread_user_to_kernel(thread);
+ /* Deliver the notification, also clears the corpse. */
+ task_deliver_crash_notification(task, thread, etype, 0);
- /* Start the thread running (it will immediately suspend itself). */
- s = splsched();
- thread_ast_set(thr_act, AST_APC);
- thread_lock(thread);
- thread_go_locked(thread, THREAD_AWAKENED);
- thread_unlock(thread);
- splx(s);
-
- *new_act = thr_act;
+ simple_lock(&thread_exception_lock);
+ }
- return (KERN_SUCCESS);
+ assert_wait((event_t)&thread_exception_queue, THREAD_UNINT);
+ simple_unlock(&thread_exception_lock);
+
+ thread_block((thread_continue_t)thread_exception_daemon);
}
/*
- * Update thread that belongs to a task created via kernel_task_create().
+ * thread_exception_enqueue:
+ *
+ * Enqueue a corpse port to be delivered an EXC_{RESOURCE,GUARD}.
*/
void
-thread_user_to_kernel(
- thread_t thread)
-{
- /*
- * Used to set special swap_func here...
- */
-}
-
-kern_return_t
-thread_create_running(
- register task_t parent_task,
- int flavor,
- thread_state_t new_state,
- mach_msg_type_number_t new_state_count,
- thread_act_t *child_act) /* OUT */
+thread_exception_enqueue(
+ task_t task,
+ thread_t thread,
+ exception_type_t etype)
{
- register kern_return_t result;
+ assert(EXC_RESOURCE == etype || EXC_GUARD == etype);
+ struct thread_exception_elt *elt = kalloc(sizeof (*elt));
+ elt->exception_type = etype;
+ elt->exception_task = task;
+ elt->exception_thread = thread;
- result = thread_create(parent_task, child_act);
- if (result != KERN_SUCCESS)
- return (result);
-
- result = act_machine_set_state(*child_act, flavor,
- new_state, new_state_count);
- if (result != KERN_SUCCESS) {
- (void) thread_terminate(*child_act);
- return (result);
- }
+ simple_lock(&thread_exception_lock);
+ enqueue_tail(&thread_exception_queue, (queue_entry_t)elt);
+ simple_unlock(&thread_exception_lock);
- result = thread_resume(*child_act);
- if (result != KERN_SUCCESS) {
- (void) thread_terminate(*child_act);
- return (result);
- }
+ thread_wakeup((event_t)&thread_exception_queue);
+}
- return (result);
+/*
+ * thread_copy_resource_info
+ *
+ * Copy the resource info counters from source
+ * thread to destination thread.
+ */
+void
+thread_copy_resource_info(
+ thread_t dst_thread,
+ thread_t src_thread)
+{
+ dst_thread->thread_tag = src_thread->thread_tag;
+ dst_thread->c_switch = src_thread->c_switch;
+ dst_thread->p_switch = src_thread->p_switch;
+ dst_thread->ps_switch = src_thread->ps_switch;
+ dst_thread->precise_user_kernel_time = src_thread->precise_user_kernel_time;
+ dst_thread->user_timer = src_thread->user_timer;
+ dst_thread->user_timer_save = src_thread->user_timer_save;
+ dst_thread->system_timer = src_thread->system_timer;
+ dst_thread->system_timer_save = src_thread->system_timer_save;
+ dst_thread->vtimer_user_save = src_thread->vtimer_user_save;
+ dst_thread->vtimer_prof_save = src_thread->vtimer_prof_save;
+ dst_thread->vtimer_rlim_save = src_thread->vtimer_rlim_save;
+ dst_thread->vtimer_qos_save = src_thread->vtimer_qos_save;
+ dst_thread->syscalls_unix = src_thread->syscalls_unix;
+ dst_thread->syscalls_mach = src_thread->syscalls_mach;
+ ledger_rollup(dst_thread->t_threadledger, src_thread->t_threadledger);
+ *dst_thread->thread_io_stats = *src_thread->thread_io_stats;
}
/*
- * kernel_thread:
+ * thread_terminate_daemon:
*
- * Create and kernel thread in the specified task, and
- * optionally start it running.
+ * Perform final clean up for terminating threads.
*/
-thread_t
-kernel_thread_with_priority(
- task_t task,
- integer_t priority,
- void (*start)(void),
- boolean_t start_running)
+static void
+thread_terminate_daemon(void)
{
- kern_return_t result;
- thread_t thread;
- thread_act_t thr_act;
- sched_policy_t *policy;
- sf_return_t sfr;
- spl_t s;
+ thread_t self, thread;
+ task_t task;
- result = act_create(task, &thr_act);
- if (result != KERN_SUCCESS) {
- return THREAD_NULL;
- }
+ self = current_thread();
+ self->options |= TH_OPT_SYSTEM_CRITICAL;
- result = thread_create_shuttle(thr_act, priority, start, &thread);
- if (result != KERN_SUCCESS) {
- act_deallocate(thr_act);
- return THREAD_NULL;
- }
+ (void)splsched();
+ simple_lock(&thread_terminate_lock);
- thread_swappable(thr_act, FALSE);
+ while ((thread = qe_dequeue_head(&thread_terminate_queue, struct thread, runq_links)) != THREAD_NULL) {
+ assert_thread_magic(thread);
- s = splsched();
- thread_lock(thread);
+ /*
+ * if marked for crash reporting, skip reaping.
+ * The corpse delivery thread will clear bit and enqueue
+ * for reaping when done
+ */
+ if (thread->inspection){
+ enqueue_tail(&crashed_threads_queue, &thread->runq_links);
+ continue;
+ }
- thr_act = thread->top_act;
-#if MACH_LDEBUG
- thread->kthread = TRUE;
-#endif /* MACH_LDEBUG */
+ simple_unlock(&thread_terminate_lock);
+ (void)spllo();
- if (start_running)
- thread_go_locked(thread, THREAD_AWAKENED);
+ task = thread->task;
- thread_unlock(thread);
- splx(s);
+ task_lock(task);
+ task->total_user_time += timer_grab(&thread->user_timer);
+ task->total_ptime += timer_grab(&thread->ptime);
+ if (thread->precise_user_kernel_time) {
+ task->total_system_time += timer_grab(&thread->system_timer);
+ } else {
+ task->total_user_time += timer_grab(&thread->system_timer);
+ }
+
+ task->c_switch += thread->c_switch;
+ task->p_switch += thread->p_switch;
+ task->ps_switch += thread->ps_switch;
+
+ task->syscalls_unix += thread->syscalls_unix;
+ task->syscalls_mach += thread->syscalls_mach;
+
+ task->task_timer_wakeups_bin_1 += thread->thread_timer_wakeups_bin_1;
+ task->task_timer_wakeups_bin_2 += thread->thread_timer_wakeups_bin_2;
+ task->task_gpu_ns += ml_gpu_stat(thread);
+ task->task_energy += ml_energy_stat(thread);
+
+#if MONOTONIC
+ mt_terminate_update(task, thread);
+#endif /* MONOTONIC */
+
+ thread_update_qos_cpu_time(thread);
+
+ queue_remove(&task->threads, thread, thread_t, task_threads);
+ task->thread_count--;
+
+ /*
+ * If the task is being halted, and there is only one thread
+ * left in the task after this one, then wakeup that thread.
+ */
+ if (task->thread_count == 1 && task->halting)
+ thread_wakeup((event_t)&task->halting);
+
+ task_unlock(task);
- if (start_running)
- thread_resume(thr_act);
+ lck_mtx_lock(&tasks_threads_lock);
+ queue_remove(&threads, thread, thread_t, threads);
+ threads_count--;
+ lck_mtx_unlock(&tasks_threads_lock);
- act_deallocate(thr_act);
- return (thread);
+ thread_deallocate(thread);
+
+ (void)splsched();
+ simple_lock(&thread_terminate_lock);
+ }
+
+ assert_wait((event_t)&thread_terminate_queue, THREAD_UNINT);
+ simple_unlock(&thread_terminate_lock);
+ /* splsched */
+
+ self->options &= ~TH_OPT_SYSTEM_CRITICAL;
+ thread_block((thread_continue_t)thread_terminate_daemon);
+ /*NOTREACHED*/
}
-thread_t
-kernel_thread(
- task_t task,
- void (*start)(void))
+/*
+ * thread_terminate_enqueue:
+ *
+ * Enqueue a terminating thread for final disposition.
+ *
+ * Called at splsched.
+ */
+void
+thread_terminate_enqueue(
+ thread_t thread)
{
- return kernel_thread_with_priority(task, -1, start, TRUE);
-}
+ KERNEL_DEBUG_CONSTANT(TRACE_DATA_THREAD_TERMINATE | DBG_FUNC_NONE, thread->thread_id, 0, 0, 0, 0);
-unsigned int c_weird_pset_ref_exit = 0; /* pset code raced us */
+ simple_lock(&thread_terminate_lock);
+ enqueue_tail(&thread_terminate_queue, &thread->runq_links);
+ simple_unlock(&thread_terminate_lock);
+
+ thread_wakeup((event_t)&thread_terminate_queue);
+}
+/*
+ * thread_terminate_crashed_threads:
+ * walk the list of crashed threads and put back set of threads
+ * who are no longer being inspected.
+ */
void
-thread_deallocate(
- thread_t thread)
+thread_terminate_crashed_threads()
{
- task_t task;
- processor_set_t pset;
- sched_policy_t *policy;
- sf_return_t sfr;
- spl_t s;
-
- if (thread == THREAD_NULL)
- return;
+ thread_t th_remove;
+ boolean_t should_wake_terminate_queue = FALSE;
+ simple_lock(&thread_terminate_lock);
/*
- * First, check for new count > 1 (the common case).
- * Only the thread needs to be locked.
+ * loop through the crashed threads queue
+ * to put any threads that are not being inspected anymore
*/
- s = splsched();
- thread_lock(thread);
- if (--thread->ref_count > 1) {
- thread_unlock(thread);
- splx(s);
- return;
- }
- /*
- * Down to pset reference, lets try to clean up.
- * However, the processor set may make more. Its lock
- * also dominate the thread lock. So, reverse the
- * order of the locks and see if its still the last
- * reference;
- */
- assert(thread->ref_count == 1); /* Else this is an extra dealloc! */
- thread_unlock(thread);
- splx(s);
+ qe_foreach_element_safe(th_remove, &crashed_threads_queue, runq_links) {
+ /* make sure current_thread is never in crashed queue */
+ assert(th_remove != current_thread());
+
+ if (th_remove->inspection == FALSE) {
+ re_queue_tail(&thread_terminate_queue, &th_remove->runq_links);
+ should_wake_terminate_queue = TRUE;
+ }
+ }
-#if MACH_HOST
- thread_freeze(thread);
-#endif /* MACH_HOST */
+ simple_unlock(&thread_terminate_lock);
+ if (should_wake_terminate_queue == TRUE) {
+ thread_wakeup((event_t)&thread_terminate_queue);
+ }
+}
- pset = thread->processor_set;
- pset_lock(pset);
+/*
+ * thread_stack_daemon:
+ *
+ * Perform stack allocation as required due to
+ * invoke failures.
+ */
+static void
+thread_stack_daemon(void)
+{
+ thread_t thread;
+ spl_t s;
s = splsched();
- thread_lock(thread);
+ simple_lock(&thread_stack_lock);
- if (thread->ref_count > 1) {
-#if MACH_HOST
- boolean_t need_wakeup = FALSE;
- /*
- * processor_set made extra reference.
- */
- /* Inline the unfreeze */
- thread->may_assign = TRUE;
- if (thread->assign_active) {
- need_wakeup = TRUE;
- thread->assign_active = FALSE;
- }
-#endif /* MACH_HOST */
- thread_unlock(thread);
+ while ((thread = qe_dequeue_head(&thread_stack_queue, struct thread, runq_links)) != THREAD_NULL) {
+ assert_thread_magic(thread);
+
+ simple_unlock(&thread_stack_lock);
splx(s);
- pset_unlock(pset);
-#if MACH_HOST
- if (need_wakeup)
- thread_wakeup((event_t)&thread->assign_active);
-#endif /* MACH_HOST */
- c_weird_pset_ref_exit++;
- return;
+
+ /* allocate stack with interrupts enabled so that we can call into VM */
+ stack_alloc(thread);
+
+ KERNEL_DEBUG_CONSTANT(MACHDBG_CODE(DBG_MACH_SCHED,MACH_STACK_WAIT) | DBG_FUNC_END, thread_tid(thread), 0, 0, 0, 0);
+
+ s = splsched();
+ thread_lock(thread);
+ thread_setrun(thread, SCHED_PREEMPT | SCHED_TAILQ);
+ thread_unlock(thread);
+
+ simple_lock(&thread_stack_lock);
}
-#if MACH_HOST
- assert(thread->assign_active == FALSE);
-#endif /* MACH_HOST */
- /*
- * Thread only had pset reference - we can remove it.
- */
- if (thread == current_thread())
- panic("thread deallocating itself");
-
- /* Detach thread (shuttle) from its sched policy */
- policy = &sched_policy[thread->policy];
- sfr = policy->sp_ops.sp_thread_detach(policy, thread);
- if (sfr != SF_SUCCESS)
- panic("thread_deallocate: sp_thread_detach");
-
- pset_remove_thread(pset, thread);
- thread->ref_count = 0;
- thread_unlock(thread); /* no more references - safe */
+ assert_wait((event_t)&thread_stack_queue, THREAD_UNINT);
+ simple_unlock(&thread_stack_lock);
splx(s);
- pset_unlock(pset);
- pset_deallocate(thread->processor_set);
+ thread_block((thread_continue_t)thread_stack_daemon);
+ /*NOTREACHED*/
+}
- /* frees kernel stack & other MD resources */
- if (thread->stack_privilege && (thread->stack_privilege != thread->kernel_stack)) {
- vm_offset_t stack;
- int s = splsched();
- stack = thread->stack_privilege;
- stack_free(thread);
- thread->kernel_stack = stack;
- splx(s);
- }
- thread->stack_privilege = 0;
- thread_machine_destroy(thread);
+/*
+ * thread_stack_enqueue:
+ *
+ * Enqueue a thread for stack allocation.
+ *
+ * Called at splsched.
+ */
+void
+thread_stack_enqueue(
+ thread_t thread)
+{
+ KERNEL_DEBUG_CONSTANT(MACHDBG_CODE(DBG_MACH_SCHED,MACH_STACK_WAIT) | DBG_FUNC_START, thread_tid(thread), 0, 0, 0, 0);
+ assert_thread_magic(thread);
+
+ simple_lock(&thread_stack_lock);
+ enqueue_tail(&thread_stack_queue, &thread->runq_links);
+ simple_unlock(&thread_stack_lock);
- zfree(thread_shuttle_zone, (vm_offset_t) thread);
+ thread_wakeup((event_t)&thread_stack_queue);
}
void
-thread_reference(
- thread_t thread)
+thread_daemon_init(void)
{
- spl_t s;
+ kern_return_t result;
+ thread_t thread = NULL;
- if (thread == THREAD_NULL)
- return;
+ simple_lock_init(&thread_terminate_lock, 0);
+ queue_init(&thread_terminate_queue);
+ queue_init(&crashed_threads_queue);
- s = splsched();
- thread_lock(thread);
- thread->ref_count++;
- thread_unlock(thread);
- splx(s);
+ result = kernel_thread_start_priority((thread_continue_t)thread_terminate_daemon, NULL, MINPRI_KERNEL, &thread);
+ if (result != KERN_SUCCESS)
+ panic("thread_daemon_init: thread_terminate_daemon");
+
+ thread_deallocate(thread);
+
+ simple_lock_init(&thread_stack_lock, 0);
+ queue_init(&thread_stack_queue);
+
+ result = kernel_thread_start_priority((thread_continue_t)thread_stack_daemon, NULL, BASEPRI_PREEMPT_HIGH, &thread);
+ if (result != KERN_SUCCESS)
+ panic("thread_daemon_init: thread_stack_daemon");
+
+ thread_deallocate(thread);
+
+ simple_lock_init(&thread_exception_lock, 0);
+ queue_init(&thread_exception_queue);
+
+ result = kernel_thread_start_priority((thread_continue_t)thread_exception_daemon, NULL, MINPRI_KERNEL, &thread);
+ if (result != KERN_SUCCESS)
+ panic("thread_daemon_init: thread_exception_daemon");
+
+ thread_deallocate(thread);
}
+#define TH_OPTION_NONE 0x00
+#define TH_OPTION_NOCRED 0x01
+#define TH_OPTION_NOSUSP 0x02
+
/*
- * Called with "appropriate" thread-related locks held on
- * thread and its top_act for synchrony with RPC (see
- * act_lock_thread()).
+ * Create a new thread.
+ * Doesn't start the thread running.
+ *
+ * Task and tasks_threads_lock are returned locked on success.
*/
-kern_return_t
-thread_info_shuttle(
- register thread_act_t thr_act,
- thread_flavor_t flavor,
- thread_info_t thread_info_out, /* ptr to OUT array */
- mach_msg_type_number_t *thread_info_count) /*IN/OUT*/
+static kern_return_t
+thread_create_internal(
+ task_t parent_task,
+ integer_t priority,
+ thread_continue_t continuation,
+ int options,
+ thread_t *out_thread)
{
- register thread_t thread = thr_act->thread;
- int state, flags;
- spl_t s;
+ thread_t new_thread;
+ static thread_t first_thread;
- if (thread == THREAD_NULL)
- return (KERN_INVALID_ARGUMENT);
+ /*
+ * Allocate a thread and initialize static fields
+ */
+ if (first_thread == THREAD_NULL)
+ new_thread = first_thread = current_thread();
+ else
+ new_thread = (thread_t)zalloc(thread_zone);
+ if (new_thread == THREAD_NULL)
+ return (KERN_RESOURCE_SHORTAGE);
- if (flavor == THREAD_BASIC_INFO) {
- register thread_basic_info_t basic_info;
+ if (new_thread != first_thread)
+ *new_thread = thread_template;
- if (*thread_info_count < THREAD_BASIC_INFO_COUNT)
- return (KERN_INVALID_ARGUMENT);
+#ifdef MACH_BSD
+ new_thread->uthread = uthread_alloc(parent_task, new_thread, (options & TH_OPTION_NOCRED) != 0);
+ if (new_thread->uthread == NULL) {
+#if MACH_ASSERT
+ new_thread->thread_magic = 0;
+#endif /* MACH_ASSERT */
- basic_info = (thread_basic_info_t) thread_info_out;
-
- s = splsched();
- thread_lock(thread);
-
- /* fill in info */
-
- thread_read_times(thread, &basic_info->user_time,
- &basic_info->system_time);
-
- if (thread->policy & (POLICY_TIMESHARE|POLICY_RR|POLICY_FIFO)) {
- /*
- * Update lazy-evaluated scheduler info because someone wants it.
- */
- if (thread->sched_stamp != sched_tick)
- update_priority(thread);
-
- basic_info->sleep_time = 0;
-
- /*
- * To calculate cpu_usage, first correct for timer rate,
- * then for 5/8 ageing. The correction factor [3/5] is
- * (1/(5/8) - 1).
- */
- basic_info->cpu_usage = (thread->cpu_usage << SCHED_TICK_SHIFT) /
- (TIMER_RATE / TH_USAGE_SCALE);
- basic_info->cpu_usage = (basic_info->cpu_usage * 3) / 5;
-#if SIMPLE_CLOCK
- /*
- * Clock drift compensation.
- */
- basic_info->cpu_usage =
- (basic_info->cpu_usage * 1000000) / sched_usec;
-#endif /* SIMPLE_CLOCK */
- }
- else
- basic_info->sleep_time = basic_info->cpu_usage = 0;
+ zfree(thread_zone, new_thread);
+ return (KERN_RESOURCE_SHORTAGE);
+ }
+#endif /* MACH_BSD */
+
+ if (machine_thread_create(new_thread, parent_task) != KERN_SUCCESS) {
+#ifdef MACH_BSD
+ void *ut = new_thread->uthread;
- basic_info->policy = thread->policy;
+ new_thread->uthread = NULL;
+ /* cred free may not be necessary */
+ uthread_cleanup(parent_task, ut, parent_task->bsd_info);
+ uthread_cred_free(ut);
+ uthread_zone_free(ut);
+#endif /* MACH_BSD */
- flags = 0;
- if (thread->state & TH_SWAPPED_OUT)
- flags = TH_FLAGS_SWAPPED;
- else
- if (thread->state & TH_IDLE)
- flags = TH_FLAGS_IDLE;
+#if MACH_ASSERT
+ new_thread->thread_magic = 0;
+#endif /* MACH_ASSERT */
- state = 0;
- if (thread->state & TH_HALTED)
- state = TH_STATE_HALTED;
- else
- if (thread->state & TH_RUN)
- state = TH_STATE_RUNNING;
- else
- if (thread->state & TH_UNINT)
- state = TH_STATE_UNINTERRUPTIBLE;
- else
- if (thread->state & TH_SUSP)
- state = TH_STATE_STOPPED;
- else
- if (thread->state & TH_WAIT)
- state = TH_STATE_WAITING;
+ zfree(thread_zone, new_thread);
+ return (KERN_FAILURE);
+ }
- basic_info->run_state = state;
- basic_info->flags = flags;
+ new_thread->task = parent_task;
- basic_info->suspend_count = thr_act->user_stop_count;
+ thread_lock_init(new_thread);
+ wake_lock_init(new_thread);
- thread_unlock(thread);
- splx(s);
+ lck_mtx_init(&new_thread->mutex, &thread_lck_grp, &thread_lck_attr);
- *thread_info_count = THREAD_BASIC_INFO_COUNT;
+ ipc_thread_init(new_thread);
- return (KERN_SUCCESS);
- }
- else
- if (flavor == THREAD_SCHED_TIMESHARE_INFO) {
- policy_timeshare_info_t ts_info;
+ new_thread->continuation = continuation;
- if (*thread_info_count < POLICY_TIMESHARE_INFO_COUNT)
- return (KERN_INVALID_ARGUMENT);
+ /* Allocate I/O Statistics structure */
+ new_thread->thread_io_stats = (io_stat_info_t)kalloc(sizeof(struct io_stat_info));
+ assert(new_thread->thread_io_stats != NULL);
+ bzero(new_thread->thread_io_stats, sizeof(struct io_stat_info));
+ new_thread->sync_ipc_overrides = 0;
- ts_info = (policy_timeshare_info_t)thread_info_out;
+#if KASAN
+ kasan_init_thread(&new_thread->kasan_data);
+#endif
- s = splsched();
- thread_lock(thread);
+#if CONFIG_IOSCHED
+ /* Clear out the I/O Scheduling info for AppleFSCompression */
+ new_thread->decmp_upl = NULL;
+#endif /* CONFIG_IOSCHED */
- if (thread->policy != POLICY_TIMESHARE) {
- thread_unlock(thread);
- splx(s);
+ lck_mtx_lock(&tasks_threads_lock);
+ task_lock(parent_task);
- return (KERN_INVALID_POLICY);
- }
+ /*
+ * Fail thread creation if parent task is being torn down or has too many threads
+ * If the caller asked for TH_OPTION_NOSUSP, also fail if the parent task is suspended
+ */
+ if (parent_task->active == 0 || parent_task->halting ||
+ (parent_task->suspend_count > 0 && (options & TH_OPTION_NOSUSP) != 0) ||
+ (parent_task->thread_count >= task_threadmax && parent_task != kernel_task)) {
+ task_unlock(parent_task);
+ lck_mtx_unlock(&tasks_threads_lock);
- ts_info->base_priority = thread->priority;
- ts_info->max_priority = thread->max_priority;
- ts_info->cur_priority = thread->sched_pri;
+#ifdef MACH_BSD
+ {
+ void *ut = new_thread->uthread;
- ts_info->depressed = (thread->depress_priority >= 0);
- ts_info->depress_priority = thread->depress_priority;
+ new_thread->uthread = NULL;
+ uthread_cleanup(parent_task, ut, parent_task->bsd_info);
+ /* cred free may not be necessary */
+ uthread_cred_free(ut);
+ uthread_zone_free(ut);
+ }
+#endif /* MACH_BSD */
+ ipc_thread_disable(new_thread);
+ ipc_thread_terminate(new_thread);
+ kfree(new_thread->thread_io_stats, sizeof(struct io_stat_info));
+ lck_mtx_destroy(&new_thread->mutex, &thread_lck_grp);
+ machine_thread_destroy(new_thread);
+ zfree(thread_zone, new_thread);
+ return (KERN_FAILURE);
+ }
- thread_unlock(thread);
- splx(s);
+ /* New threads inherit any default state on the task */
+ machine_thread_inherit_taskwide(new_thread, parent_task);
- *thread_info_count = POLICY_TIMESHARE_INFO_COUNT;
+ task_reference_internal(parent_task);
- return (KERN_SUCCESS);
+ if (new_thread->task->rusage_cpu_flags & TASK_RUSECPU_FLAGS_PERTHR_LIMIT) {
+ /*
+ * This task has a per-thread CPU limit; make sure this new thread
+ * gets its limit set too, before it gets out of the kernel.
+ */
+ set_astledger(new_thread);
}
- else
- if (flavor == THREAD_SCHED_FIFO_INFO) {
- policy_fifo_info_t fifo_info;
-
- if (*thread_info_count < POLICY_FIFO_INFO_COUNT)
- return (KERN_INVALID_ARGUMENT);
- fifo_info = (policy_fifo_info_t)thread_info_out;
+ /* Instantiate a thread ledger. Do not fail thread creation if ledger creation fails. */
+ if ((new_thread->t_threadledger = ledger_instantiate(thread_ledger_template,
+ LEDGER_CREATE_INACTIVE_ENTRIES)) != LEDGER_NULL) {
- s = splsched();
- thread_lock(thread);
+ ledger_entry_setactive(new_thread->t_threadledger, thread_ledgers.cpu_time);
+ }
- if (thread->policy != POLICY_FIFO) {
- thread_unlock(thread);
- splx(s);
+ new_thread->t_bankledger = LEDGER_NULL;
+ new_thread->t_deduct_bank_ledger_time = 0;
+ new_thread->t_deduct_bank_ledger_energy = 0;
- return (KERN_INVALID_POLICY);
- }
+ new_thread->t_ledger = new_thread->task->ledger;
+ if (new_thread->t_ledger)
+ ledger_reference(new_thread->t_ledger);
- fifo_info->base_priority = thread->priority;
- fifo_info->max_priority = thread->max_priority;
+#if defined(CONFIG_SCHED_MULTIQ)
+ /* Cache the task's sched_group */
+ new_thread->sched_group = parent_task->sched_group;
+#endif /* defined(CONFIG_SCHED_MULTIQ) */
- fifo_info->depressed = (thread->depress_priority >= 0);
- fifo_info->depress_priority = thread->depress_priority;
+ /* Cache the task's map */
+ new_thread->map = parent_task->map;
- thread_unlock(thread);
- splx(s);
+ timer_call_setup(&new_thread->wait_timer, thread_timer_expire, new_thread);
+ timer_call_setup(&new_thread->depress_timer, thread_depress_expire, new_thread);
- *thread_info_count = POLICY_FIFO_INFO_COUNT;
+#if KPC
+ kpc_thread_create(new_thread);
+#endif
- return (KERN_SUCCESS);
+ /* Set the thread's scheduling parameters */
+ new_thread->sched_mode = SCHED(initial_thread_sched_mode)(parent_task);
+ new_thread->max_priority = parent_task->max_priority;
+ new_thread->task_priority = parent_task->priority;
+
+ int new_priority = (priority < 0) ? parent_task->priority: priority;
+ new_priority = (priority < 0)? parent_task->priority: priority;
+ if (new_priority > new_thread->max_priority)
+ new_priority = new_thread->max_priority;
+#if CONFIG_EMBEDDED
+ if (new_priority < MAXPRI_THROTTLE) {
+ new_priority = MAXPRI_THROTTLE;
}
- else
- if (flavor == THREAD_SCHED_RR_INFO) {
- policy_rr_info_t rr_info;
-
- if (*thread_info_count < POLICY_RR_INFO_COUNT)
- return (KERN_INVALID_ARGUMENT);
+#endif /* CONFIG_EMBEDDED */
- rr_info = (policy_rr_info_t) thread_info_out;
+ new_thread->importance = new_priority - new_thread->task_priority;
- s = splsched();
- thread_lock(thread);
+ sched_set_thread_base_priority(new_thread, new_priority);
- if (thread->policy != POLICY_RR) {
- thread_unlock(thread);
- splx(s);
+#if defined(CONFIG_SCHED_TIMESHARE_CORE)
+ new_thread->sched_stamp = sched_tick;
+ new_thread->pri_shift = sched_pri_shifts[new_thread->th_sched_bucket];
+#endif /* defined(CONFIG_SCHED_TIMESHARE_CORE) */
- return (KERN_INVALID_POLICY);
- }
+#if CONFIG_EMBEDDED
+ if (parent_task->max_priority <= MAXPRI_THROTTLE)
+ sched_thread_mode_demote(new_thread, TH_SFLAG_THROTTLED);
+#endif /* CONFIG_EMBEDDED */
- rr_info->base_priority = thread->priority;
- rr_info->max_priority = thread->max_priority;
- rr_info->quantum = min_quantum_ms;
+ thread_policy_create(new_thread);
- rr_info->depressed = (thread->depress_priority >= 0);
- rr_info->depress_priority = thread->depress_priority;
+ /* Chain the thread onto the task's list */
+ queue_enter(&parent_task->threads, new_thread, thread_t, task_threads);
+ parent_task->thread_count++;
- thread_unlock(thread);
- splx(s);
+ /* So terminating threads don't need to take the task lock to decrement */
+ hw_atomic_add(&parent_task->active_thread_count, 1);
- *thread_info_count = POLICY_RR_INFO_COUNT;
+ /* Protected by the tasks_threads_lock */
+ new_thread->thread_id = ++thread_unique_id;
- return (KERN_SUCCESS);
- }
- return (KERN_INVALID_ARGUMENT);
-}
+ queue_enter(&threads, new_thread, thread_t, threads);
+ threads_count++;
-void
-thread_doreap(
- register thread_t thread)
-{
- thread_act_t thr_act;
- struct ipc_port *pool_port;
+ new_thread->active = TRUE;
+ if (task_is_a_corpse_fork(parent_task)) {
+ /* Set the inspection bit if the task is a corpse fork */
+ new_thread->inspection = TRUE;
+ } else {
+ new_thread->inspection = FALSE;
+ }
+ new_thread->corpse_dup = FALSE;
+ *out_thread = new_thread;
+ {
+ long dbg_arg1, dbg_arg2, dbg_arg3, dbg_arg4;
- thr_act = thread_lock_act(thread);
- assert(thr_act && thr_act->thread == thread);
+ kdbg_trace_data(parent_task->bsd_info, &dbg_arg2, &dbg_arg4);
- act_locked_act_reference(thr_act);
- pool_port = thr_act->pool_port;
+ /*
+ * Starting with 26604425, exec'ing creates a new task/thread.
+ *
+ * NEWTHREAD in the current process has two possible meanings:
+ *
+ * 1) Create a new thread for this process.
+ * 2) Create a new thread for the future process this will become in an exec.
+ *
+ * To disambiguate these, arg3 will be set to TRUE for case #2.
+ *
+ * The value we need to find (TPF_EXEC_COPY) is stable in the case of a
+ * task exec'ing. The read of t_procflags does not take the proc_lock.
+ */
+ dbg_arg3 = (task_is_exec_copy(parent_task)) ? TRUE : 0;
+
+
+ KERNEL_DEBUG_CONSTANT_IST(KDEBUG_TRACE,
+ TRACE_DATA_NEWTHREAD | DBG_FUNC_NONE,
+ (vm_address_t)(uintptr_t)thread_tid(new_thread), dbg_arg2, dbg_arg3, dbg_arg4, 0);
+
+ kdbg_trace_string(parent_task->bsd_info,
+ &dbg_arg1, &dbg_arg2, &dbg_arg3, &dbg_arg4);
+
+ KERNEL_DEBUG_CONSTANT_IST(KDEBUG_TRACE,
+ TRACE_STRING_NEWTHREAD | DBG_FUNC_NONE,
+ dbg_arg1, dbg_arg2, dbg_arg3, dbg_arg4, 0);
+ }
+
+ DTRACE_PROC1(lwp__create, thread_t, *out_thread);
+
+ return (KERN_SUCCESS);
+}
+
+static kern_return_t
+thread_create_internal2(
+ task_t task,
+ thread_t *new_thread,
+ boolean_t from_user,
+ thread_continue_t continuation)
+{
+ kern_return_t result;
+ thread_t thread;
+
+ if (task == TASK_NULL || task == kernel_task)
+ return (KERN_INVALID_ARGUMENT);
+
+ result = thread_create_internal(task, -1, continuation, TH_OPTION_NONE, &thread);
+ if (result != KERN_SUCCESS)
+ return (result);
+
+ thread->user_stop_count = 1;
+ thread_hold(thread);
+ if (task->suspend_count > 0)
+ thread_hold(thread);
+
+ if (from_user)
+ extmod_statistics_incr_thread_create(task);
+
+ task_unlock(task);
+ lck_mtx_unlock(&tasks_threads_lock);
+
+ *new_thread = thread;
+
+ return (KERN_SUCCESS);
+}
+
+/* No prototype, since task_server.h has the _from_user version if KERNEL_SERVER */
+kern_return_t
+thread_create(
+ task_t task,
+ thread_t *new_thread);
+
+kern_return_t
+thread_create(
+ task_t task,
+ thread_t *new_thread)
+{
+ return thread_create_internal2(task, new_thread, FALSE, (thread_continue_t)thread_bootstrap_return);
+}
+
+kern_return_t
+thread_create_from_user(
+ task_t task,
+ thread_t *new_thread)
+{
+ return thread_create_internal2(task, new_thread, TRUE, (thread_continue_t)thread_bootstrap_return);
+}
+
+kern_return_t
+thread_create_with_continuation(
+ task_t task,
+ thread_t *new_thread,
+ thread_continue_t continuation)
+{
+ return thread_create_internal2(task, new_thread, FALSE, continuation);
+}
+
+/*
+ * Create a thread that is already started, but is waiting on an event
+ */
+static kern_return_t
+thread_create_waiting_internal(
+ task_t task,
+ thread_continue_t continuation,
+ event_t event,
+ int options,
+ thread_t *new_thread)
+{
+ kern_return_t result;
+ thread_t thread;
+
+ if (task == TASK_NULL || task == kernel_task)
+ return (KERN_INVALID_ARGUMENT);
+
+ result = thread_create_internal(task, -1, continuation, options, &thread);
+ if (result != KERN_SUCCESS)
+ return (result);
+
+ /* note no user_stop_count or thread_hold here */
+
+ if (task->suspend_count > 0)
+ thread_hold(thread);
+
+ thread_mtx_lock(thread);
+ thread_start_in_assert_wait(thread, event, THREAD_INTERRUPTIBLE);
+ thread_mtx_unlock(thread);
+
+ task_unlock(task);
+ lck_mtx_unlock(&tasks_threads_lock);
+
+ *new_thread = thread;
+
+ return (KERN_SUCCESS);
+}
+
+kern_return_t
+thread_create_waiting(
+ task_t task,
+ thread_continue_t continuation,
+ event_t event,
+ thread_t *new_thread)
+{
+ return thread_create_waiting_internal(task, continuation, event,
+ TH_OPTION_NONE, new_thread);
+}
+
+
+static kern_return_t
+thread_create_running_internal2(
+ task_t task,
+ int flavor,
+ thread_state_t new_state,
+ mach_msg_type_number_t new_state_count,
+ thread_t *new_thread,
+ boolean_t from_user)
+{
+ kern_return_t result;
+ thread_t thread;
+
+ if (task == TASK_NULL || task == kernel_task)
+ return (KERN_INVALID_ARGUMENT);
+
+ result = thread_create_internal(task, -1, (thread_continue_t)thread_bootstrap_return, TH_OPTION_NONE, &thread);
+ if (result != KERN_SUCCESS)
+ return (result);
+
+ if (task->suspend_count > 0)
+ thread_hold(thread);
+
+ result = machine_thread_set_state(thread, flavor, new_state, new_state_count);
+ if (result != KERN_SUCCESS) {
+ task_unlock(task);
+ lck_mtx_unlock(&tasks_threads_lock);
+
+ thread_terminate(thread);
+ thread_deallocate(thread);
+ return (result);
+ }
+
+ thread_mtx_lock(thread);
+ thread_start(thread);
+ thread_mtx_unlock(thread);
+
+ if (from_user)
+ extmod_statistics_incr_thread_create(task);
+
+ task_unlock(task);
+ lck_mtx_unlock(&tasks_threads_lock);
+
+ *new_thread = thread;
+
+ return (result);
+}
+
+/* Prototype, see justification above */
+kern_return_t
+thread_create_running(
+ task_t task,
+ int flavor,
+ thread_state_t new_state,
+ mach_msg_type_number_t new_state_count,
+ thread_t *new_thread);
+
+kern_return_t
+thread_create_running(
+ task_t task,
+ int flavor,
+ thread_state_t new_state,
+ mach_msg_type_number_t new_state_count,
+ thread_t *new_thread)
+{
+ return thread_create_running_internal2(
+ task, flavor, new_state, new_state_count,
+ new_thread, FALSE);
+}
+
+kern_return_t
+thread_create_running_from_user(
+ task_t task,
+ int flavor,
+ thread_state_t new_state,
+ mach_msg_type_number_t new_state_count,
+ thread_t *new_thread)
+{
+ return thread_create_running_internal2(
+ task, flavor, new_state, new_state_count,
+ new_thread, TRUE);
+}
+
+kern_return_t
+thread_create_workq(
+ task_t task,
+ thread_continue_t thread_return,
+ thread_t *new_thread)
+{
+ kern_return_t result;
+ thread_t thread;
+
+ if (task == TASK_NULL || task == kernel_task)
+ return (KERN_INVALID_ARGUMENT);
+
+ result = thread_create_internal(task, -1, thread_return, TH_OPTION_NOCRED | TH_OPTION_NOSUSP, &thread);
+ if (result != KERN_SUCCESS)
+ return (result);
+
+ thread->user_stop_count = 1;
+ thread_hold(thread);
+ if (task->suspend_count > 0)
+ thread_hold(thread);
+
+ task_unlock(task);
+ lck_mtx_unlock(&tasks_threads_lock);
+
+ *new_thread = thread;
+
+ return (KERN_SUCCESS);
+}
+
+kern_return_t
+thread_create_workq_waiting(
+ task_t task,
+ thread_continue_t continuation,
+ event_t event,
+ thread_t *new_thread)
+{
+
+ return thread_create_waiting_internal(task, continuation, event,
+ TH_OPTION_NOCRED | TH_OPTION_NOSUSP,
+ new_thread);
+}
+
+/*
+ * kernel_thread_create:
+ *
+ * Create a thread in the kernel task
+ * to execute in kernel context.
+ */
+kern_return_t
+kernel_thread_create(
+ thread_continue_t continuation,
+ void *parameter,
+ integer_t priority,
+ thread_t *new_thread)
+{
+ kern_return_t result;
+ thread_t thread;
+ task_t task = kernel_task;
+
+ result = thread_create_internal(task, priority, continuation, TH_OPTION_NOCRED | TH_OPTION_NONE, &thread);
+ if (result != KERN_SUCCESS)
+ return (result);
+
+ task_unlock(task);
+ lck_mtx_unlock(&tasks_threads_lock);
+
+ stack_alloc(thread);
+ assert(thread->kernel_stack != 0);
+#if CONFIG_EMBEDDED
+ if (priority > BASEPRI_KERNEL)
+#endif
+ thread->reserved_stack = thread->kernel_stack;
+
+ thread->parameter = parameter;
+
+if(debug_task & 1)
+ kprintf("kernel_thread_create: thread = %p continuation = %p\n", thread, continuation);
+ *new_thread = thread;
+
+ return (result);
+}
+
+kern_return_t
+kernel_thread_start_priority(
+ thread_continue_t continuation,
+ void *parameter,
+ integer_t priority,
+ thread_t *new_thread)
+{
+ kern_return_t result;
+ thread_t thread;
+
+ result = kernel_thread_create(continuation, parameter, priority, &thread);
+ if (result != KERN_SUCCESS)
+ return (result);
+
+ *new_thread = thread;
+
+ thread_mtx_lock(thread);
+ thread_start(thread);
+ thread_mtx_unlock(thread);
+
+ return (result);
+}
+
+kern_return_t
+kernel_thread_start(
+ thread_continue_t continuation,
+ void *parameter,
+ thread_t *new_thread)
+{
+ return kernel_thread_start_priority(continuation, parameter, -1, new_thread);
+}
+
+/* Separated into helper function so it can be used by THREAD_BASIC_INFO and THREAD_EXTENDED_INFO */
+/* it is assumed that the thread is locked by the caller */
+static void
+retrieve_thread_basic_info(thread_t thread, thread_basic_info_t basic_info)
+{
+ int state, flags;
+
+ /* fill in info */
+
+ thread_read_times(thread, &basic_info->user_time,
+ &basic_info->system_time);
+
+ /*
+ * Update lazy-evaluated scheduler info because someone wants it.
+ */
+ if (SCHED(can_update_priority)(thread))
+ SCHED(update_priority)(thread);
+
+ basic_info->sleep_time = 0;
+
+ /*
+ * To calculate cpu_usage, first correct for timer rate,
+ * then for 5/8 ageing. The correction factor [3/5] is
+ * (1/(5/8) - 1).
+ */
+ basic_info->cpu_usage = 0;
+#if defined(CONFIG_SCHED_TIMESHARE_CORE)
+ if (sched_tick_interval) {
+ basic_info->cpu_usage = (integer_t)(((uint64_t)thread->cpu_usage
+ * TH_USAGE_SCALE) / sched_tick_interval);
+ basic_info->cpu_usage = (basic_info->cpu_usage * 3) / 5;
+ }
+#endif
+
+ if (basic_info->cpu_usage > TH_USAGE_SCALE)
+ basic_info->cpu_usage = TH_USAGE_SCALE;
+
+ basic_info->policy = ((thread->sched_mode == TH_MODE_TIMESHARE)?
+ POLICY_TIMESHARE: POLICY_RR);
+
+ flags = 0;
+ if (thread->options & TH_OPT_IDLE_THREAD)
+ flags |= TH_FLAGS_IDLE;
+
+ if (thread->options & TH_OPT_GLOBAL_FORCED_IDLE) {
+ flags |= TH_FLAGS_GLOBAL_FORCED_IDLE;
+ }
+
+ if (!thread->kernel_stack)
+ flags |= TH_FLAGS_SWAPPED;
+
+ state = 0;
+ if (thread->state & TH_TERMINATE)
+ state = TH_STATE_HALTED;
+ else
+ if (thread->state & TH_RUN)
+ state = TH_STATE_RUNNING;
+ else
+ if (thread->state & TH_UNINT)
+ state = TH_STATE_UNINTERRUPTIBLE;
+ else
+ if (thread->state & TH_SUSP)
+ state = TH_STATE_STOPPED;
+ else
+ if (thread->state & TH_WAIT)
+ state = TH_STATE_WAITING;
+
+ basic_info->run_state = state;
+ basic_info->flags = flags;
+
+ basic_info->suspend_count = thread->user_stop_count;
+
+ return;
+}
+
+kern_return_t
+thread_info_internal(
+ thread_t thread,
+ thread_flavor_t flavor,
+ thread_info_t thread_info_out, /* ptr to OUT array */
+ mach_msg_type_number_t *thread_info_count) /*IN/OUT*/
+{
+ spl_t s;
+
+ if (thread == THREAD_NULL)
+ return (KERN_INVALID_ARGUMENT);
+
+ if (flavor == THREAD_BASIC_INFO) {
+
+ if (*thread_info_count < THREAD_BASIC_INFO_COUNT)
+ return (KERN_INVALID_ARGUMENT);
+
+ s = splsched();
+ thread_lock(thread);
+
+ retrieve_thread_basic_info(thread, (thread_basic_info_t) thread_info_out);
+
+ thread_unlock(thread);
+ splx(s);
+
+ *thread_info_count = THREAD_BASIC_INFO_COUNT;
+
+ return (KERN_SUCCESS);
+ }
+ else
+ if (flavor == THREAD_IDENTIFIER_INFO) {
+ thread_identifier_info_t identifier_info;
+
+ if (*thread_info_count < THREAD_IDENTIFIER_INFO_COUNT)
+ return (KERN_INVALID_ARGUMENT);
+
+ identifier_info = (thread_identifier_info_t) thread_info_out;
+
+ s = splsched();
+ thread_lock(thread);
+
+ identifier_info->thread_id = thread->thread_id;
+ identifier_info->thread_handle = thread->machine.cthread_self;
+ identifier_info->dispatch_qaddr = thread_dispatchqaddr(thread);
+
+ thread_unlock(thread);
+ splx(s);
+ return KERN_SUCCESS;
+ }
+ else
+ if (flavor == THREAD_SCHED_TIMESHARE_INFO) {
+ policy_timeshare_info_t ts_info;
+
+ if (*thread_info_count < POLICY_TIMESHARE_INFO_COUNT)
+ return (KERN_INVALID_ARGUMENT);
+
+ ts_info = (policy_timeshare_info_t)thread_info_out;
+
+ s = splsched();
+ thread_lock(thread);
+
+ if (thread->sched_mode != TH_MODE_TIMESHARE) {
+ thread_unlock(thread);
+ splx(s);
+ return (KERN_INVALID_POLICY);
+ }
+
+ ts_info->depressed = (thread->sched_flags & TH_SFLAG_DEPRESSED_MASK) != 0;
+ if (ts_info->depressed) {
+ ts_info->base_priority = DEPRESSPRI;
+ ts_info->depress_priority = thread->base_pri;
+ }
+ else {
+ ts_info->base_priority = thread->base_pri;
+ ts_info->depress_priority = -1;
+ }
+
+ ts_info->cur_priority = thread->sched_pri;
+ ts_info->max_priority = thread->max_priority;
+
+ thread_unlock(thread);
+ splx(s);
+
+ *thread_info_count = POLICY_TIMESHARE_INFO_COUNT;
+
+ return (KERN_SUCCESS);
+ }
+ else
+ if (flavor == THREAD_SCHED_FIFO_INFO) {
+ if (*thread_info_count < POLICY_FIFO_INFO_COUNT)
+ return (KERN_INVALID_ARGUMENT);
+
+ return (KERN_INVALID_POLICY);
+ }
+ else
+ if (flavor == THREAD_SCHED_RR_INFO) {
+ policy_rr_info_t rr_info;
+ uint32_t quantum_time;
+ uint64_t quantum_ns;
+
+ if (*thread_info_count < POLICY_RR_INFO_COUNT)
+ return (KERN_INVALID_ARGUMENT);
+
+ rr_info = (policy_rr_info_t) thread_info_out;
+
+ s = splsched();
+ thread_lock(thread);
+
+ if (thread->sched_mode == TH_MODE_TIMESHARE) {
+ thread_unlock(thread);
+ splx(s);
+
+ return (KERN_INVALID_POLICY);
+ }
+
+ rr_info->depressed = (thread->sched_flags & TH_SFLAG_DEPRESSED_MASK) != 0;
+ if (rr_info->depressed) {
+ rr_info->base_priority = DEPRESSPRI;
+ rr_info->depress_priority = thread->base_pri;
+ }
+ else {
+ rr_info->base_priority = thread->base_pri;
+ rr_info->depress_priority = -1;
+ }
+
+ quantum_time = SCHED(initial_quantum_size)(THREAD_NULL);
+ absolutetime_to_nanoseconds(quantum_time, &quantum_ns);
+
+ rr_info->max_priority = thread->max_priority;
+ rr_info->quantum = (uint32_t)(quantum_ns / 1000 / 1000);
+
+ thread_unlock(thread);
+ splx(s);
+
+ *thread_info_count = POLICY_RR_INFO_COUNT;
+
+ return (KERN_SUCCESS);
+ }
+ else
+ if (flavor == THREAD_EXTENDED_INFO) {
+ thread_basic_info_data_t basic_info;
+ thread_extended_info_t extended_info = (thread_extended_info_t) thread_info_out;
+
+ if (*thread_info_count < THREAD_EXTENDED_INFO_COUNT) {
+ return (KERN_INVALID_ARGUMENT);
+ }
+
+ s = splsched();
+ thread_lock(thread);
+
+ /* NOTE: This mimics fill_taskthreadinfo(), which is the function used by proc_pidinfo() for
+ * the PROC_PIDTHREADINFO flavor (which can't be used on corpses)
+ */
+ retrieve_thread_basic_info(thread, &basic_info);
+ extended_info->pth_user_time = ((basic_info.user_time.seconds * (integer_t)NSEC_PER_SEC) + (basic_info.user_time.microseconds * (integer_t)NSEC_PER_USEC));
+ extended_info->pth_system_time = ((basic_info.system_time.seconds * (integer_t)NSEC_PER_SEC) + (basic_info.system_time.microseconds * (integer_t)NSEC_PER_USEC));
+
+ extended_info->pth_cpu_usage = basic_info.cpu_usage;
+ extended_info->pth_policy = basic_info.policy;
+ extended_info->pth_run_state = basic_info.run_state;
+ extended_info->pth_flags = basic_info.flags;
+ extended_info->pth_sleep_time = basic_info.sleep_time;
+ extended_info->pth_curpri = thread->sched_pri;
+ extended_info->pth_priority = thread->base_pri;
+ extended_info->pth_maxpriority = thread->max_priority;
+
+ bsd_getthreadname(thread->uthread,extended_info->pth_name);
+
+ thread_unlock(thread);
+ splx(s);
+
+ *thread_info_count = THREAD_EXTENDED_INFO_COUNT;
+
+ return (KERN_SUCCESS);
+ }
+ else
+ if (flavor == THREAD_DEBUG_INFO_INTERNAL) {
+#if DEVELOPMENT || DEBUG
+ thread_debug_info_internal_t dbg_info;
+ if (*thread_info_count < THREAD_DEBUG_INFO_INTERNAL_COUNT)
+ return (KERN_NOT_SUPPORTED);
+
+ if (thread_info_out == NULL)
+ return (KERN_INVALID_ARGUMENT);
+
+ dbg_info = (thread_debug_info_internal_t) thread_info_out;
+ dbg_info->page_creation_count = thread->t_page_creation_count;
+
+ *thread_info_count = THREAD_DEBUG_INFO_INTERNAL_COUNT;
+ return (KERN_SUCCESS);
+#endif /* DEVELOPMENT || DEBUG */
+ return (KERN_NOT_SUPPORTED);
+ }
+
+ return (KERN_INVALID_ARGUMENT);
+}
+
+void
+thread_read_times(
+ thread_t thread,
+ time_value_t *user_time,
+ time_value_t *system_time)
+{
+ clock_sec_t secs;
+ clock_usec_t usecs;
+ uint64_t tval_user, tval_system;
+
+ tval_user = timer_grab(&thread->user_timer);
+ tval_system = timer_grab(&thread->system_timer);
+
+ if (thread->precise_user_kernel_time) {
+ absolutetime_to_microtime(tval_user, &secs, &usecs);
+ user_time->seconds = (typeof(user_time->seconds))secs;
+ user_time->microseconds = usecs;
+
+ absolutetime_to_microtime(tval_system, &secs, &usecs);
+ system_time->seconds = (typeof(system_time->seconds))secs;
+ system_time->microseconds = usecs;
+ } else {
+ /* system_timer may represent either sys or user */
+ tval_user += tval_system;
+ absolutetime_to_microtime(tval_user, &secs, &usecs);
+ user_time->seconds = (typeof(user_time->seconds))secs;
+ user_time->microseconds = usecs;
+
+ system_time->seconds = 0;
+ system_time->microseconds = 0;
+ }
+}
+
+uint64_t thread_get_runtime_self(void)
+{
+ boolean_t interrupt_state;
+ uint64_t runtime;
+ thread_t thread = NULL;
+ processor_t processor = NULL;
+
+ thread = current_thread();
+
+ /* Not interrupt safe, as the scheduler may otherwise update timer values underneath us */
+ interrupt_state = ml_set_interrupts_enabled(FALSE);
+ processor = current_processor();
+ timer_switch(PROCESSOR_DATA(processor, thread_timer), mach_absolute_time(), PROCESSOR_DATA(processor, thread_timer));
+ runtime = (timer_grab(&thread->user_timer) + timer_grab(&thread->system_timer));
+ ml_set_interrupts_enabled(interrupt_state);
+
+ return runtime;
+}
+
+kern_return_t
+thread_assign(
+ __unused thread_t thread,
+ __unused processor_set_t new_pset)
+{
+ return (KERN_FAILURE);
+}
+
+/*
+ * thread_assign_default:
+ *
+ * Special version of thread_assign for assigning threads to default
+ * processor set.
+ */
+kern_return_t
+thread_assign_default(
+ thread_t thread)
+{
+ return (thread_assign(thread, &pset0));
+}
+
+/*
+ * thread_get_assignment
+ *
+ * Return current assignment for this thread.
+ */
+kern_return_t
+thread_get_assignment(
+ thread_t thread,
+ processor_set_t *pset)
+{
+ if (thread == NULL)
+ return (KERN_INVALID_ARGUMENT);
+
+ *pset = &pset0;
+
+ return (KERN_SUCCESS);
+}
+
+/*
+ * thread_wire_internal:
+ *
+ * Specify that the target thread must always be able
+ * to run and to allocate memory.
+ */
+kern_return_t
+thread_wire_internal(
+ host_priv_t host_priv,
+ thread_t thread,
+ boolean_t wired,
+ boolean_t *prev_state)
+{
+ if (host_priv == NULL || thread != current_thread())
+ return (KERN_INVALID_ARGUMENT);
+
+ assert(host_priv == &realhost);
+
+ if (prev_state)
+ *prev_state = (thread->options & TH_OPT_VMPRIV) != 0;
+
+ if (wired) {
+ if (!(thread->options & TH_OPT_VMPRIV))
+ vm_page_free_reserve(1); /* XXX */
+ thread->options |= TH_OPT_VMPRIV;
+ }
+ else {
+ if (thread->options & TH_OPT_VMPRIV)
+ vm_page_free_reserve(-1); /* XXX */
+ thread->options &= ~TH_OPT_VMPRIV;
+ }
+
+ return (KERN_SUCCESS);
+}
+
+
+/*
+ * thread_wire:
+ *
+ * User-api wrapper for thread_wire_internal()
+ */
+kern_return_t
+thread_wire(
+ host_priv_t host_priv,
+ thread_t thread,
+ boolean_t wired)
+{
+ return (thread_wire_internal(host_priv, thread, wired, NULL));
+}
+
+
+boolean_t
+is_vm_privileged(void)
+{
+ return current_thread()->options & TH_OPT_VMPRIV ? TRUE : FALSE;
+}
+
+boolean_t
+set_vm_privilege(boolean_t privileged)
+{
+ boolean_t was_vmpriv;
+
+ if (current_thread()->options & TH_OPT_VMPRIV)
+ was_vmpriv = TRUE;
+ else
+ was_vmpriv = FALSE;
+
+ if (privileged != FALSE)
+ current_thread()->options |= TH_OPT_VMPRIV;
+ else
+ current_thread()->options &= ~TH_OPT_VMPRIV;
+
+ return (was_vmpriv);
+}
+
+void
+set_thread_rwlock_boost(void)
+{
+ current_thread()->rwlock_count++;
+}
+
+void
+clear_thread_rwlock_boost(void)
+{
+ thread_t thread = current_thread();
+
+ if ((thread->rwlock_count-- == 1) && (thread->sched_flags & TH_SFLAG_RW_PROMOTED)) {
+
+ lck_rw_clear_promotion(thread);
+ }
+}
+
+
+/*
+ * XXX assuming current thread only, for now...
+ */
+void
+thread_guard_violation(thread_t thread,
+ mach_exception_data_type_t code, mach_exception_data_type_t subcode)
+{
+ assert(thread == current_thread());
+ assert(thread->task != kernel_task);
+
+ spl_t s = splsched();
+ /*
+ * Use the saved state area of the thread structure
+ * to store all info required to handle the AST when
+ * returning to userspace
+ */
+ assert(EXC_GUARD_DECODE_GUARD_TYPE(code));
+ thread->guard_exc_info.code = code;
+ thread->guard_exc_info.subcode = subcode;
+ thread_ast_set(thread, AST_GUARD);
+ ast_propagate(thread);
+
+ splx(s);
+}
+
+/*
+ * guard_ast:
+ *
+ * Handle AST_GUARD for a thread. This routine looks at the
+ * state saved in the thread structure to determine the cause
+ * of this exception. Based on this value, it invokes the
+ * appropriate routine which determines other exception related
+ * info and raises the exception.
+ */
+void
+guard_ast(thread_t t)
+{
+ const mach_exception_data_type_t
+ code = t->guard_exc_info.code,
+ subcode = t->guard_exc_info.subcode;
+
+ switch (EXC_GUARD_DECODE_GUARD_TYPE(code)) {
+ case GUARD_TYPE_MACH_PORT:
+ mach_port_guard_ast(t, code, subcode);
+ break;
+ case GUARD_TYPE_FD:
+ fd_guard_ast(t, code, subcode);
+ break;
+#if CONFIG_VNGUARD
+ case GUARD_TYPE_VN:
+ vn_guard_ast(t, code, subcode);
+ break;
+#endif
+ default:
+ panic("guard_exc_info %llx %llx", code, subcode);
+ }
+}
+
+static void
+thread_cputime_callback(int warning, __unused const void *arg0, __unused const void *arg1)
+{
+ if (warning == LEDGER_WARNING_ROSE_ABOVE) {
+#if CONFIG_TELEMETRY
+ /*
+ * This thread is in danger of violating the CPU usage monitor. Enable telemetry
+ * on the entire task so there are micro-stackshots available if and when
+ * EXC_RESOURCE is triggered. We could have chosen to enable micro-stackshots
+ * for this thread only; but now that this task is suspect, knowing what all of
+ * its threads are up to will be useful.
+ */
+ telemetry_task_ctl(current_task(), TF_CPUMON_WARNING, 1);
+#endif
+ return;
+ }
+
+#if CONFIG_TELEMETRY
+ /*
+ * If the balance has dipped below the warning level (LEDGER_WARNING_DIPPED_BELOW) or
+ * exceeded the limit, turn telemetry off for the task.
+ */
+ telemetry_task_ctl(current_task(), TF_CPUMON_WARNING, 0);
+#endif
+
+ if (warning == 0) {
+ SENDING_NOTIFICATION__THIS_THREAD_IS_CONSUMING_TOO_MUCH_CPU();
+ }
+}
+
+void __attribute__((noinline))
+SENDING_NOTIFICATION__THIS_THREAD_IS_CONSUMING_TOO_MUCH_CPU(void)
+{
+ int pid = 0;
+ task_t task = current_task();
+ thread_t thread = current_thread();
+ uint64_t tid = thread->thread_id;
+ const char *procname = "unknown";
+ time_value_t thread_total_time = {0, 0};
+ time_value_t thread_system_time;
+ time_value_t thread_user_time;
+ int action;
+ uint8_t percentage;
+ uint32_t usage_percent = 0;
+ uint32_t interval_sec;
+ uint64_t interval_ns;
+ uint64_t balance_ns;
+ boolean_t fatal = FALSE;
+ boolean_t send_exc_resource = TRUE; /* in addition to RESOURCE_NOTIFY */
+ kern_return_t kr;
+
+#ifdef EXC_RESOURCE_MONITORS
+ mach_exception_data_type_t code[EXCEPTION_CODE_MAX];
+#endif /* EXC_RESOURCE_MONITORS */
+ struct ledger_entry_info lei;
+
+ assert(thread->t_threadledger != LEDGER_NULL);
+
+ /*
+ * Extract the fatal bit and suspend the monitor (which clears the bit).
+ */
+ task_lock(task);
+ if (task->rusage_cpu_flags & TASK_RUSECPU_FLAGS_FATAL_CPUMON) {
+ fatal = TRUE;
+ send_exc_resource = TRUE;
+ }
+ /* Only one thread can be here at a time. Whichever makes it through
+ first will successfully suspend the monitor and proceed to send the
+ notification. Other threads will get an error trying to suspend the
+ monitor and give up on sending the notification. In the first release,
+ the monitor won't be resumed for a number of seconds, but we may
+ eventually need to handle low-latency resume.
+ */
+ kr = task_suspend_cpumon(task);
+ task_unlock(task);
+ if (kr == KERN_INVALID_ARGUMENT) return;
+
+#ifdef MACH_BSD
+ pid = proc_selfpid();
+ if (task->bsd_info != NULL) {
+ procname = proc_name_address(task->bsd_info);
+ }
+#endif
+
+ thread_get_cpulimit(&action, &percentage, &interval_ns);
+
+ interval_sec = (uint32_t)(interval_ns / NSEC_PER_SEC);
+
+ thread_read_times(thread, &thread_user_time, &thread_system_time);
+ time_value_add(&thread_total_time, &thread_user_time);
+ time_value_add(&thread_total_time, &thread_system_time);
+ ledger_get_entry_info(thread->t_threadledger, thread_ledgers.cpu_time, &lei);
+
+ /* credit/debit/balance/limit are in absolute time units;
+ the refill info is in nanoseconds. */
+ absolutetime_to_nanoseconds(lei.lei_balance, &balance_ns);
+ if (lei.lei_last_refill > 0) {
+ usage_percent = (uint32_t)((balance_ns*100ULL) / lei.lei_last_refill);
+ }
+
+ /* TODO: show task total runtime (via TASK_ABSOLUTETIME_INFO)? */
+ printf("process %s[%d] thread %llu caught burning CPU! "
+ "It used more than %d%% CPU over %u seconds "
+ "(actual recent usage: %d%% over ~%llu seconds). "
+ "Thread lifetime cpu usage %d.%06ds, (%d.%06d user, %d.%06d sys) "
+ "ledger balance: %lld mabs credit: %lld mabs debit: %lld mabs "
+ "limit: %llu mabs period: %llu ns last refill: %llu ns%s.\n",
+ procname, pid, tid,
+ percentage, interval_sec,
+ usage_percent,
+ (lei.lei_last_refill + NSEC_PER_SEC/2) / NSEC_PER_SEC,
+ thread_total_time.seconds, thread_total_time.microseconds,
+ thread_user_time.seconds, thread_user_time.microseconds,
+ thread_system_time.seconds,thread_system_time.microseconds,
+ lei.lei_balance, lei.lei_credit, lei.lei_debit,
+ lei.lei_limit, lei.lei_refill_period, lei.lei_last_refill,
+ (fatal ? " [fatal violation]" : ""));
+
+ /*
+ For now, send RESOURCE_NOTIFY in parallel with EXC_RESOURCE. Once
+ we have logging parity, we will stop sending EXC_RESOURCE (24508922).
+ */
+
+ /* RESOURCE_NOTIFY MIG specifies nanoseconds of CPU time */
+ lei.lei_balance = balance_ns;
+ absolutetime_to_nanoseconds(lei.lei_limit, &lei.lei_limit);
+ trace_resource_violation(RMON_CPUUSAGE_VIOLATED, &lei);
+ kr = send_resource_violation(send_cpu_usage_violation, task, &lei,
+ fatal ? kRNFatalLimitFlag : 0);
+ if (kr) {
+ printf("send_resource_violation(CPU usage, ...): error %#x\n", kr);
+ }
+
+#ifdef EXC_RESOURCE_MONITORS
+ if (send_exc_resource) {
+ if (disable_exc_resource) {
+ printf("process %s[%d] thread %llu caught burning CPU! "
+ "EXC_RESOURCE%s supressed by a boot-arg\n",
+ procname, pid, tid, fatal ? " (and termination)" : "");
+ return;
+ }
+
+ if (audio_active) {
+ printf("process %s[%d] thread %llu caught burning CPU! "
+ "EXC_RESOURCE & termination supressed due to audio playback\n",
+ procname, pid, tid);
+ return;
+ }
+ }
+
+
+ if (send_exc_resource) {
+ code[0] = code[1] = 0;
+ EXC_RESOURCE_ENCODE_TYPE(code[0], RESOURCE_TYPE_CPU);
+ if (fatal) {
+ EXC_RESOURCE_ENCODE_FLAVOR(code[0], FLAVOR_CPU_MONITOR_FATAL);
+ }else {
+ EXC_RESOURCE_ENCODE_FLAVOR(code[0], FLAVOR_CPU_MONITOR);
+ }
+ EXC_RESOURCE_CPUMONITOR_ENCODE_INTERVAL(code[0], interval_sec);
+ EXC_RESOURCE_CPUMONITOR_ENCODE_PERCENTAGE(code[0], percentage);
+ EXC_RESOURCE_CPUMONITOR_ENCODE_PERCENTAGE(code[1], usage_percent);
+ exception_triage(EXC_RESOURCE, code, EXCEPTION_CODE_MAX);
+ }
+#endif /* EXC_RESOURCE_MONITORS */
+
+ if (fatal) {
+#if CONFIG_JETSAM
+ jetsam_on_ledger_cpulimit_exceeded();
+#else
+ task_terminate_internal(task);
+#endif
+ }
+}
+
+void thread_update_io_stats(thread_t thread, int size, int io_flags)
+{
+ int io_tier;
+
+ if (thread->thread_io_stats == NULL || thread->task->task_io_stats == NULL)
+ return;
+
+ if (io_flags & DKIO_READ) {
+ UPDATE_IO_STATS(thread->thread_io_stats->disk_reads, size);
+ UPDATE_IO_STATS_ATOMIC(thread->task->task_io_stats->disk_reads, size);
+ }
+
+ if (io_flags & DKIO_META) {
+ UPDATE_IO_STATS(thread->thread_io_stats->metadata, size);
+ UPDATE_IO_STATS_ATOMIC(thread->task->task_io_stats->metadata, size);
+ }
+
+ if (io_flags & DKIO_PAGING) {
+ UPDATE_IO_STATS(thread->thread_io_stats->paging, size);
+ UPDATE_IO_STATS_ATOMIC(thread->task->task_io_stats->paging, size);
+ }
+
+ io_tier = ((io_flags & DKIO_TIER_MASK) >> DKIO_TIER_SHIFT);
+ assert (io_tier < IO_NUM_PRIORITIES);
+
+ UPDATE_IO_STATS(thread->thread_io_stats->io_priority[io_tier], size);
+ UPDATE_IO_STATS_ATOMIC(thread->task->task_io_stats->io_priority[io_tier], size);
+
+ /* Update Total I/O Counts */
+ UPDATE_IO_STATS(thread->thread_io_stats->total_io, size);
+ UPDATE_IO_STATS_ATOMIC(thread->task->task_io_stats->total_io, size);
+
+ if (!(io_flags & DKIO_READ)) {
+ DTRACE_IO3(physical_writes, struct task *, thread->task, uint32_t, size, int, io_flags);
+ ledger_credit(thread->task->ledger, task_ledgers.physical_writes, size);
+ }
+}
+
+static void
+init_thread_ledgers(void) {
+ ledger_template_t t;
+ int idx;
+
+ assert(thread_ledger_template == NULL);
+
+ if ((t = ledger_template_create("Per-thread ledger")) == NULL)
+ panic("couldn't create thread ledger template");
+
+ if ((idx = ledger_entry_add(t, "cpu_time", "sched", "ns")) < 0) {
+ panic("couldn't create cpu_time entry for thread ledger template");
+ }
+
+ if (ledger_set_callback(t, idx, thread_cputime_callback, NULL, NULL) < 0) {
+ panic("couldn't set thread ledger callback for cpu_time entry");
+ }
+
+ thread_ledgers.cpu_time = idx;
+
+ ledger_template_complete(t);
+ thread_ledger_template = t;
+}
+
+/*
+ * Returns currently applied CPU usage limit, or 0/0 if none is applied.
+ */
+int
+thread_get_cpulimit(int *action, uint8_t *percentage, uint64_t *interval_ns)
+{
+ int64_t abstime = 0;
+ uint64_t limittime = 0;
+ thread_t thread = current_thread();
+
+ *percentage = 0;
+ *interval_ns = 0;
+ *action = 0;
+
+ if (thread->t_threadledger == LEDGER_NULL) {
+ /*
+ * This thread has no per-thread ledger, so it can't possibly
+ * have a CPU limit applied.
+ */
+ return (KERN_SUCCESS);
+ }
+
+ ledger_get_period(thread->t_threadledger, thread_ledgers.cpu_time, interval_ns);
+ ledger_get_limit(thread->t_threadledger, thread_ledgers.cpu_time, &abstime);
+
+ if ((abstime == LEDGER_LIMIT_INFINITY) || (*interval_ns == 0)) {
+ /*
+ * This thread's CPU time ledger has no period or limit; so it
+ * doesn't have a CPU limit applied.
+ */
+ return (KERN_SUCCESS);
+ }
+
+ /*
+ * This calculation is the converse to the one in thread_set_cpulimit().
+ */
+ absolutetime_to_nanoseconds(abstime, &limittime);
+ *percentage = (limittime * 100ULL) / *interval_ns;
+ assert(*percentage <= 100);
+
+ if (thread->options & TH_OPT_PROC_CPULIMIT) {
+ assert((thread->options & TH_OPT_PRVT_CPULIMIT) == 0);
+
+ *action = THREAD_CPULIMIT_BLOCK;
+ } else if (thread->options & TH_OPT_PRVT_CPULIMIT) {
+ assert((thread->options & TH_OPT_PROC_CPULIMIT) == 0);
+
+ *action = THREAD_CPULIMIT_EXCEPTION;
+ } else {
+ *action = THREAD_CPULIMIT_DISABLE;
+ }
+
+ return (KERN_SUCCESS);
+}
+
+/*
+ * Set CPU usage limit on a thread.
+ *
+ * Calling with percentage of 0 will unset the limit for this thread.
+ */
+int
+thread_set_cpulimit(int action, uint8_t percentage, uint64_t interval_ns)
+{
+ thread_t thread = current_thread();
+ ledger_t l;
+ uint64_t limittime = 0;
+ uint64_t abstime = 0;
+
+ assert(percentage <= 100);
+
+ if (action == THREAD_CPULIMIT_DISABLE) {
+ /*
+ * Remove CPU limit, if any exists.
+ */
+ if (thread->t_threadledger != LEDGER_NULL) {
+ l = thread->t_threadledger;
+ ledger_set_limit(l, thread_ledgers.cpu_time, LEDGER_LIMIT_INFINITY, 0);
+ ledger_set_action(l, thread_ledgers.cpu_time, LEDGER_ACTION_IGNORE);
+ thread->options &= ~(TH_OPT_PROC_CPULIMIT | TH_OPT_PRVT_CPULIMIT);
+ }
+
+ return (0);
+ }
+
+ if (interval_ns < MINIMUM_CPULIMIT_INTERVAL_MS * NSEC_PER_MSEC) {
+ return (KERN_INVALID_ARGUMENT);
+ }
+
+ l = thread->t_threadledger;
+ if (l == LEDGER_NULL) {
+ /*
+ * This thread doesn't yet have a per-thread ledger; so create one with the CPU time entry active.
+ */
+ if ((l = ledger_instantiate(thread_ledger_template, LEDGER_CREATE_INACTIVE_ENTRIES)) == LEDGER_NULL)
+ return (KERN_RESOURCE_SHORTAGE);
+
+ /*
+ * We are the first to create this thread's ledger, so only activate our entry.
+ */
+ ledger_entry_setactive(l, thread_ledgers.cpu_time);
+ thread->t_threadledger = l;
+ }
/*
- * Replace `act_unlock_thread()' with individual
- * calls. (`act_detach()' can change fields used
- * to determine which locks are held, confusing
- * `act_unlock_thread()'.)
+ * The limit is specified as a percentage of CPU over an interval in nanoseconds.
+ * Calculate the amount of CPU time that the thread needs to consume in order to hit the limit.
+ */
+ limittime = (interval_ns * percentage) / 100;
+ nanoseconds_to_absolutetime(limittime, &abstime);
+ ledger_set_limit(l, thread_ledgers.cpu_time, abstime, cpumon_ustackshots_trigger_pct);
+ /*
+ * Refill the thread's allotted CPU time every interval_ns nanoseconds.
*/
- rpc_unlock(thread);
- if (pool_port != IP_NULL)
- ip_unlock(pool_port);
- act_unlock(thr_act);
+ ledger_set_period(l, thread_ledgers.cpu_time, interval_ns);
- /* Remove the reference held by a rooted thread */
- if (pool_port == IP_NULL)
- act_deallocate(thr_act);
+ if (action == THREAD_CPULIMIT_EXCEPTION) {
+ /*
+ * We don't support programming the CPU usage monitor on a task if any of its
+ * threads have a per-thread blocking CPU limit configured.
+ */
+ if (thread->options & TH_OPT_PRVT_CPULIMIT) {
+ panic("CPU usage monitor activated, but blocking thread limit exists");
+ }
- /* Remove the reference held by the thread: */
- act_deallocate(thr_act);
-}
+ /*
+ * Make a note that this thread's CPU limit is being used for the task-wide CPU
+ * usage monitor. We don't have to arm the callback which will trigger the
+ * exception, because that was done for us in ledger_instantiate (because the
+ * ledger template used has a default callback).
+ */
+ thread->options |= TH_OPT_PROC_CPULIMIT;
+ } else {
+ /*
+ * We deliberately override any CPU limit imposed by a task-wide limit (eg
+ * CPU usage monitor).
+ */
+ thread->options &= ~TH_OPT_PROC_CPULIMIT;
-static thread_call_data_t thread_reaper_call_data;
+ thread->options |= TH_OPT_PRVT_CPULIMIT;
+ /* The per-thread ledger template by default has a callback for CPU time */
+ ledger_disable_callback(l, thread_ledgers.cpu_time);
+ ledger_set_action(l, thread_ledgers.cpu_time, LEDGER_ACTION_BLOCK);
+ }
+
+ return (0);
+}
-/*
- * reaper_thread:
- *
- * This kernel thread runs forever looking for threads to destroy
- * (when they request that they be destroyed, of course).
- *
- * The reaper thread will disappear in the next revision of thread
- * control when it's function will be moved into thread_dispatch.
- */
static void
-_thread_reaper(
- thread_call_param_t p0,
- thread_call_param_t p1)
+sched_call_null(
+__unused int type,
+__unused thread_t thread)
{
- register thread_t thread;
- spl_t s;
-
- s = splsched();
- simple_lock(&reaper_lock);
+ return;
+}
- while ((thread = (thread_t) dequeue_head(&reaper_queue)) != THREAD_NULL) {
- simple_unlock(&reaper_lock);
+void
+thread_sched_call(
+ thread_t thread,
+ sched_call_t call)
+{
+ thread->sched_call = (call != NULL)? call: sched_call_null;
+}
- /*
- * wait for run bit to clear
- */
+sched_call_t
+thread_disable_sched_call(
+ thread_t thread,
+ sched_call_t call)
+{
+ if (call) {
+ spl_t s = splsched();
thread_lock(thread);
- if (thread->state & TH_RUN)
- panic("thread reaper: TH_RUN");
+ if (thread->sched_call == call) {
+ thread->sched_call = sched_call_null;
+ } else {
+ call = NULL;
+ }
thread_unlock(thread);
splx(s);
-
- thread_doreap(thread);
-
- s = splsched();
- simple_lock(&reaper_lock);
}
-
- simple_unlock(&reaper_lock);
- splx(s);
+ return call;
}
void
-thread_reaper(void)
+thread_reenable_sched_call(
+ thread_t thread,
+ sched_call_t call)
{
- thread_call_setup(&thread_reaper_call_data, _thread_reaper, NULL);
- thread_reaper_call = &thread_reaper_call_data;
-
- _thread_reaper(NULL, NULL);
+ if (call) {
+ spl_t s = splsched();
+ thread_lock(thread);
+ thread_sched_call(thread, call);
+ thread_unlock(thread);
+ splx(s);
+ }
}
-kern_return_t
-thread_assign(
- thread_act_t thr_act,
- processor_set_t new_pset)
+void
+thread_static_param(
+ thread_t thread,
+ boolean_t state)
{
-#ifdef lint
- thread++; new_pset++;
-#endif /* lint */
- return(KERN_FAILURE);
+ thread_mtx_lock(thread);
+ thread->static_param = state;
+ thread_mtx_unlock(thread);
}
-/*
- * thread_assign_default:
- *
- * Special version of thread_assign for assigning threads to default
- * processor set.
- */
-kern_return_t
-thread_assign_default(
- thread_act_t thr_act)
+uint64_t
+thread_tid(
+ thread_t thread)
{
- return (thread_assign(thr_act, &default_pset));
+ return (thread != THREAD_NULL? thread->thread_id: 0);
}
-/*
- * thread_get_assignment
- *
- * Return current assignment for this thread.
- */
-kern_return_t
-thread_get_assignment(
- thread_act_t thr_act,
- processor_set_t *pset)
-{
- thread_t thread;
-
- if (thr_act == THR_ACT_NULL)
- return(KERN_INVALID_ARGUMENT);
- thread = act_lock_thread(thr_act);
- if (thread == THREAD_NULL) {
- act_unlock_thread(thr_act);
- return(KERN_INVALID_ARGUMENT);
- }
- *pset = thread->processor_set;
- act_unlock_thread(thr_act);
- pset_reference(*pset);
- return(KERN_SUCCESS);
+uint16_t thread_set_tag(thread_t th, uint16_t tag) {
+ return thread_set_tag_internal(th, tag);
+}
+uint16_t thread_get_tag(thread_t th) {
+ return thread_get_tag_internal(th);
}
-/*
- * thread_wire:
- *
- * Specify that the target thread must always be able
- * to run and to allocate memory.
- */
-kern_return_t
-thread_wire(
- host_priv_t host_priv,
- thread_act_t thr_act,
- boolean_t wired)
+uint64_t
+thread_dispatchqaddr(
+ thread_t thread)
{
- spl_t s;
- thread_t thread;
- extern void vm_page_free_reserve(int pages);
+ uint64_t dispatchqueue_addr;
+ uint64_t thread_handle;
- if (thr_act == THR_ACT_NULL || host_priv == HOST_PRIV_NULL)
- return (KERN_INVALID_ARGUMENT);
+ if (thread == THREAD_NULL)
+ return 0;
- assert(host_priv == &realhost);
+ thread_handle = thread->machine.cthread_self;
+ if (thread_handle == 0)
+ return 0;
+
+ if (thread->inspection == TRUE)
+ dispatchqueue_addr = thread_handle + get_task_dispatchqueue_offset(thread->task);
+ else if (thread->task->bsd_info)
+ dispatchqueue_addr = thread_handle + get_dispatchqueue_offset_from_proc(thread->task->bsd_info);
+ else
+ dispatchqueue_addr = 0;
- thread = act_lock_thread(thr_act);
- if (thread ==THREAD_NULL) {
- act_unlock_thread(thr_act);
- return(KERN_INVALID_ARGUMENT);
- }
+ return dispatchqueue_addr;
+}
- /*
- * This implementation only works for the current thread.
- * See stack_privilege.
- */
- if (thr_act != current_act())
- return KERN_INVALID_ARGUMENT;
+uint64_t
+thread_rettokern_addr(
+ thread_t thread)
+{
+ uint64_t rettokern_addr;
+ uint64_t rettokern_offset;
+ uint64_t thread_handle;
- s = splsched();
- thread_lock(thread);
+ if (thread == THREAD_NULL)
+ return 0;
- if (wired) {
- if (thread->vm_privilege == FALSE)
- vm_page_free_reserve(1); /* XXX */
- thread->vm_privilege = TRUE;
- } else {
- if (thread->vm_privilege == TRUE)
- vm_page_free_reserve(-1); /* XXX */
- thread->vm_privilege = FALSE;
- }
+ thread_handle = thread->machine.cthread_self;
+ if (thread_handle == 0)
+ return 0;
- thread_unlock(thread);
- splx(s);
- act_unlock_thread(thr_act);
+ if (thread->task->bsd_info) {
+ rettokern_offset = get_return_to_kernel_offset_from_proc(thread->task->bsd_info);
- /*
- * Make the thread unswappable.
- */
- if (wired)
- thread_swappable(thr_act, FALSE);
+ /* Return 0 if return to kernel offset is not initialized. */
+ if (rettokern_offset == 0) {
+ rettokern_addr = 0;
+ } else {
+ rettokern_addr = thread_handle + rettokern_offset;
+ }
+ } else {
+ rettokern_addr = 0;
+ }
- return KERN_SUCCESS;
+ return rettokern_addr;
}
/*
- * thread_collect_scan:
- *
- * Attempt to free resources owned by threads.
+ * Export routines to other components for things that are done as macros
+ * within the osfmk component.
*/
+#undef thread_reference
+void thread_reference(thread_t thread);
void
-thread_collect_scan(void)
+thread_reference(
+ thread_t thread)
{
- /* This code runs very quickly! */
+ if (thread != THREAD_NULL)
+ thread_reference_internal(thread);
}
-boolean_t thread_collect_allowed = TRUE;
-unsigned thread_collect_last_tick = 0;
-unsigned thread_collect_max_rate = 0; /* in ticks */
+#undef thread_should_halt
+
+boolean_t
+thread_should_halt(
+ thread_t th)
+{
+ return (thread_should_halt_fast(th));
+}
/*
- * consider_thread_collect:
+ * thread_set_voucher_name - reset the voucher port name bound to this thread
+ *
+ * Conditions: nothing locked
*
- * Called by the pageout daemon when the system needs more free pages.
+ * If we already converted the previous name to a cached voucher
+ * reference, then we discard that reference here. The next lookup
+ * will cache it again.
*/
-void
-consider_thread_collect(void)
+kern_return_t
+thread_set_voucher_name(mach_port_name_t voucher_name)
{
- /*
- * By default, don't attempt thread collection more frequently
- * than once a second (one scheduler tick).
- */
+ thread_t thread = current_thread();
+ ipc_voucher_t new_voucher = IPC_VOUCHER_NULL;
+ ipc_voucher_t voucher;
+ ledger_t bankledger = NULL;
+ thread_group_t banktg = NULL;
- if (thread_collect_max_rate == 0)
- thread_collect_max_rate = 2; /* sched_tick is a 1 second resolution 2 here insures at least 1 second interval */
+ if (MACH_PORT_DEAD == voucher_name)
+ return KERN_INVALID_RIGHT;
- if (thread_collect_allowed &&
- (sched_tick >
- (thread_collect_last_tick + thread_collect_max_rate))) {
- thread_collect_last_tick = sched_tick;
- thread_collect_scan();
+ /*
+ * agressively convert to voucher reference
+ */
+ if (MACH_PORT_VALID(voucher_name)) {
+ new_voucher = convert_port_name_to_voucher(voucher_name);
+ if (IPC_VOUCHER_NULL == new_voucher)
+ return KERN_INVALID_ARGUMENT;
}
-}
+ bank_get_bank_ledger_and_thread_group(new_voucher, &bankledger, &banktg);
-#if MACH_DEBUG
-#if STACK_USAGE
+ thread_mtx_lock(thread);
+ voucher = thread->ith_voucher;
+ thread->ith_voucher_name = voucher_name;
+ thread->ith_voucher = new_voucher;
+ thread_mtx_unlock(thread);
-vm_size_t
-stack_usage(
- register vm_offset_t stack)
-{
- int i;
+ bank_swap_thread_bank_ledger(thread, bankledger);
- for (i = 0; i < KERNEL_STACK_SIZE/sizeof(unsigned int); i++)
- if (((unsigned int *)stack)[i] != STACK_MARKER)
- break;
+ KERNEL_DEBUG_CONSTANT_IST(KDEBUG_TRACE,
+ MACHDBG_CODE(DBG_MACH_IPC,MACH_THREAD_SET_VOUCHER) | DBG_FUNC_NONE,
+ (uintptr_t)thread_tid(thread),
+ (uintptr_t)voucher_name,
+ VM_KERNEL_ADDRPERM((uintptr_t)new_voucher),
+ 1, 0);
- return KERNEL_STACK_SIZE - i * sizeof(unsigned int);
+ if (IPC_VOUCHER_NULL != voucher)
+ ipc_voucher_release(voucher);
+
+ return KERN_SUCCESS;
}
-/*
- * Machine-dependent code should call stack_init
- * before doing its own initialization of the stack.
+/*
+ * thread_get_mach_voucher - return a voucher reference for the specified thread voucher
+ *
+ * Conditions: nothing locked
+ *
+ * A reference to the voucher may be lazily pending, if someone set the voucher name
+ * but nobody has done a lookup yet. In that case, we'll have to do the equivalent
+ * lookup here.
+ *
+ * NOTE: At the moment, there is no distinction between the current and effective
+ * vouchers because we only set them at the thread level currently.
*/
-
-static void
-stack_init(
- register vm_offset_t stack,
- unsigned int bytes)
+kern_return_t
+thread_get_mach_voucher(
+ thread_act_t thread,
+ mach_voucher_selector_t __unused which,
+ ipc_voucher_t *voucherp)
{
- if (stack_check_usage) {
- int i;
+ ipc_voucher_t voucher;
+ mach_port_name_t voucher_name;
- for (i = 0; i < bytes / sizeof(unsigned int); i++)
- ((unsigned int *)stack)[i] = STACK_MARKER;
- }
-}
+ if (THREAD_NULL == thread)
+ return KERN_INVALID_ARGUMENT;
-/*
- * Machine-dependent code should call stack_finalize
- * before releasing the stack memory.
- */
+ thread_mtx_lock(thread);
+ voucher = thread->ith_voucher;
-void
-stack_finalize(
- register vm_offset_t stack)
-{
- if (stack_check_usage) {
- vm_size_t used = stack_usage(stack);
-
- simple_lock(&stack_usage_lock);
- if (used > stack_max_usage)
- stack_max_usage = used;
- simple_unlock(&stack_usage_lock);
- if (used > stack_max_use) {
- printf("stack usage = %x\n", used);
- panic("stack overflow");
- }
+ /* if already cached, just return a ref */
+ if (IPC_VOUCHER_NULL != voucher) {
+ ipc_voucher_reference(voucher);
+ thread_mtx_unlock(thread);
+ *voucherp = voucher;
+ return KERN_SUCCESS;
}
-}
-#endif /*STACK_USAGE*/
-#endif /* MACH_DEBUG */
+ voucher_name = thread->ith_voucher_name;
-kern_return_t
-host_stack_usage(
- host_t host,
- vm_size_t *reservedp,
- unsigned int *totalp,
- vm_size_t *spacep,
- vm_size_t *residentp,
- vm_size_t *maxusagep,
- vm_offset_t *maxstackp)
-{
-#if !MACH_DEBUG
- return KERN_NOT_SUPPORTED;
-#else
- unsigned int total;
- vm_size_t maxusage;
+ /* convert the name to a port, then voucher reference */
+ if (MACH_PORT_VALID(voucher_name)) {
+ ipc_port_t port;
+
+ if (KERN_SUCCESS !=
+ ipc_object_copyin(thread->task->itk_space, voucher_name,
+ MACH_MSG_TYPE_COPY_SEND, (ipc_object_t *)&port)) {
+ thread->ith_voucher_name = MACH_PORT_NULL;
+ thread_mtx_unlock(thread);
+ *voucherp = IPC_VOUCHER_NULL;
+ return KERN_SUCCESS;
+ }
- if (host == HOST_NULL)
- return KERN_INVALID_HOST;
+ /* convert to a voucher ref to return, and cache a ref on thread */
+ voucher = convert_port_to_voucher(port);
+ ipc_voucher_reference(voucher);
+ thread->ith_voucher = voucher;
+ thread_mtx_unlock(thread);
- simple_lock(&stack_usage_lock);
- maxusage = stack_max_usage;
- simple_unlock(&stack_usage_lock);
+ KERNEL_DEBUG_CONSTANT_IST(KDEBUG_TRACE,
+ MACHDBG_CODE(DBG_MACH_IPC,MACH_THREAD_SET_VOUCHER) | DBG_FUNC_NONE,
+ (uintptr_t)thread_tid(thread),
+ (uintptr_t)port,
+ VM_KERNEL_ADDRPERM((uintptr_t)voucher),
+ 2, 0);
- stack_statistics(&total, &maxusage);
- *reservedp = 0;
- *totalp = total;
- *spacep = *residentp = total * round_page(KERNEL_STACK_SIZE);
- *maxusagep = maxusage;
- *maxstackp = 0;
- return KERN_SUCCESS;
+ ipc_port_release_send(port);
+ } else
+ thread_mtx_unlock(thread);
-#endif /* MACH_DEBUG */
+ *voucherp = voucher;
+ return KERN_SUCCESS;
}
-/*
- * Return info on stack usage for threads in a specific processor set
+/*
+ * thread_set_mach_voucher - set a voucher reference for the specified thread voucher
+ *
+ * Conditions: callers holds a reference on the voucher.
+ * nothing locked.
+ *
+ * We grab another reference to the voucher and bind it to the thread. Any lazy
+ * binding is erased. The old voucher reference associated with the thread is
+ * discarded.
*/
-kern_return_t
-processor_set_stack_usage(
- processor_set_t pset,
- unsigned int *totalp,
- vm_size_t *spacep,
- vm_size_t *residentp,
- vm_size_t *maxusagep,
- vm_offset_t *maxstackp)
-{
-#if !MACH_DEBUG
- return KERN_NOT_SUPPORTED;
-#else
- unsigned int total;
- vm_size_t maxusage;
- vm_offset_t maxstack;
-
- register thread_t *threads;
- register thread_t thread;
-
- unsigned int actual; /* this many things */
- unsigned int i;
-
- vm_size_t size, size_needed;
- vm_offset_t addr;
+kern_return_t
+thread_set_mach_voucher(
+ thread_t thread,
+ ipc_voucher_t voucher)
+{
+ ipc_voucher_t old_voucher;
+ ledger_t bankledger = NULL;
+ thread_group_t banktg = NULL;
- if (pset == PROCESSOR_SET_NULL)
+ if (THREAD_NULL == thread)
return KERN_INVALID_ARGUMENT;
- size = 0; addr = 0;
-
- for (;;) {
- pset_lock(pset);
- if (!pset->active) {
- pset_unlock(pset);
- return KERN_INVALID_ARGUMENT;
- }
-
- actual = pset->thread_count;
-
- /* do we have the memory we need? */
+ if (thread != current_thread() && thread->started)
+ return KERN_INVALID_ARGUMENT;
- size_needed = actual * sizeof(thread_t);
- if (size_needed <= size)
- break;
+ ipc_voucher_reference(voucher);
+ bank_get_bank_ledger_and_thread_group(voucher, &bankledger, &banktg);
- /* unlock the pset and allocate more memory */
- pset_unlock(pset);
+ thread_mtx_lock(thread);
+ old_voucher = thread->ith_voucher;
+ thread->ith_voucher = voucher;
+ thread->ith_voucher_name = MACH_PORT_NULL;
+ thread_mtx_unlock(thread);
- if (size != 0)
- kfree(addr, size);
+ bank_swap_thread_bank_ledger(thread, bankledger);
- assert(size_needed > 0);
- size = size_needed;
+ KERNEL_DEBUG_CONSTANT_IST(KDEBUG_TRACE,
+ MACHDBG_CODE(DBG_MACH_IPC,MACH_THREAD_SET_VOUCHER) | DBG_FUNC_NONE,
+ (uintptr_t)thread_tid(thread),
+ (uintptr_t)MACH_PORT_NULL,
+ VM_KERNEL_ADDRPERM((uintptr_t)voucher),
+ 3, 0);
- addr = kalloc(size);
- if (addr == 0)
- return KERN_RESOURCE_SHORTAGE;
- }
+ ipc_voucher_release(old_voucher);
- /* OK, have memory and the processor_set is locked & active */
+ return KERN_SUCCESS;
+}
- threads = (thread_t *) addr;
- for (i = 0, thread = (thread_t) queue_first(&pset->threads);
- i < actual;
- i++,
- thread = (thread_t) queue_next(&thread->pset_threads)) {
- thread_reference(thread);
- threads[i] = thread;
- }
- assert(queue_end(&pset->threads, (queue_entry_t) thread));
+/*
+ * thread_swap_mach_voucher - swap a voucher reference for the specified thread voucher
+ *
+ * Conditions: callers holds a reference on the new and presumed old voucher(s).
+ * nothing locked.
+ *
+ * If the old voucher is still the same as passed in, replace it with new voucher
+ * and discard the old (and the reference passed in). Otherwise, discard the new
+ * and return an updated old voucher.
+ */
+kern_return_t
+thread_swap_mach_voucher(
+ thread_t thread,
+ ipc_voucher_t new_voucher,
+ ipc_voucher_t *in_out_old_voucher)
+{
+ mach_port_name_t old_voucher_name;
+ ipc_voucher_t old_voucher;
+ ledger_t bankledger = NULL;
+ thread_group_t banktg = NULL;
- /* can unlock processor set now that we have the thread refs */
- pset_unlock(pset);
+ if (THREAD_NULL == thread)
+ return KERN_INVALID_TASK;
- /* calculate maxusage and free thread references */
+ if (thread != current_thread() && thread->started)
+ return KERN_INVALID_ARGUMENT;
- total = 0;
- maxusage = 0;
- maxstack = 0;
- for (i = 0; i < actual; i++) {
- int cpu;
- thread_t thread = threads[i];
- vm_offset_t stack = 0;
+ bank_get_bank_ledger_and_thread_group(new_voucher, &bankledger, &banktg);
- /*
- * thread->kernel_stack is only accurate if the
- * thread isn't swapped and is not executing.
- *
- * Of course, we don't have the appropriate locks
- * for these shenanigans.
- */
+ thread_mtx_lock(thread);
- stack = thread->kernel_stack;
+ old_voucher = thread->ith_voucher;
- for (cpu = 0; cpu < NCPUS; cpu++)
- if (cpu_data[cpu].active_thread == thread) {
- stack = active_stacks[cpu];
- break;
- }
+ if (IPC_VOUCHER_NULL == old_voucher) {
+ old_voucher_name = thread->ith_voucher_name;
- if (stack != 0) {
- total++;
+ /* perform lazy binding if needed */
+ if (MACH_PORT_VALID(old_voucher_name)) {
+ old_voucher = convert_port_name_to_voucher(old_voucher_name);
+ thread->ith_voucher_name = MACH_PORT_NULL;
+ thread->ith_voucher = old_voucher;
- if (stack_check_usage) {
- vm_size_t usage = stack_usage(stack);
+ KERNEL_DEBUG_CONSTANT_IST(KDEBUG_TRACE,
+ MACHDBG_CODE(DBG_MACH_IPC,MACH_THREAD_SET_VOUCHER) | DBG_FUNC_NONE,
+ (uintptr_t)thread_tid(thread),
+ (uintptr_t)old_voucher_name,
+ VM_KERNEL_ADDRPERM((uintptr_t)old_voucher),
+ 4, 0);
- if (usage > maxusage) {
- maxusage = usage;
- maxstack = (vm_offset_t) thread;
- }
- }
}
-
- thread_deallocate(thread);
}
- if (size != 0)
- kfree(addr, size);
+ /* swap in new voucher, if old voucher matches the one supplied */
+ if (old_voucher == *in_out_old_voucher) {
+ ipc_voucher_reference(new_voucher);
+ thread->ith_voucher = new_voucher;
+ thread->ith_voucher_name = MACH_PORT_NULL;
+ thread_mtx_unlock(thread);
+ bank_swap_thread_bank_ledger(thread, bankledger);
+
+ KERNEL_DEBUG_CONSTANT_IST(KDEBUG_TRACE,
+ MACHDBG_CODE(DBG_MACH_IPC,MACH_THREAD_SET_VOUCHER) | DBG_FUNC_NONE,
+ (uintptr_t)thread_tid(thread),
+ (uintptr_t)MACH_PORT_NULL,
+ VM_KERNEL_ADDRPERM((uintptr_t)new_voucher),
+ 5, 0);
+
+ ipc_voucher_release(old_voucher);
+
+ *in_out_old_voucher = IPC_VOUCHER_NULL;
+ return KERN_SUCCESS;
+ }
- *totalp = total;
- *residentp = *spacep = total * round_page(KERNEL_STACK_SIZE);
- *maxusagep = maxusage;
- *maxstackp = maxstack;
+ /* Otherwise, just return old voucher reference */
+ ipc_voucher_reference(old_voucher);
+ thread_mtx_unlock(thread);
+ *in_out_old_voucher = old_voucher;
return KERN_SUCCESS;
+}
-#endif /* MACH_DEBUG */
+/*
+ * thread_get_current_voucher_origin_pid - get the pid of the originator of the current voucher.
+ */
+kern_return_t
+thread_get_current_voucher_origin_pid(
+ int32_t *pid)
+{
+ uint32_t buf_size;
+ kern_return_t kr;
+ thread_t thread = current_thread();
+
+ buf_size = sizeof(*pid);
+ kr = mach_voucher_attr_command(thread->ith_voucher,
+ MACH_VOUCHER_ATTR_KEY_BANK,
+ BANK_ORIGINATOR_PID,
+ NULL,
+ 0,
+ (mach_voucher_attr_content_t)pid,
+ &buf_size);
+
+ return kr;
}
-static int split_funnel_off = 0;
-funnel_t *
-funnel_alloc(
- int type)
+
+boolean_t
+thread_has_thread_name(thread_t th)
{
- mutex_t *m;
- funnel_t * fnl;
- if ((fnl = (funnel_t *)kalloc(sizeof(funnel_t))) != 0){
- bzero(fnl, sizeof(funnel_t));
- if ((m = mutex_alloc(0)) == (mutex_t *)NULL) {
- kfree(fnl, sizeof(funnel_t));
- return(THR_FUNNEL_NULL);
- }
- fnl->fnl_mutex = m;
- fnl->fnl_type = type;
+ if ((th) && (th->uthread)) {
+ return bsd_hasthreadname(th->uthread);
}
- return(fnl);
+
+ /*
+ * This is an odd case; clients may set the thread name based on the lack of
+ * a name, but in this context there is no uthread to attach the name to.
+ */
+ return FALSE;
}
-void
-funnel_free(
- funnel_t * fnl)
+void
+thread_set_thread_name(thread_t th, const char* name)
{
- mutex_free(fnl->fnl_mutex);
- if (fnl->fnl_oldmutex)
- mutex_free(fnl->fnl_oldmutex);
- kfree(fnl, sizeof(funnel_t));
+ if ((th) && (th->uthread) && name) {
+ bsd_setthreadname(th->uthread, name);
+ }
}
-void
-funnel_lock(
- funnel_t * fnl)
+/*
+ * thread_enable_send_importance - set/clear the SEND_IMPORTANCE thread option bit.
+ */
+void thread_enable_send_importance(thread_t thread, boolean_t enable)
{
- mutex_t * m;
-
- m = fnl->fnl_mutex;
-restart:
- mutex_lock(m);
- fnl->fnl_mtxholder = current_thread();
- if (split_funnel_off && (m != fnl->fnl_mutex)) {
- mutex_unlock(m);
- m = fnl->fnl_mutex;
- goto restart;
- }
+ if (enable == TRUE)
+ thread->options |= TH_OPT_SEND_IMPORTANCE;
+ else
+ thread->options &= ~TH_OPT_SEND_IMPORTANCE;
}
-void
-funnel_unlock(
- funnel_t * fnl)
+/*
+ * thread_set_allocation_name - .
+ */
+
+kern_allocation_name_t thread_set_allocation_name(kern_allocation_name_t new_name)
{
- mutex_unlock(fnl->fnl_mutex);
- fnl->fnl_mtxrelease = current_thread();
+ kern_allocation_name_t ret;
+ thread_kernel_state_t kstate = thread_get_kernel_state(current_thread());
+ ret = kstate->allocation_name;
+ // fifo
+ if (!new_name || !kstate->allocation_name) kstate->allocation_name = new_name;
+ return ret;
}
-funnel_t *
-thread_funnel_get(
- void)
+#if CONFIG_DTRACE
+uint32_t dtrace_get_thread_predcache(thread_t thread)
{
- thread_t th = current_thread();
+ if (thread != THREAD_NULL)
+ return thread->t_dtrace_predcache;
+ else
+ return 0;
+}
- if (th->funnel_state & TH_FN_OWNED) {
- return(th->funnel_lock);
- }
- return(THR_FUNNEL_NULL);
+int64_t dtrace_get_thread_vtime(thread_t thread)
+{
+ if (thread != THREAD_NULL)
+ return thread->t_dtrace_vtime;
+ else
+ return 0;
}
-boolean_t
-thread_funnel_set(
- funnel_t * fnl,
- boolean_t funneled)
-{
- thread_t cur_thread;
- boolean_t funnel_state_prev;
- boolean_t intr;
-
- cur_thread = current_thread();
- funnel_state_prev = ((cur_thread->funnel_state & TH_FN_OWNED) == TH_FN_OWNED);
-
- if (funnel_state_prev != funneled) {
- intr = ml_set_interrupts_enabled(FALSE);
-
- if (funneled == TRUE) {
- if (cur_thread->funnel_lock)
- panic("Funnel lock called when holding one %x", cur_thread->funnel_lock);
- KERNEL_DEBUG(0x6032428 | DBG_FUNC_NONE,
- fnl, 1, 0, 0, 0);
- funnel_lock(fnl);
- KERNEL_DEBUG(0x6032434 | DBG_FUNC_NONE,
- fnl, 1, 0, 0, 0);
- cur_thread->funnel_state |= TH_FN_OWNED;
- cur_thread->funnel_lock = fnl;
- } else {
- if(cur_thread->funnel_lock->fnl_mutex != fnl->fnl_mutex)
- panic("Funnel unlock when not holding funnel");
- cur_thread->funnel_state &= ~TH_FN_OWNED;
- KERNEL_DEBUG(0x603242c | DBG_FUNC_NONE,
- fnl, 1, 0, 0, 0);
-
- cur_thread->funnel_lock = THR_FUNNEL_NULL;
- funnel_unlock(fnl);
- }
- (void)ml_set_interrupts_enabled(intr);
+int dtrace_get_thread_last_cpu_id(thread_t thread)
+{
+ if ((thread != THREAD_NULL) && (thread->last_processor != PROCESSOR_NULL)) {
+ return thread->last_processor->cpu_id;
} else {
- /* if we are trying to acquire funnel recursively
- * check for funnel to be held already
- */
- if (funneled && (fnl->fnl_mutex != cur_thread->funnel_lock->fnl_mutex)) {
- panic("thread_funnel_set: already holding a different funnel");
- }
+ return -1;
}
- return(funnel_state_prev);
}
-boolean_t
-thread_funnel_merge(
- funnel_t * fnl,
- funnel_t * otherfnl)
+int64_t dtrace_get_thread_tracing(thread_t thread)
+{
+ if (thread != THREAD_NULL)
+ return thread->t_dtrace_tracing;
+ else
+ return 0;
+}
+
+boolean_t dtrace_get_thread_reentering(thread_t thread)
+{
+ if (thread != THREAD_NULL)
+ return (thread->options & TH_OPT_DTRACE) ? TRUE : FALSE;
+ else
+ return 0;
+}
+
+vm_offset_t dtrace_get_kernel_stack(thread_t thread)
{
- mutex_t * m;
- mutex_t * otherm;
- funnel_t * gfnl;
- extern int disable_funnel;
+ if (thread != THREAD_NULL)
+ return thread->kernel_stack;
+ else
+ return 0;
+}
- if ((gfnl = thread_funnel_get()) == THR_FUNNEL_NULL)
- panic("thread_funnel_merge called with no funnels held");
+#if KASAN
+struct kasan_thread_data *
+kasan_get_thread_data(thread_t thread)
+{
+ return &thread->kasan_data;
+}
+#endif
- if (gfnl->fnl_type != 1)
- panic("thread_funnel_merge called from non kernel funnel");
+int64_t dtrace_calc_thread_recent_vtime(thread_t thread)
+{
+ if (thread != THREAD_NULL) {
+ processor_t processor = current_processor();
+ uint64_t abstime = mach_absolute_time();
+ timer_t timer;
- if (gfnl != fnl)
- panic("thread_funnel_merge incorrect invocation");
+ timer = PROCESSOR_DATA(processor, thread_timer);
- if (disable_funnel || split_funnel_off)
- return (KERN_FAILURE);
+ return timer_grab(&(thread->system_timer)) + timer_grab(&(thread->user_timer)) +
+ (abstime - timer->tstamp); /* XXX need interrupts off to prevent missed time? */
+ } else
+ return 0;
+}
- m = fnl->fnl_mutex;
- otherm = otherfnl->fnl_mutex;
+void dtrace_set_thread_predcache(thread_t thread, uint32_t predcache)
+{
+ if (thread != THREAD_NULL)
+ thread->t_dtrace_predcache = predcache;
+}
- /* Acquire other funnel mutex */
- mutex_lock(otherm);
- split_funnel_off = 1;
- disable_funnel = 1;
- otherfnl->fnl_mutex = m;
- otherfnl->fnl_type = fnl->fnl_type;
- otherfnl->fnl_oldmutex = otherm; /* save this for future use */
+void dtrace_set_thread_vtime(thread_t thread, int64_t vtime)
+{
+ if (thread != THREAD_NULL)
+ thread->t_dtrace_vtime = vtime;
+}
- mutex_unlock(otherm);
- return(KERN_SUCCESS);
+void dtrace_set_thread_tracing(thread_t thread, int64_t accum)
+{
+ if (thread != THREAD_NULL)
+ thread->t_dtrace_tracing = accum;
}
-void
-thread_set_cont_arg(int arg)
+void dtrace_set_thread_reentering(thread_t thread, boolean_t vbool)
{
- thread_t th = current_thread();
- th->cont_arg = arg;
+ if (thread != THREAD_NULL) {
+ if (vbool)
+ thread->options |= TH_OPT_DTRACE;
+ else
+ thread->options &= (~TH_OPT_DTRACE);
+ }
}
-int
-thread_get_cont_arg(void)
+vm_offset_t dtrace_set_thread_recover(thread_t thread, vm_offset_t recover)
{
- thread_t th = current_thread();
- return(th->cont_arg);
+ vm_offset_t prev = 0;
+
+ if (thread != THREAD_NULL) {
+ prev = thread->recover;
+ thread->recover = recover;
+ }
+ return prev;
}
-/*
- * Export routines to other components for things that are done as macros
- * within the osfmk component.
- */
-#undef thread_should_halt
-boolean_t
-thread_should_halt(
- thread_shuttle_t th)
+void dtrace_thread_bootstrap(void)
{
- return(thread_should_halt_fast(th));
+ task_t task = current_task();
+
+ if (task->thread_count == 1) {
+ thread_t thread = current_thread();
+ if (thread->t_dtrace_flags & TH_DTRACE_EXECSUCCESS) {
+ thread->t_dtrace_flags &= ~TH_DTRACE_EXECSUCCESS;
+ DTRACE_PROC(exec__success);
+ KDBG(BSDDBG_CODE(DBG_BSD_PROC,BSD_PROC_EXEC),
+ task_pid(task));
+ }
+ DTRACE_PROC(start);
+ }
+ DTRACE_PROC(lwp__start);
+
}
+void
+dtrace_thread_didexec(thread_t thread)
+{
+ thread->t_dtrace_flags |= TH_DTRACE_EXECSUCCESS;
+}
+#endif /* CONFIG_DTRACE */
projects / apple / xnu.git / blobdiff