arch/parisc/kernel/process.c

   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>
  12  *    Copyright (C) 2000 Richard Hirst <rhirst with parisc-linux.org>
  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>
  16  *    Copyright (C) 2001-2007 Helge Deller <deller at parisc-linux.org>
  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>
  41 #include <linux/fs.h>
  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>
  49 #include <linux/uaccess.h>
  50
  51 #include <asm/io.h>
  52 #include <asm/asm-offsets.h>
  53 #include <asm/pdc.h>
  54 #include <asm/pdc_chassis.h>
  55 #include <asm/pgalloc.h>
  56 #include <asm/unwind.h>
  57 #include <asm/sections.h>
  58
  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 {
  67         set_thread_flag(TIF_POLLING_NRFLAG);
  68
  69         /* endless idle loop with no priority at all */
  70         while (1) {
  71                 while (!need_resched())
  72                         barrier();
  73                 preempt_enable_no_resched();
  74                 schedule();
  75                 preempt_disable();
  76                 check_pgt_cache();
  77         }
  78 }
  79
  80
  81 #define COMMAND_GLOBAL  F_EXTEND(0xfffe0030)
  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
 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
 136 void (*chassis_power_off)(void);
 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. */
 145         if (chassis_power_off)
 146                 chassis_power_off();
 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
 162 void (*pm_power_off)(void) = machine_power_off;
 163 EXPORT_SYMBOL(pm_power_off);
 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 {
 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. */
 235         int __user *parent_tidptr = (int __user *)regs->gr[24];
 236         int __user *child_tidptr  = (int __user *)regs->gr[22];
 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 */
 244         if (usp == 0)
 245           usp = regs->gr[30];
 246
 247         return do_fork(clone_flags, usp, regs, 0, parent_tidptr, child_tidptr);
 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
 257 copy_thread(unsigned long clone_flags, unsigned long usp,
 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);
 262         void *stack = task_stack_page(p);
 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 */
 289                 cregs->ksp = (unsigned long)stack + THREAD_SZ_ALGN;
 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                  */
 298 #ifdef CONFIG_64BIT
 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 */
 311                 cregs->ksp = (unsigned long)stack
 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                 }
 323                 /* Setup thread TLS area from the 4th parameter in clone */
 324                 if (clone_flags & CLONE_SETTLS)
 325                   cregs->cr27 = pregs->gr[23];
 326
 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;
 350         error = do_execve(filename, (char __user * __user *) regs->gr[25],
 351                 (char __user * __user *) regs->gr[24], regs);
 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
 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
 371 get_wchan(struct task_struct *p)
 372 {
 373         struct unwind_frame_info info;
 374         unsigned long ip;
 375         int count = 0;
 376
 377         if (!p || p == current || p->state == TASK_RUNNING)
 378                 return 0;
 379
 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 }
 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