Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 1 | /* |
| 2 | * PARISC Architecture-dependent parts of process handling |
| 3 | * based on the work for i386 |
| 4 | * |
| 5 | * Copyright (C) 1999-2003 Matthew Wilcox <willy at parisc-linux.org> |
| 6 | * Copyright (C) 2000 Martin K Petersen <mkp at mkp.net> |
| 7 | * Copyright (C) 2000 John Marvin <jsm at parisc-linux.org> |
| 8 | * Copyright (C) 2000 David Huggins-Daines <dhd with pobox.org> |
| 9 | * Copyright (C) 2000-2003 Paul Bame <bame at parisc-linux.org> |
| 10 | * Copyright (C) 2000 Philipp Rumpf <prumpf with tux.org> |
| 11 | * Copyright (C) 2000 David Kennedy <dkennedy with linuxcare.com> |
Carlos O'Donell | b2450cc | 2005-10-21 22:53:04 -0400 | [diff] [blame] | 12 | * Copyright (C) 2000 Richard Hirst <rhirst with parisc-linux.org> |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 13 | * Copyright (C) 2000 Grant Grundler <grundler with parisc-linux.org> |
| 14 | * Copyright (C) 2001 Alan Modra <amodra at parisc-linux.org> |
| 15 | * Copyright (C) 2001-2002 Ryan Bradetich <rbrad at parisc-linux.org> |
Helge Deller | a8f44e3 | 2007-01-28 14:58:52 +0100 | [diff] [blame] | 16 | * Copyright (C) 2001-2007 Helge Deller <deller at parisc-linux.org> |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 17 | * Copyright (C) 2002 Randolph Chung <tausq with parisc-linux.org> |
| 18 | * |
| 19 | * |
| 20 | * This program is free software; you can redistribute it and/or modify |
| 21 | * it under the terms of the GNU General Public License as published by |
| 22 | * the Free Software Foundation; either version 2 of the License, or |
| 23 | * (at your option) any later version. |
| 24 | * |
| 25 | * This program is distributed in the hope that it will be useful, |
| 26 | * but WITHOUT ANY WARRANTY; without even the implied warranty of |
| 27 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| 28 | * GNU General Public License for more details. |
| 29 | * |
| 30 | * You should have received a copy of the GNU General Public License |
| 31 | * along with this program; if not, write to the Free Software |
| 32 | * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
| 33 | */ |
| 34 | |
| 35 | #include <stdarg.h> |
| 36 | |
| 37 | #include <linux/elf.h> |
| 38 | #include <linux/errno.h> |
| 39 | #include <linux/kernel.h> |
| 40 | #include <linux/mm.h> |
Alexey Dobriyan | 4e950f6 | 2007-07-30 02:36:13 +0400 | [diff] [blame] | 41 | #include <linux/fs.h> |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 42 | #include <linux/module.h> |
| 43 | #include <linux/personality.h> |
| 44 | #include <linux/ptrace.h> |
| 45 | #include <linux/sched.h> |
| 46 | #include <linux/stddef.h> |
| 47 | #include <linux/unistd.h> |
| 48 | #include <linux/kallsyms.h> |
Kyle McMartin | b609308 | 2009-03-15 16:49:55 -0400 | [diff] [blame] | 49 | #include <linux/uaccess.h> |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 50 | |
| 51 | #include <asm/io.h> |
Sam Ravnborg | 0013a85 | 2005-09-09 20:57:26 +0200 | [diff] [blame] | 52 | #include <asm/asm-offsets.h> |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 53 | #include <asm/pdc.h> |
| 54 | #include <asm/pdc_chassis.h> |
| 55 | #include <asm/pgalloc.h> |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 56 | #include <asm/unwind.h> |
Kyle McMartin | b609308 | 2009-03-15 16:49:55 -0400 | [diff] [blame] | 57 | #include <asm/sections.h> |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 58 | |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 59 | /* |
| 60 | * The idle thread. There's no useful work to be |
| 61 | * done, so just try to conserve power and have a |
| 62 | * low exit latency (ie sit in a loop waiting for |
| 63 | * somebody to say that they'd like to reschedule) |
| 64 | */ |
| 65 | void cpu_idle(void) |
| 66 | { |
Nick Piggin | 64c7c8f | 2005-11-08 21:39:04 -0800 | [diff] [blame] | 67 | set_thread_flag(TIF_POLLING_NRFLAG); |
| 68 | |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 69 | /* endless idle loop with no priority at all */ |
| 70 | while (1) { |
| 71 | while (!need_resched()) |
| 72 | barrier(); |
Nick Piggin | 5bfb5d6 | 2005-11-08 21:39:01 -0800 | [diff] [blame] | 73 | preempt_enable_no_resched(); |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 74 | schedule(); |
Nick Piggin | 5bfb5d6 | 2005-11-08 21:39:01 -0800 | [diff] [blame] | 75 | preempt_disable(); |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 76 | check_pgt_cache(); |
| 77 | } |
| 78 | } |
| 79 | |
| 80 | |
Kyle McMartin | 1099209 | 2006-01-13 22:05:21 -0700 | [diff] [blame] | 81 | #define COMMAND_GLOBAL F_EXTEND(0xfffe0030) |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 82 | #define CMD_RESET 5 /* reset any module */ |
| 83 | |
| 84 | /* |
| 85 | ** The Wright Brothers and Gecko systems have a H/W problem |
| 86 | ** (Lasi...'nuf said) may cause a broadcast reset to lockup |
| 87 | ** the system. An HVERSION dependent PDC call was developed |
| 88 | ** to perform a "safe", platform specific broadcast reset instead |
| 89 | ** of kludging up all the code. |
| 90 | ** |
| 91 | ** Older machines which do not implement PDC_BROADCAST_RESET will |
| 92 | ** return (with an error) and the regular broadcast reset can be |
| 93 | ** issued. Obviously, if the PDC does implement PDC_BROADCAST_RESET |
| 94 | ** the PDC call will not return (the system will be reset). |
| 95 | */ |
| 96 | void machine_restart(char *cmd) |
| 97 | { |
| 98 | #ifdef FASTBOOT_SELFTEST_SUPPORT |
| 99 | /* |
| 100 | ** If user has modified the Firmware Selftest Bitmap, |
| 101 | ** run the tests specified in the bitmap after the |
| 102 | ** system is rebooted w/PDC_DO_RESET. |
| 103 | ** |
| 104 | ** ftc_bitmap = 0x1AUL "Skip destructive memory tests" |
| 105 | ** |
| 106 | ** Using "directed resets" at each processor with the MEM_TOC |
| 107 | ** vector cleared will also avoid running destructive |
| 108 | ** memory self tests. (Not implemented yet) |
| 109 | */ |
| 110 | if (ftc_bitmap) { |
| 111 | pdc_do_firm_test_reset(ftc_bitmap); |
| 112 | } |
| 113 | #endif |
| 114 | /* set up a new led state on systems shipped with a LED State panel */ |
| 115 | pdc_chassis_send_status(PDC_CHASSIS_DIRECT_SHUTDOWN); |
| 116 | |
| 117 | /* "Normal" system reset */ |
| 118 | pdc_do_reset(); |
| 119 | |
| 120 | /* Nope...box should reset with just CMD_RESET now */ |
| 121 | gsc_writel(CMD_RESET, COMMAND_GLOBAL); |
| 122 | |
| 123 | /* Wait for RESET to lay us to rest. */ |
| 124 | while (1) ; |
| 125 | |
| 126 | } |
| 127 | |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 128 | void machine_halt(void) |
| 129 | { |
| 130 | /* |
| 131 | ** The LED/ChassisCodes are updated by the led_halt() |
| 132 | ** function, called by the reboot notifier chain. |
| 133 | */ |
| 134 | } |
| 135 | |
Kyle McMartin | 85509c0 | 2006-01-17 22:33:32 -0700 | [diff] [blame] | 136 | void (*chassis_power_off)(void); |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 137 | |
| 138 | /* |
| 139 | * This routine is called from sys_reboot to actually turn off the |
| 140 | * machine |
| 141 | */ |
| 142 | void machine_power_off(void) |
| 143 | { |
| 144 | /* If there is a registered power off handler, call it. */ |
Kyle McMartin | 85509c0 | 2006-01-17 22:33:32 -0700 | [diff] [blame] | 145 | if (chassis_power_off) |
| 146 | chassis_power_off(); |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 147 | |
| 148 | /* Put the soft power button back under hardware control. |
| 149 | * If the user had already pressed the power button, the |
| 150 | * following call will immediately power off. */ |
| 151 | pdc_soft_power_button(0); |
| 152 | |
| 153 | pdc_chassis_send_status(PDC_CHASSIS_DIRECT_SHUTDOWN); |
| 154 | |
| 155 | /* It seems we have no way to power the system off via |
| 156 | * software. The user has to press the button himself. */ |
| 157 | |
| 158 | printk(KERN_EMERG "System shut down completed.\n" |
| 159 | KERN_EMERG "Please power this system off now."); |
| 160 | } |
| 161 | |
Kyle McMartin | 85509c0 | 2006-01-17 22:33:32 -0700 | [diff] [blame] | 162 | void (*pm_power_off)(void) = machine_power_off; |
| 163 | EXPORT_SYMBOL(pm_power_off); |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 164 | |
| 165 | /* |
| 166 | * Create a kernel thread |
| 167 | */ |
| 168 | |
| 169 | extern pid_t __kernel_thread(int (*fn)(void *), void *arg, unsigned long flags); |
| 170 | pid_t kernel_thread(int (*fn)(void *), void *arg, unsigned long flags) |
| 171 | { |
| 172 | |
| 173 | /* |
| 174 | * FIXME: Once we are sure we don't need any debug here, |
| 175 | * kernel_thread can become a #define. |
| 176 | */ |
| 177 | |
| 178 | return __kernel_thread(fn, arg, flags); |
| 179 | } |
| 180 | EXPORT_SYMBOL(kernel_thread); |
| 181 | |
| 182 | /* |
| 183 | * Free current thread data structures etc.. |
| 184 | */ |
| 185 | void exit_thread(void) |
| 186 | { |
| 187 | } |
| 188 | |
| 189 | void flush_thread(void) |
| 190 | { |
| 191 | /* Only needs to handle fpu stuff or perf monitors. |
| 192 | ** REVISIT: several arches implement a "lazy fpu state". |
| 193 | */ |
| 194 | set_fs(USER_DS); |
| 195 | } |
| 196 | |
| 197 | void release_thread(struct task_struct *dead_task) |
| 198 | { |
| 199 | } |
| 200 | |
| 201 | /* |
| 202 | * Fill in the FPU structure for a core dump. |
| 203 | */ |
| 204 | |
| 205 | int dump_fpu (struct pt_regs * regs, elf_fpregset_t *r) |
| 206 | { |
| 207 | if (regs == NULL) |
| 208 | return 0; |
| 209 | |
| 210 | memcpy(r, regs->fr, sizeof *r); |
| 211 | return 1; |
| 212 | } |
| 213 | |
| 214 | int dump_task_fpu (struct task_struct *tsk, elf_fpregset_t *r) |
| 215 | { |
| 216 | memcpy(r, tsk->thread.regs.fr, sizeof(*r)); |
| 217 | return 1; |
| 218 | } |
| 219 | |
| 220 | /* Note that "fork()" is implemented in terms of clone, with |
| 221 | parameters (SIGCHLD, regs->gr[30], regs). */ |
| 222 | int |
| 223 | sys_clone(unsigned long clone_flags, unsigned long usp, |
| 224 | struct pt_regs *regs) |
| 225 | { |
Carlos O'Donell | b2450cc | 2005-10-21 22:53:04 -0400 | [diff] [blame] | 226 | /* Arugments from userspace are: |
| 227 | r26 = Clone flags. |
| 228 | r25 = Child stack. |
| 229 | r24 = parent_tidptr. |
| 230 | r23 = Is the TLS storage descriptor |
| 231 | r22 = child_tidptr |
| 232 | |
| 233 | However, these last 3 args are only examined |
| 234 | if the proper flags are set. */ |
Helge Deller | 803094f | 2009-02-13 23:58:29 +0100 | [diff] [blame] | 235 | int __user *parent_tidptr = (int __user *)regs->gr[24]; |
| 236 | int __user *child_tidptr = (int __user *)regs->gr[22]; |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 237 | |
| 238 | /* usp must be word aligned. This also prevents users from |
| 239 | * passing in the value 1 (which is the signal for a special |
| 240 | * return for a kernel thread) */ |
| 241 | usp = ALIGN(usp, 4); |
| 242 | |
| 243 | /* A zero value for usp means use the current stack */ |
Carlos O'Donell | b2450cc | 2005-10-21 22:53:04 -0400 | [diff] [blame] | 244 | if (usp == 0) |
| 245 | usp = regs->gr[30]; |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 246 | |
Carlos O'Donell | b2450cc | 2005-10-21 22:53:04 -0400 | [diff] [blame] | 247 | return do_fork(clone_flags, usp, regs, 0, parent_tidptr, child_tidptr); |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 248 | } |
| 249 | |
| 250 | int |
| 251 | sys_vfork(struct pt_regs *regs) |
| 252 | { |
| 253 | return do_fork(CLONE_VFORK | CLONE_VM | SIGCHLD, regs->gr[30], regs, 0, NULL, NULL); |
| 254 | } |
| 255 | |
| 256 | int |
Alexey Dobriyan | 6f2c55b | 2009-04-02 16:56:59 -0700 | [diff] [blame] | 257 | copy_thread(unsigned long clone_flags, unsigned long usp, |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 258 | unsigned long unused, /* in ia64 this is "user_stack_size" */ |
| 259 | struct task_struct * p, struct pt_regs * pregs) |
| 260 | { |
| 261 | struct pt_regs * cregs = &(p->thread.regs); |
Al Viro | 40f1f0d | 2006-01-12 01:05:55 -0800 | [diff] [blame] | 262 | void *stack = task_stack_page(p); |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 263 | |
| 264 | /* We have to use void * instead of a function pointer, because |
| 265 | * function pointers aren't a pointer to the function on 64-bit. |
| 266 | * Make them const so the compiler knows they live in .text */ |
| 267 | extern void * const ret_from_kernel_thread; |
| 268 | extern void * const child_return; |
| 269 | #ifdef CONFIG_HPUX |
| 270 | extern void * const hpux_child_return; |
| 271 | #endif |
| 272 | |
| 273 | *cregs = *pregs; |
| 274 | |
| 275 | /* Set the return value for the child. Note that this is not |
| 276 | actually restored by the syscall exit path, but we put it |
| 277 | here for consistency in case of signals. */ |
| 278 | cregs->gr[28] = 0; /* child */ |
| 279 | |
| 280 | /* |
| 281 | * We need to differentiate between a user fork and a |
| 282 | * kernel fork. We can't use user_mode, because the |
| 283 | * the syscall path doesn't save iaoq. Right now |
| 284 | * We rely on the fact that kernel_thread passes |
| 285 | * in zero for usp. |
| 286 | */ |
| 287 | if (usp == 1) { |
| 288 | /* kernel thread */ |
Al Viro | 40f1f0d | 2006-01-12 01:05:55 -0800 | [diff] [blame] | 289 | cregs->ksp = (unsigned long)stack + THREAD_SZ_ALGN; |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 290 | /* Must exit via ret_from_kernel_thread in order |
| 291 | * to call schedule_tail() |
| 292 | */ |
| 293 | cregs->kpc = (unsigned long) &ret_from_kernel_thread; |
| 294 | /* |
| 295 | * Copy function and argument to be called from |
| 296 | * ret_from_kernel_thread. |
| 297 | */ |
Helge Deller | a8f44e3 | 2007-01-28 14:58:52 +0100 | [diff] [blame] | 298 | #ifdef CONFIG_64BIT |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 299 | cregs->gr[27] = pregs->gr[27]; |
| 300 | #endif |
| 301 | cregs->gr[26] = pregs->gr[26]; |
| 302 | cregs->gr[25] = pregs->gr[25]; |
| 303 | } else { |
| 304 | /* user thread */ |
| 305 | /* |
| 306 | * Note that the fork wrappers are responsible |
| 307 | * for setting gr[21]. |
| 308 | */ |
| 309 | |
| 310 | /* Use same stack depth as parent */ |
Al Viro | 40f1f0d | 2006-01-12 01:05:55 -0800 | [diff] [blame] | 311 | cregs->ksp = (unsigned long)stack |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 312 | + (pregs->gr[21] & (THREAD_SIZE - 1)); |
| 313 | cregs->gr[30] = usp; |
| 314 | if (p->personality == PER_HPUX) { |
| 315 | #ifdef CONFIG_HPUX |
| 316 | cregs->kpc = (unsigned long) &hpux_child_return; |
| 317 | #else |
| 318 | BUG(); |
| 319 | #endif |
| 320 | } else { |
| 321 | cregs->kpc = (unsigned long) &child_return; |
| 322 | } |
Carlos O'Donell | b2450cc | 2005-10-21 22:53:04 -0400 | [diff] [blame] | 323 | /* Setup thread TLS area from the 4th parameter in clone */ |
| 324 | if (clone_flags & CLONE_SETTLS) |
| 325 | cregs->cr27 = pregs->gr[23]; |
| 326 | |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 327 | } |
| 328 | |
| 329 | return 0; |
| 330 | } |
| 331 | |
| 332 | unsigned long thread_saved_pc(struct task_struct *t) |
| 333 | { |
| 334 | return t->thread.regs.kpc; |
| 335 | } |
| 336 | |
| 337 | /* |
| 338 | * sys_execve() executes a new program. |
| 339 | */ |
| 340 | |
| 341 | asmlinkage int sys_execve(struct pt_regs *regs) |
| 342 | { |
| 343 | int error; |
| 344 | char *filename; |
| 345 | |
| 346 | filename = getname((const char __user *) regs->gr[26]); |
| 347 | error = PTR_ERR(filename); |
| 348 | if (IS_ERR(filename)) |
| 349 | goto out; |
Matthew Wilcox | c2c4798 | 2006-10-26 10:06:07 -0600 | [diff] [blame] | 350 | error = do_execve(filename, (char __user * __user *) regs->gr[25], |
| 351 | (char __user * __user *) regs->gr[24], regs); |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 352 | if (error == 0) { |
| 353 | task_lock(current); |
| 354 | current->ptrace &= ~PT_DTRACE; |
| 355 | task_unlock(current); |
| 356 | } |
| 357 | putname(filename); |
| 358 | out: |
| 359 | |
| 360 | return error; |
| 361 | } |
| 362 | |
Arnd Bergmann | 3db03b4 | 2006-10-02 02:18:31 -0700 | [diff] [blame] | 363 | extern int __execve(const char *filename, char *const argv[], |
| 364 | char *const envp[], struct task_struct *task); |
| 365 | int kernel_execve(const char *filename, char *const argv[], char *const envp[]) |
| 366 | { |
| 367 | return __execve(filename, argv, envp, current); |
| 368 | } |
| 369 | |
| 370 | unsigned long |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 371 | get_wchan(struct task_struct *p) |
| 372 | { |
| 373 | struct unwind_frame_info info; |
| 374 | unsigned long ip; |
| 375 | int count = 0; |
Kyle McMartin | cc650a7 | 2007-05-30 02:36:00 -0400 | [diff] [blame] | 376 | |
| 377 | if (!p || p == current || p->state == TASK_RUNNING) |
| 378 | return 0; |
| 379 | |
Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 380 | /* |
| 381 | * These bracket the sleeping functions.. |
| 382 | */ |
| 383 | |
| 384 | unwind_frame_init_from_blocked_task(&info, p); |
| 385 | do { |
| 386 | if (unwind_once(&info) < 0) |
| 387 | return 0; |
| 388 | ip = info.ip; |
| 389 | if (!in_sched_functions(ip)) |
| 390 | return ip; |
| 391 | } while (count++ < 16); |
| 392 | return 0; |
| 393 | } |
Kyle McMartin | b609308 | 2009-03-15 16:49:55 -0400 | [diff] [blame] | 394 | |
| 395 | #ifdef CONFIG_64BIT |
| 396 | void *dereference_function_descriptor(void *ptr) |
| 397 | { |
| 398 | Elf64_Fdesc *desc = ptr; |
| 399 | void *p; |
| 400 | |
| 401 | if (!probe_kernel_address(&desc->addr, p)) |
| 402 | ptr = p; |
| 403 | return ptr; |
| 404 | } |
| 405 | #endif |