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