Quellcode-Bibliothek process.c   Sprache: C

/*
 * Architecture-dependent parts of process handling.
 *
 * Copyright (C) 2013 Altera Corporation
 * Copyright (C) 2010 Tobias Klauser <tklauser@distanz.ch>
 * Copyright (C) 2009 Wind River Systems Inc
 *   Implemented by fredrik.markstrom@gmail.com and ivarholmqvist@gmail.com
 * Copyright (C) 2004 Microtronix Datacom Ltd
 *
 * This file is subject to the terms and conditions of the GNU General Public
 * License.  See the file "COPYING" in the main directory of this archive
 * for more details.
 */

#include <linux/export.h>
#include <linux/sched.h>
#include <linux/sched/debug.h>
#include <linux/sched/task.h>
#include <linux/sched/task_stack.h>
#include <linux/mm_types.h>
#include <linux/tick.h>
#include <linux/uaccess.h>

#include <asm/unistd.h>
#include <asm/traps.h>
#include <asm/cpuinfo.h>

asmlinkage void ret_from_fork(void);
asmlinkage void ret_from_kernel_thread(void);

void (*pm_power_off)(void) = NULL;
EXPORT_SYMBOL(pm_power_off);

void arch_cpu_idle(void)
{
}

/*
 * The development boards have no way to pull a board reset. Just jump to the
 * cpu reset address and let the boot loader or the code in head.S take care of
 * resetting peripherals.
 */
void machine_restart(char *__unused)
{
 pr_notice("Machine restart (%08x)...\n", cpuinfo.reset_addr);
 local_irq_disable();
 __asm__ __volatile__ (
 "jmp %0\n\t"
 :
 : "r" (cpuinfo.reset_addr)
 : "r4");
}

void machine_halt(void)
{
 pr_notice("Machine halt...\n");
 local_irq_disable();
 for (;;)
  ;
}

/*
 * There is no way to power off the development boards. So just spin for now. If
 * we ever have a way of resetting a board using a GPIO we should add that here.
 */
void machine_power_off(void)
{
 pr_notice("Machine power off...\n");
 local_irq_disable();
 for (;;)
  ;
}

void show_regs(struct pt_regs *regs)
{
 pr_notice("\n");
 show_regs_print_info(KERN_DEFAULT);

 pr_notice("r1: %08lx r2: %08lx r3: %08lx r4: %08lx\n",
  regs->r1,  regs->r2,  regs->r3,  regs->r4);

 pr_notice("r5: %08lx r6: %08lx r7: %08lx r8: %08lx\n",
  regs->r5,  regs->r6,  regs->r7,  regs->r8);

 pr_notice("r9: %08lx r10: %08lx r11: %08lx r12: %08lx\n",
  regs->r9,  regs->r10, regs->r11, regs->r12);

 pr_notice("r13: %08lx r14: %08lx r15: %08lx\n",
  regs->r13, regs->r14, regs->r15);

 pr_notice("ra: %08lx fp: %08lx sp: %08lx gp: %08lx\n",
  regs->ra,  regs->fp,  regs->sp,  regs->gp);

 pr_notice("ea: %08lx estatus: %08lx\n",
  regs->ea,  regs->estatus);
}

void flush_thread(void)
{
}

int copy_thread(struct task_struct *p, const struct kernel_clone_args *args)
{
 u64 clone_flags = args->flags;
 unsigned long usp = args->stack;
 unsigned long tls = args->tls;
 struct pt_regs *childregs = task_pt_regs(p);
 struct pt_regs *regs;
 struct switch_stack *stack;
 struct switch_stack *childstack =
  ((struct switch_stack *)childregs) - 1;

 if (unlikely(args->fn)) {
  memset(childstack, 0,
   sizeof(struct switch_stack) + sizeof(struct pt_regs));

  childstack->r16 = (unsigned long) args->fn;
  childstack->r17 = (unsigned long) args->fn_arg;
  childstack->ra = (unsigned long) ret_from_kernel_thread;
  childregs->estatus = STATUS_PIE;
  childregs->sp = (unsigned long) childstack;

  p->thread.ksp = (unsigned long) childstack;
  p->thread.kregs = childregs;
  return 0;
 }

 regs = current_pt_regs();
 *childregs = *regs;
 childregs->r2 = 0; /* Set the return value for the child. */
 childregs->r7 = 0;

 stack = ((struct switch_stack *) regs) - 1;
 *childstack = *stack;
 childstack->ra = (unsigned long)ret_from_fork;
 p->thread.kregs = childregs;
 p->thread.ksp = (unsigned long) childstack;

 if (usp)
  childregs->sp = usp;

 /* Initialize tls register. */
 if (clone_flags & CLONE_SETTLS)
  childstack->r23 = tls;

 return 0;
}

/*
 * Generic dumping code. Used for panic and debug.
 */
void dump(struct pt_regs *fp)
{
 unsigned long *sp;
 unsigned char *tp;
 int  i;

 pr_emerg("\nCURRENT PROCESS:\n\n");
 pr_emerg("COMM=%s PID=%d\n", current->comm, current->pid);

 if (current->mm) {
  pr_emerg("TEXT=%08x-%08x DATA=%08x-%08x BSS=%08x-%08x\n",
   (int) current->mm->start_code,
   (int) current->mm->end_code,
   (int) current->mm->start_data,
   (int) current->mm->end_data,
   (int) current->mm->end_data,
   (int) current->mm->brk);
  pr_emerg("USER-STACK=%08x KERNEL-STACK=%08x\n\n",
   (int) current->mm->start_stack,
   (int)(((unsigned long) current) + THREAD_SIZE));
 }

 pr_emerg("PC: %08lx\n", fp->ea);
 pr_emerg("SR: %08lx SP: %08lx\n",
  (long) fp->estatus, (long) fp);

 pr_emerg("r1: %08lx r2: %08lx r3: %08lx\n",
  fp->r1, fp->r2, fp->r3);

 pr_emerg("r4: %08lx r5: %08lx r6: %08lx r7: %08lx\n",
  fp->r4, fp->r5, fp->r6, fp->r7);
 pr_emerg("r8: %08lx r9: %08lx r10: %08lx r11: %08lx\n",
  fp->r8, fp->r9, fp->r10, fp->r11);
 pr_emerg("r12: %08lx r13: %08lx r14: %08lx r15: %08lx\n",
  fp->r12, fp->r13, fp->r14, fp->r15);
 pr_emerg("or2: %08lx ra: %08lx fp: %08lx sp: %08lx\n",
  fp->orig_r2, fp->ra, fp->fp, fp->sp);
 pr_emerg("\nUSP: %08x TRAPFRAME: %08x\n",
  (unsigned int) fp->sp, (unsigned int) fp);

 pr_emerg("\nCODE:");
 tp = ((unsigned char *) fp->ea) - 0x20;
 for (sp = (unsigned long *) tp, i = 0; (i < 0x40);  i += 4) {
  if ((i % 0x10) == 0)
   pr_emerg("\n%08x: ", (int) (tp + i));
  pr_emerg("%08x ", (int) *sp++);
 }
 pr_emerg("\n");

 pr_emerg("\nKERNEL STACK:");
 tp = ((unsigned char *) fp) - 0x40;
 for (sp = (unsigned long *) tp, i = 0; (i < 0xc0); i += 4) {
  if ((i % 0x10) == 0)
   pr_emerg("\n%08x: ", (int) (tp + i));
  pr_emerg("%08x ", (int) *sp++);
 }
 pr_emerg("\n");
 pr_emerg("\n");

 pr_emerg("\nUSER STACK:");
 tp = (unsigned char *) (fp->sp - 0x10);
 for (sp = (unsigned long *) tp, i = 0; (i < 0x80); i += 4) {
  if ((i % 0x10) == 0)
   pr_emerg("\n%08x: ", (int) (tp + i));
  pr_emerg("%08x ", (int) *sp++);
 }
 pr_emerg("\n\n");
}

unsigned long __get_wchan(struct task_struct *p)
{
 unsigned long fp, pc;
 unsigned long stack_page;
 int count = 0;

 stack_page = (unsigned long)p;
 fp = ((struct switch_stack *)p->thread.ksp)->fp; /* ;dgt2 */
 do {
  if (fp < stack_page+sizeof(struct task_struct) ||
   fp >= 8184+stack_page) /* ;dgt2;tmp */
   return 0;
  pc = ((unsigned long *)fp)[1];
  if (!in_sched_functions(pc))
   return pc;
  fp = *(unsigned long *) fp;
 } while (count++ < 16);  /* ;dgt2;tmp */
 return 0;
}

/*
 * Do necessary setup to start up a newly executed thread.
 * Will startup in user mode (status_extension = 0).
 */
void start_thread(struct pt_regs *regs, unsigned long pc, unsigned long sp)
{
 memset((void *) regs, 0, sizeof(struct pt_regs));
 regs->estatus = ESTATUS_EPIE | ESTATUS_EU;
 regs->ea = pc;
 regs->sp = sp;
}

asmlinkage int nios2_clone(unsigned long clone_flags, unsigned long newsp,
      int __user *parent_tidptr, int __user *child_tidptr,
      unsigned long tls)
{
 struct kernel_clone_args args = {
  .flags  = (lower_32_bits(clone_flags) & ~CSIGNAL),
  .pidfd  = parent_tidptr,
  .child_tid = child_tidptr,
  .parent_tid = parent_tidptr,
  .exit_signal = (lower_32_bits(clone_flags) & CSIGNAL),
  .stack  = newsp,
  .tls  = tls,
 };

 return kernel_clone(&args);
}