2 * Architecture-specific setup.
4 * Copyright (C) 1998-2003 Hewlett-Packard Co
5 * David Mosberger-Tang <davidm@hpl.hp.com>
6 * 04/11/17 Ashok Raj <ashok.raj@intel.com> Added CPU Hotplug Support
8 * 2005-10-07 Keith Owens <kaos@sgi.com>
9 * Add notify_die() hooks.
11 #include <linux/cpu.h>
13 #include <linux/elf.h>
14 #include <linux/errno.h>
15 #include <linux/kallsyms.h>
16 #include <linux/kernel.h>
18 #include <linux/slab.h>
19 #include <linux/module.h>
20 #include <linux/notifier.h>
21 #include <linux/personality.h>
22 #include <linux/sched.h>
23 #include <linux/stddef.h>
24 #include <linux/thread_info.h>
25 #include <linux/unistd.h>
26 #include <linux/efi.h>
27 #include <linux/interrupt.h>
28 #include <linux/delay.h>
29 #include <linux/kdebug.h>
30 #include <linux/utsname.h>
31 #include <linux/tracehook.h>
32 #include <linux/rcupdate.h>
35 #include <asm/delay.h>
38 #include <asm/kexec.h>
39 #include <asm/pgalloc.h>
40 #include <asm/processor.h>
42 #include <asm/switch_to.h>
43 #include <asm/tlbflush.h>
44 #include <asm/uaccess.h>
45 #include <asm/unwind.h>
51 # include <asm/perfmon.h>
56 void (*ia64_mark_idle
)(int);
58 unsigned long boot_option_idle_override
= IDLE_NO_OVERRIDE
;
59 EXPORT_SYMBOL(boot_option_idle_override
);
60 void (*pm_power_off
) (void);
61 EXPORT_SYMBOL(pm_power_off
);
64 ia64_do_show_stack (struct unw_frame_info
*info
, void *arg
)
66 unsigned long ip
, sp
, bsp
;
67 char buf
[128]; /* don't make it so big that it overflows the stack! */
69 printk("\nCall Trace:\n");
71 unw_get_ip(info
, &ip
);
75 unw_get_sp(info
, &sp
);
76 unw_get_bsp(info
, &bsp
);
77 snprintf(buf
, sizeof(buf
),
79 " sp=%016lx bsp=%016lx\n",
81 print_symbol(buf
, ip
);
82 } while (unw_unwind(info
) >= 0);
86 show_stack (struct task_struct
*task
, unsigned long *sp
)
89 unw_init_running(ia64_do_show_stack
, NULL
);
91 struct unw_frame_info info
;
93 unw_init_from_blocked_task(&info
, task
);
94 ia64_do_show_stack(&info
, NULL
);
101 show_stack(NULL
, NULL
);
104 EXPORT_SYMBOL(dump_stack
);
107 show_regs (struct pt_regs
*regs
)
109 unsigned long ip
= regs
->cr_iip
+ ia64_psr(regs
)->ri
;
112 printk("\nPid: %d, CPU %d, comm: %20s\n", task_pid_nr(current
),
113 smp_processor_id(), current
->comm
);
114 printk("psr : %016lx ifs : %016lx ip : [<%016lx>] %s (%s)\n",
115 regs
->cr_ipsr
, regs
->cr_ifs
, ip
, print_tainted(),
116 init_utsname()->release
);
117 print_symbol("ip is at %s\n", ip
);
118 printk("unat: %016lx pfs : %016lx rsc : %016lx\n",
119 regs
->ar_unat
, regs
->ar_pfs
, regs
->ar_rsc
);
120 printk("rnat: %016lx bsps: %016lx pr : %016lx\n",
121 regs
->ar_rnat
, regs
->ar_bspstore
, regs
->pr
);
122 printk("ldrs: %016lx ccv : %016lx fpsr: %016lx\n",
123 regs
->loadrs
, regs
->ar_ccv
, regs
->ar_fpsr
);
124 printk("csd : %016lx ssd : %016lx\n", regs
->ar_csd
, regs
->ar_ssd
);
125 printk("b0 : %016lx b6 : %016lx b7 : %016lx\n", regs
->b0
, regs
->b6
, regs
->b7
);
126 printk("f6 : %05lx%016lx f7 : %05lx%016lx\n",
127 regs
->f6
.u
.bits
[1], regs
->f6
.u
.bits
[0],
128 regs
->f7
.u
.bits
[1], regs
->f7
.u
.bits
[0]);
129 printk("f8 : %05lx%016lx f9 : %05lx%016lx\n",
130 regs
->f8
.u
.bits
[1], regs
->f8
.u
.bits
[0],
131 regs
->f9
.u
.bits
[1], regs
->f9
.u
.bits
[0]);
132 printk("f10 : %05lx%016lx f11 : %05lx%016lx\n",
133 regs
->f10
.u
.bits
[1], regs
->f10
.u
.bits
[0],
134 regs
->f11
.u
.bits
[1], regs
->f11
.u
.bits
[0]);
136 printk("r1 : %016lx r2 : %016lx r3 : %016lx\n", regs
->r1
, regs
->r2
, regs
->r3
);
137 printk("r8 : %016lx r9 : %016lx r10 : %016lx\n", regs
->r8
, regs
->r9
, regs
->r10
);
138 printk("r11 : %016lx r12 : %016lx r13 : %016lx\n", regs
->r11
, regs
->r12
, regs
->r13
);
139 printk("r14 : %016lx r15 : %016lx r16 : %016lx\n", regs
->r14
, regs
->r15
, regs
->r16
);
140 printk("r17 : %016lx r18 : %016lx r19 : %016lx\n", regs
->r17
, regs
->r18
, regs
->r19
);
141 printk("r20 : %016lx r21 : %016lx r22 : %016lx\n", regs
->r20
, regs
->r21
, regs
->r22
);
142 printk("r23 : %016lx r24 : %016lx r25 : %016lx\n", regs
->r23
, regs
->r24
, regs
->r25
);
143 printk("r26 : %016lx r27 : %016lx r28 : %016lx\n", regs
->r26
, regs
->r27
, regs
->r28
);
144 printk("r29 : %016lx r30 : %016lx r31 : %016lx\n", regs
->r29
, regs
->r30
, regs
->r31
);
146 if (user_mode(regs
)) {
147 /* print the stacked registers */
148 unsigned long val
, *bsp
, ndirty
;
149 int i
, sof
, is_nat
= 0;
151 sof
= regs
->cr_ifs
& 0x7f; /* size of frame */
152 ndirty
= (regs
->loadrs
>> 19);
153 bsp
= ia64_rse_skip_regs((unsigned long *) regs
->ar_bspstore
, ndirty
);
154 for (i
= 0; i
< sof
; ++i
) {
155 get_user(val
, (unsigned long __user
*) ia64_rse_skip_regs(bsp
, i
));
156 printk("r%-3u:%c%016lx%s", 32 + i
, is_nat
? '*' : ' ', val
,
157 ((i
== sof
- 1) || (i
% 3) == 2) ? "\n" : " ");
160 show_stack(NULL
, NULL
);
163 /* local support for deprecated console_print */
165 console_print(const char *s
)
167 printk(KERN_EMERG
"%s", s
);
171 do_notify_resume_user(sigset_t
*unused
, struct sigscratch
*scr
, long in_syscall
)
173 if (fsys_mode(current
, &scr
->pt
)) {
175 * defer signal-handling etc. until we return to
178 if (!ia64_psr(&scr
->pt
)->lp
)
179 ia64_psr(&scr
->pt
)->lp
= 1;
183 #ifdef CONFIG_PERFMON
184 if (current
->thread
.pfm_needs_checking
)
186 * Note: pfm_handle_work() allow us to call it with interrupts
187 * disabled, and may enable interrupts within the function.
192 /* deal with pending signal delivery */
193 if (test_thread_flag(TIF_SIGPENDING
)) {
194 local_irq_enable(); /* force interrupt enable */
195 ia64_do_signal(scr
, in_syscall
);
198 if (test_and_clear_thread_flag(TIF_NOTIFY_RESUME
)) {
199 local_irq_enable(); /* force interrupt enable */
200 tracehook_notify_resume(&scr
->pt
);
203 /* copy user rbs to kernel rbs */
204 if (unlikely(test_thread_flag(TIF_RESTORE_RSE
))) {
205 local_irq_enable(); /* force interrupt enable */
209 local_irq_disable(); /* force interrupt disable */
212 static int __init
nohalt_setup(char * str
)
214 cpu_idle_poll_ctrl(true);
217 __setup("nohalt", nohalt_setup
);
219 #ifdef CONFIG_HOTPLUG_CPU
220 /* We don't actually take CPU down, just spin without interrupts. */
221 static inline void play_dead(void)
223 unsigned int this_cpu
= smp_processor_id();
226 __get_cpu_var(cpu_state
) = CPU_DEAD
;
231 ia64_jump_to_sal(&sal_boot_rendez_state
[this_cpu
]);
233 * The above is a point of no-return, the processor is
234 * expected to be in SAL loop now.
239 static inline void play_dead(void)
243 #endif /* CONFIG_HOTPLUG_CPU */
245 void arch_cpu_idle_dead(void)
250 void arch_cpu_idle(void)
252 void (*mark_idle
)(int) = ia64_mark_idle
;
271 ia64_save_extra (struct task_struct
*task
)
273 #ifdef CONFIG_PERFMON
277 if ((task
->thread
.flags
& IA64_THREAD_DBG_VALID
) != 0)
278 ia64_save_debug_regs(&task
->thread
.dbr
[0]);
280 #ifdef CONFIG_PERFMON
281 if ((task
->thread
.flags
& IA64_THREAD_PM_VALID
) != 0)
284 info
= __get_cpu_var(pfm_syst_info
);
285 if (info
& PFM_CPUINFO_SYST_WIDE
)
286 pfm_syst_wide_update_task(task
, info
, 0);
291 ia64_load_extra (struct task_struct
*task
)
293 #ifdef CONFIG_PERFMON
297 if ((task
->thread
.flags
& IA64_THREAD_DBG_VALID
) != 0)
298 ia64_load_debug_regs(&task
->thread
.dbr
[0]);
300 #ifdef CONFIG_PERFMON
301 if ((task
->thread
.flags
& IA64_THREAD_PM_VALID
) != 0)
304 info
= __get_cpu_var(pfm_syst_info
);
305 if (info
& PFM_CPUINFO_SYST_WIDE
)
306 pfm_syst_wide_update_task(task
, info
, 1);
311 * Copy the state of an ia-64 thread.
313 * We get here through the following call chain:
315 * from user-level: from kernel:
317 * <clone syscall> <some kernel call frames>
320 * copy_thread copy_thread
322 * This means that the stack layout is as follows:
324 * +---------------------+ (highest addr)
326 * +---------------------+
327 * | struct switch_stack |
328 * +---------------------+
331 * | | <-- sp (lowest addr)
332 * +---------------------+
334 * Observe that we copy the unat values that are in pt_regs and switch_stack. Spilling an
335 * integer to address X causes bit N in ar.unat to be set to the NaT bit of the register,
336 * with N=(X & 0x1ff)/8. Thus, copying the unat value preserves the NaT bits ONLY if the
337 * pt_regs structure in the parent is congruent to that of the child, modulo 512. Since
338 * the stack is page aligned and the page size is at least 4KB, this is always the case,
339 * so there is nothing to worry about.
342 copy_thread(unsigned long clone_flags
,
343 unsigned long user_stack_base
, unsigned long user_stack_size
,
344 struct task_struct
*p
)
346 extern char ia64_ret_from_clone
;
347 struct switch_stack
*child_stack
, *stack
;
348 unsigned long rbs
, child_rbs
, rbs_size
;
349 struct pt_regs
*child_ptregs
;
350 struct pt_regs
*regs
= current_pt_regs();
353 child_ptregs
= (struct pt_regs
*) ((unsigned long) p
+ IA64_STK_OFFSET
) - 1;
354 child_stack
= (struct switch_stack
*) child_ptregs
- 1;
356 rbs
= (unsigned long) current
+ IA64_RBS_OFFSET
;
357 child_rbs
= (unsigned long) p
+ IA64_RBS_OFFSET
;
359 /* copy parts of thread_struct: */
360 p
->thread
.ksp
= (unsigned long) child_stack
- 16;
363 * NOTE: The calling convention considers all floating point
364 * registers in the high partition (fph) to be scratch. Since
365 * the only way to get to this point is through a system call,
366 * we know that the values in fph are all dead. Hence, there
367 * is no need to inherit the fph state from the parent to the
368 * child and all we have to do is to make sure that
369 * IA64_THREAD_FPH_VALID is cleared in the child.
371 * XXX We could push this optimization a bit further by
372 * clearing IA64_THREAD_FPH_VALID on ANY system call.
373 * However, it's not clear this is worth doing. Also, it
374 * would be a slight deviation from the normal Linux system
375 * call behavior where scratch registers are preserved across
376 * system calls (unless used by the system call itself).
378 # define THREAD_FLAGS_TO_CLEAR (IA64_THREAD_FPH_VALID | IA64_THREAD_DBG_VALID \
379 | IA64_THREAD_PM_VALID)
380 # define THREAD_FLAGS_TO_SET 0
381 p
->thread
.flags
= ((current
->thread
.flags
& ~THREAD_FLAGS_TO_CLEAR
)
382 | THREAD_FLAGS_TO_SET
);
384 ia64_drop_fpu(p
); /* don't pick up stale state from a CPU's fph */
386 if (unlikely(p
->flags
& PF_KTHREAD
)) {
387 if (unlikely(!user_stack_base
)) {
388 /* fork_idle() called us */
391 memset(child_stack
, 0, sizeof(*child_ptregs
) + sizeof(*child_stack
));
392 child_stack
->r4
= user_stack_base
; /* payload */
393 child_stack
->r5
= user_stack_size
; /* argument */
395 * Preserve PSR bits, except for bits 32-34 and 37-45,
396 * which we can't read.
398 child_ptregs
->cr_ipsr
= ia64_getreg(_IA64_REG_PSR
) | IA64_PSR_BN
;
399 /* mark as valid, empty frame */
400 child_ptregs
->cr_ifs
= 1UL << 63;
401 child_stack
->ar_fpsr
= child_ptregs
->ar_fpsr
402 = ia64_getreg(_IA64_REG_AR_FPSR
);
403 child_stack
->pr
= (1 << PRED_KERNEL_STACK
);
404 child_stack
->ar_bspstore
= child_rbs
;
405 child_stack
->b0
= (unsigned long) &ia64_ret_from_clone
;
407 /* stop some PSR bits from being inherited.
408 * the psr.up/psr.pp bits must be cleared on fork but inherited on execve()
409 * therefore we must specify them explicitly here and not include them in
410 * IA64_PSR_BITS_TO_CLEAR.
412 child_ptregs
->cr_ipsr
= ((child_ptregs
->cr_ipsr
| IA64_PSR_BITS_TO_SET
)
413 & ~(IA64_PSR_BITS_TO_CLEAR
| IA64_PSR_PP
| IA64_PSR_UP
));
417 stack
= ((struct switch_stack
*) regs
) - 1;
418 /* copy parent's switch_stack & pt_regs to child: */
419 memcpy(child_stack
, stack
, sizeof(*child_ptregs
) + sizeof(*child_stack
));
421 /* copy the parent's register backing store to the child: */
422 rbs_size
= stack
->ar_bspstore
- rbs
;
423 memcpy((void *) child_rbs
, (void *) rbs
, rbs_size
);
424 if (clone_flags
& CLONE_SETTLS
)
425 child_ptregs
->r13
= regs
->r16
; /* see sys_clone2() in entry.S */
426 if (user_stack_base
) {
427 child_ptregs
->r12
= user_stack_base
+ user_stack_size
- 16;
428 child_ptregs
->ar_bspstore
= user_stack_base
;
429 child_ptregs
->ar_rnat
= 0;
430 child_ptregs
->loadrs
= 0;
432 child_stack
->ar_bspstore
= child_rbs
+ rbs_size
;
433 child_stack
->b0
= (unsigned long) &ia64_ret_from_clone
;
435 /* stop some PSR bits from being inherited.
436 * the psr.up/psr.pp bits must be cleared on fork but inherited on execve()
437 * therefore we must specify them explicitly here and not include them in
438 * IA64_PSR_BITS_TO_CLEAR.
440 child_ptregs
->cr_ipsr
= ((child_ptregs
->cr_ipsr
| IA64_PSR_BITS_TO_SET
)
441 & ~(IA64_PSR_BITS_TO_CLEAR
| IA64_PSR_PP
| IA64_PSR_UP
));
443 #ifdef CONFIG_PERFMON
444 if (current
->thread
.pfm_context
)
445 pfm_inherit(p
, child_ptregs
);
451 do_copy_task_regs (struct task_struct
*task
, struct unw_frame_info
*info
, void *arg
)
453 unsigned long mask
, sp
, nat_bits
= 0, ar_rnat
, urbs_end
, cfm
;
454 unsigned long uninitialized_var(ip
); /* GCC be quiet */
455 elf_greg_t
*dst
= arg
;
460 memset(dst
, 0, sizeof(elf_gregset_t
)); /* don't leak any kernel bits to user-level */
462 if (unw_unwind_to_user(info
) < 0)
465 unw_get_sp(info
, &sp
);
466 pt
= (struct pt_regs
*) (sp
+ 16);
468 urbs_end
= ia64_get_user_rbs_end(task
, pt
, &cfm
);
470 if (ia64_sync_user_rbs(task
, info
->sw
, pt
->ar_bspstore
, urbs_end
) < 0)
473 ia64_peek(task
, info
->sw
, urbs_end
, (long) ia64_rse_rnat_addr((long *) urbs_end
),
479 * NaT bits (for r0-r31; bit N == 1 iff rN is a NaT)
480 * predicate registers (p0-p63)
483 * ar.rsc ar.bsp ar.bspstore ar.rnat
484 * ar.ccv ar.unat ar.fpsr ar.pfs ar.lc ar.ec
488 for (i
= 1, mask
= (1UL << i
); i
< 32; ++i
) {
489 unw_get_gr(info
, i
, &dst
[i
], &nat
);
495 unw_get_pr(info
, &dst
[33]);
497 for (i
= 0; i
< 8; ++i
)
498 unw_get_br(info
, i
, &dst
[34 + i
]);
500 unw_get_rp(info
, &ip
);
501 dst
[42] = ip
+ ia64_psr(pt
)->ri
;
503 dst
[44] = pt
->cr_ipsr
& IA64_PSR_UM
;
505 unw_get_ar(info
, UNW_AR_RSC
, &dst
[45]);
507 * For bsp and bspstore, unw_get_ar() would return the kernel
508 * addresses, but we need the user-level addresses instead:
510 dst
[46] = urbs_end
; /* note: by convention PT_AR_BSP points to the end of the urbs! */
511 dst
[47] = pt
->ar_bspstore
;
513 unw_get_ar(info
, UNW_AR_CCV
, &dst
[49]);
514 unw_get_ar(info
, UNW_AR_UNAT
, &dst
[50]);
515 unw_get_ar(info
, UNW_AR_FPSR
, &dst
[51]);
516 dst
[52] = pt
->ar_pfs
; /* UNW_AR_PFS is == to pt->cr_ifs for interrupt frames */
517 unw_get_ar(info
, UNW_AR_LC
, &dst
[53]);
518 unw_get_ar(info
, UNW_AR_EC
, &dst
[54]);
519 unw_get_ar(info
, UNW_AR_CSD
, &dst
[55]);
520 unw_get_ar(info
, UNW_AR_SSD
, &dst
[56]);
524 do_dump_task_fpu (struct task_struct
*task
, struct unw_frame_info
*info
, void *arg
)
526 elf_fpreg_t
*dst
= arg
;
529 memset(dst
, 0, sizeof(elf_fpregset_t
)); /* don't leak any "random" bits */
531 if (unw_unwind_to_user(info
) < 0)
534 /* f0 is 0.0, f1 is 1.0 */
536 for (i
= 2; i
< 32; ++i
)
537 unw_get_fr(info
, i
, dst
+ i
);
539 ia64_flush_fph(task
);
540 if ((task
->thread
.flags
& IA64_THREAD_FPH_VALID
) != 0)
541 memcpy(dst
+ 32, task
->thread
.fph
, 96*16);
545 do_copy_regs (struct unw_frame_info
*info
, void *arg
)
547 do_copy_task_regs(current
, info
, arg
);
551 do_dump_fpu (struct unw_frame_info
*info
, void *arg
)
553 do_dump_task_fpu(current
, info
, arg
);
557 ia64_elf_core_copy_regs (struct pt_regs
*pt
, elf_gregset_t dst
)
559 unw_init_running(do_copy_regs
, dst
);
563 dump_fpu (struct pt_regs
*pt
, elf_fpregset_t dst
)
565 unw_init_running(do_dump_fpu
, dst
);
566 return 1; /* f0-f31 are always valid so we always return 1 */
570 * Flush thread state. This is called when a thread does an execve().
575 /* drop floating-point and debug-register state if it exists: */
576 current
->thread
.flags
&= ~(IA64_THREAD_FPH_VALID
| IA64_THREAD_DBG_VALID
);
577 ia64_drop_fpu(current
);
581 * Clean up state associated with current thread. This is called when
582 * the thread calls exit().
588 ia64_drop_fpu(current
);
589 #ifdef CONFIG_PERFMON
590 /* if needed, stop monitoring and flush state to perfmon context */
591 if (current
->thread
.pfm_context
)
592 pfm_exit_thread(current
);
594 /* free debug register resources */
595 if (current
->thread
.flags
& IA64_THREAD_DBG_VALID
)
596 pfm_release_debug_registers(current
);
601 get_wchan (struct task_struct
*p
)
603 struct unw_frame_info info
;
607 if (!p
|| p
== current
|| p
->state
== TASK_RUNNING
)
611 * Note: p may not be a blocked task (it could be current or
612 * another process running on some other CPU. Rather than
613 * trying to determine if p is really blocked, we just assume
614 * it's blocked and rely on the unwind routines to fail
615 * gracefully if the process wasn't really blocked after all.
618 unw_init_from_blocked_task(&info
, p
);
620 if (p
->state
== TASK_RUNNING
)
622 if (unw_unwind(&info
) < 0)
624 unw_get_ip(&info
, &ip
);
625 if (!in_sched_functions(ip
))
627 } while (count
++ < 16);
634 pal_power_mgmt_info_u_t power_info
[8];
635 unsigned long min_power
;
636 int i
, min_power_state
;
638 if (ia64_pal_halt_info(power_info
) != 0)
642 min_power
= power_info
[0].pal_power_mgmt_info_s
.power_consumption
;
643 for (i
= 1; i
< 8; ++i
)
644 if (power_info
[i
].pal_power_mgmt_info_s
.im
645 && power_info
[i
].pal_power_mgmt_info_s
.power_consumption
< min_power
) {
646 min_power
= power_info
[i
].pal_power_mgmt_info_s
.power_consumption
;
651 ia64_pal_halt(min_power_state
);
654 void machine_shutdown(void)
656 #ifdef CONFIG_HOTPLUG_CPU
659 for_each_online_cpu(cpu
) {
660 if (cpu
!= smp_processor_id())
665 kexec_disable_iosapic();
670 machine_restart (char *restart_cmd
)
672 (void) notify_die(DIE_MACHINE_RESTART
, restart_cmd
, NULL
, 0, 0, 0);
673 (*efi
.reset_system
)(EFI_RESET_WARM
, 0, 0, NULL
);
679 (void) notify_die(DIE_MACHINE_HALT
, "", NULL
, 0, 0, 0);
684 machine_power_off (void)