err.no Git - linux-2.6/blob - 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-2002 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/module.h>
  42 #include <linux/personality.h>
  43 #include <linux/ptrace.h>
  44 #include <linux/sched.h>
  45 #include <linux/stddef.h>
  46 #include <linux/unistd.h>
  47 #include <linux/kallsyms.h>
  48
  49 #include <asm/io.h>
  50 #include <asm/asm-offsets.h>
  51 #include <asm/pdc.h>
  52 #include <asm/pdc_chassis.h>
  53 #include <asm/pgalloc.h>
  54 #include <asm/uaccess.h>
  55 #include <asm/unwind.h>
  56
  57 static int hlt_counter __read_mostly;
  58
  59 /*
  60  * Power off function, if any
  61  */
  62 void (*pm_power_off)(void);
  63
  64 void disable_hlt(void)
  65 {
  66         hlt_counter++;
  67 }
  68
  69 EXPORT_SYMBOL(disable_hlt);
  70
  71 void enable_hlt(void)
  72 {
  73         hlt_counter--;
  74 }
  75
  76 EXPORT_SYMBOL(enable_hlt);
  77
  78 void default_idle(void)
  79 {
  80         barrier();
  81 }
  82
  83 /*
  84  * The idle thread. There's no useful work to be
  85  * done, so just try to conserve power and have a
  86  * low exit latency (ie sit in a loop waiting for
  87  * somebody to say that they'd like to reschedule)
  88  */
  89 void cpu_idle(void)
  90 {
  91         set_thread_flag(TIF_POLLING_NRFLAG);
  92
  93         /* endless idle loop with no priority at all */
  94         while (1) {
  95                 while (!need_resched())
  96                         barrier();
  97                 preempt_enable_no_resched();
  98                 schedule();
  99                 preempt_disable();
 100                 check_pgt_cache();
 101         }
 102 }
 103
 104
 105 #define COMMAND_GLOBAL  F_EXTEND(0xfffe0030)
 106 #define CMD_RESET       5       /* reset any module */
 107
 108 /*
 109 ** The Wright Brothers and Gecko systems have a H/W problem
 110 ** (Lasi...'nuf said) may cause a broadcast reset to lockup
 111 ** the system. An HVERSION dependent PDC call was developed
 112 ** to perform a "safe", platform specific broadcast reset instead
 113 ** of kludging up all the code.
 114 **
 115 ** Older machines which do not implement PDC_BROADCAST_RESET will
 116 ** return (with an error) and the regular broadcast reset can be
 117 ** issued. Obviously, if the PDC does implement PDC_BROADCAST_RESET
 118 ** the PDC call will not return (the system will be reset).
 119 */
 120 void machine_restart(char *cmd)
 121 {
 122 #ifdef FASTBOOT_SELFTEST_SUPPORT
 123         /*
 124          ** If user has modified the Firmware Selftest Bitmap,
 125          ** run the tests specified in the bitmap after the
 126          ** system is rebooted w/PDC_DO_RESET.
 127          **
 128          ** ftc_bitmap = 0x1AUL "Skip destructive memory tests"
 129          **
 130          ** Using "directed resets" at each processor with the MEM_TOC
 131          ** vector cleared will also avoid running destructive
 132          ** memory self tests. (Not implemented yet)
 133          */
 134         if (ftc_bitmap) {
 135                 pdc_do_firm_test_reset(ftc_bitmap);
 136         }
 137 #endif
 138         /* set up a new led state on systems shipped with a LED State panel */
 139         pdc_chassis_send_status(PDC_CHASSIS_DIRECT_SHUTDOWN);
 140
 141         /* "Normal" system reset */
 142         pdc_do_reset();
 143
 144         /* Nope...box should reset with just CMD_RESET now */
 145         gsc_writel(CMD_RESET, COMMAND_GLOBAL);
 146
 147         /* Wait for RESET to lay us to rest. */
 148         while (1) ;
 149
 150 }
 151
 152 void machine_halt(void)
 153 {
 154         /*
 155         ** The LED/ChassisCodes are updated by the led_halt()
 156         ** function, called by the reboot notifier chain.
 157         */
 158 }
 159
 160
 161 /*
 162  * This routine is called from sys_reboot to actually turn off the
 163  * machine
 164  */
 165 void machine_power_off(void)
 166 {
 167         /* If there is a registered power off handler, call it. */
 168         if(pm_power_off)
 169                 pm_power_off();
 170
 171         /* Put the soft power button back under hardware control.
 172          * If the user had already pressed the power button, the
 173          * following call will immediately power off. */
 174         pdc_soft_power_button(0);
 175
 176         pdc_chassis_send_status(PDC_CHASSIS_DIRECT_SHUTDOWN);
 177
 178         /* It seems we have no way to power the system off via
 179          * software. The user has to press the button himself. */
 180
 181         printk(KERN_EMERG "System shut down completed.\n"
 182                KERN_EMERG "Please power this system off now.");
 183 }
 184
 185
 186 /*
 187  * Create a kernel thread
 188  */
 189
 190 extern pid_t __kernel_thread(int (*fn)(void *), void *arg, unsigned long flags);
 191 pid_t kernel_thread(int (*fn)(void *), void *arg, unsigned long flags)
 192 {
 193
 194         /*
 195          * FIXME: Once we are sure we don't need any debug here,
 196          *        kernel_thread can become a #define.
 197          */
 198
 199         return __kernel_thread(fn, arg, flags);
 200 }
 201 EXPORT_SYMBOL(kernel_thread);
 202
 203 /*
 204  * Free current thread data structures etc..
 205  */
 206 void exit_thread(void)
 207 {
 208 }
 209
 210 void flush_thread(void)
 211 {
 212         /* Only needs to handle fpu stuff or perf monitors.
 213         ** REVISIT: several arches implement a "lazy fpu state".
 214         */
 215         set_fs(USER_DS);
 216 }
 217
 218 void release_thread(struct task_struct *dead_task)
 219 {
 220 }
 221
 222 /*
 223  * Fill in the FPU structure for a core dump.
 224  */
 225
 226 int dump_fpu (struct pt_regs * regs, elf_fpregset_t *r)
 227 {
 228         if (regs == NULL)
 229                 return 0;
 230
 231         memcpy(r, regs->fr, sizeof *r);
 232         return 1;
 233 }
 234
 235 int dump_task_fpu (struct task_struct *tsk, elf_fpregset_t *r)
 236 {
 237         memcpy(r, tsk->thread.regs.fr, sizeof(*r));
 238         return 1;
 239 }
 240
 241 /* Note that "fork()" is implemented in terms of clone, with
 242    parameters (SIGCHLD, regs->gr[30], regs). */
 243 int
 244 sys_clone(unsigned long clone_flags, unsigned long usp,
 245           struct pt_regs *regs)
 246 {
 247         /* Arugments from userspace are:
 248            r26 = Clone flags.
 249            r25 = Child stack.
 250            r24 = parent_tidptr.
 251            r23 = Is the TLS storage descriptor
 252            r22 = child_tidptr
 253
 254            However, these last 3 args are only examined
 255            if the proper flags are set. */
 256         int __user *child_tidptr;
 257         int __user *parent_tidptr;
 258
 259         /* usp must be word aligned.  This also prevents users from
 260          * passing in the value 1 (which is the signal for a special
 261          * return for a kernel thread) */
 262         usp = ALIGN(usp, 4);
 263
 264         /* A zero value for usp means use the current stack */
 265         if (usp == 0)
 266           usp = regs->gr[30];
 267
 268         if (clone_flags & CLONE_PARENT_SETTID)
 269           parent_tidptr = (int __user *)regs->gr[24];
 270         else
 271           parent_tidptr = NULL;
 272
 273         if (clone_flags & (CLONE_CHILD_SETTID | CLONE_CHILD_CLEARTID))
 274           child_tidptr = (int __user *)regs->gr[22];
 275         else
 276           child_tidptr = NULL;
 277
 278         return do_fork(clone_flags, usp, regs, 0, parent_tidptr, child_tidptr);
 279 }
 280
 281 int
 282 sys_vfork(struct pt_regs *regs)
 283 {
 284         return do_fork(CLONE_VFORK | CLONE_VM | SIGCHLD, regs->gr[30], regs, 0, NULL, NULL);
 285 }
 286
 287 int
 288 copy_thread(int nr, unsigned long clone_flags, unsigned long usp,
 289             unsigned long unused,       /* in ia64 this is "user_stack_size" */
 290             struct task_struct * p, struct pt_regs * pregs)
 291 {
 292         struct pt_regs * cregs = &(p->thread.regs);
 293         void *stack = task_stack_page(p);
 294
 295         /* We have to use void * instead of a function pointer, because
 296          * function pointers aren't a pointer to the function on 64-bit.
 297          * Make them const so the compiler knows they live in .text */
 298         extern void * const ret_from_kernel_thread;
 299         extern void * const child_return;
 300 #ifdef CONFIG_HPUX
 301         extern void * const hpux_child_return;
 302 #endif
 303
 304         *cregs = *pregs;
 305
 306         /* Set the return value for the child.  Note that this is not
 307            actually restored by the syscall exit path, but we put it
 308            here for consistency in case of signals. */
 309         cregs->gr[28] = 0; /* child */
 310
 311         /*
 312          * We need to differentiate between a user fork and a
 313          * kernel fork. We can't use user_mode, because the
 314          * the syscall path doesn't save iaoq. Right now
 315          * We rely on the fact that kernel_thread passes
 316          * in zero for usp.
 317          */
 318         if (usp == 1) {
 319                 /* kernel thread */
 320                 cregs->ksp = (unsigned long)stack + THREAD_SZ_ALGN;
 321                 /* Must exit via ret_from_kernel_thread in order
 322                  * to call schedule_tail()
 323                  */
 324                 cregs->kpc = (unsigned long) &ret_from_kernel_thread;
 325                 /*
 326                  * Copy function and argument to be called from
 327                  * ret_from_kernel_thread.
 328                  */
 329 #ifdef __LP64__
 330                 cregs->gr[27] = pregs->gr[27];
 331 #endif
 332                 cregs->gr[26] = pregs->gr[26];
 333                 cregs->gr[25] = pregs->gr[25];
 334         } else {
 335                 /* user thread */
 336                 /*
 337                  * Note that the fork wrappers are responsible
 338                  * for setting gr[21].
 339                  */
 340
 341                 /* Use same stack depth as parent */
 342                 cregs->ksp = (unsigned long)stack
 343                         + (pregs->gr[21] & (THREAD_SIZE - 1));
 344                 cregs->gr[30] = usp;
 345                 if (p->personality == PER_HPUX) {
 346 #ifdef CONFIG_HPUX
 347                         cregs->kpc = (unsigned long) &hpux_child_return;
 348 #else
 349                         BUG();
 350 #endif
 351                 } else {
 352                         cregs->kpc = (unsigned long) &child_return;
 353                 }
 354                 /* Setup thread TLS area from the 4th parameter in clone */
 355                 if (clone_flags & CLONE_SETTLS)
 356                   cregs->cr27 = pregs->gr[23];
 357
 358         }
 359
 360         return 0;
 361 }
 362
 363 unsigned long thread_saved_pc(struct task_struct *t)
 364 {
 365         return t->thread.regs.kpc;
 366 }
 367
 368 /*
 369  * sys_execve() executes a new program.
 370  */
 371
 372 asmlinkage int sys_execve(struct pt_regs *regs)
 373 {
 374         int error;
 375         char *filename;
 376
 377         filename = getname((const char __user *) regs->gr[26]);
 378         error = PTR_ERR(filename);
 379         if (IS_ERR(filename))
 380                 goto out;
 381         error = do_execve(filename, (char __user **) regs->gr[25],
 382                 (char __user **) regs->gr[24], regs);
 383         if (error == 0) {
 384                 task_lock(current);
 385                 current->ptrace &= ~PT_DTRACE;
 386                 task_unlock(current);
 387         }
 388         putname(filename);
 389 out:
 390
 391         return error;
 392 }
 393
 394 unsigned long
 395 get_wchan(struct task_struct *p)
 396 {
 397         struct unwind_frame_info info;
 398         unsigned long ip;
 399         int count = 0;
 400         /*
 401          * These bracket the sleeping functions..
 402          */
 403
 404         unwind_frame_init_from_blocked_task(&info, p);
 405         do {
 406                 if (unwind_once(&info) < 0)
 407                         return 0;
 408                 ip = info.ip;
 409                 if (!in_sched_functions(ip))
 410                         return ip;
 411         } while (count++ < 16);
 412         return 0;
 413 }