arch/ppc-all/prep/kernel/kernel_init.c

   1 /*
   2     Copyright C 2003, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: kernel.resource startup file
   6     Lang: English
   7 */
   8
   9 #include <exec/types.h>
  10 #include <exec/resident.h>
  11 #include <exec/execbase.h>
  12 #include <exec/memory.h>
  13
  14 #include <asm/macros.h>
  15 #include <aros/libcall.h>
  16 #include <aros/asmcall.h>
  17
  18 #include <proto/exec.h>
  19 #include <proto/kernel.h>
  20
  21 #include "kernel.h"
  22 #include "libdefs.h"
  23
  24 static const char Kernel_VersionID[] = VERSION_STRING;
  25 static const char Kernel_Name[] = NAME_STRING;
  26
  27 struct KernelBase * Kernel_init();
  28
  29 #ifndef __ROM__
  30 static LONG __no_exec()
  31 {
  32     return(-1);
  33 }
  34 #endif
  35
  36 struct Resident Kernel_Resident SECTION_CODE = {
  37     RTC_MATCHWORD,
  38     &Kernel_Resident,
  39     &Kernel_end,
  40     0,
  41     VERSION_NUMBER,
  42     NT_RESOURCE,
  43     125,
  44     Kernel_Name,
  45     Kernel_VersionID,
  46     Kernel_init
  47 };
  48
  49 #ifdef SysBase
  50 #undef SysBase
  51 #endif
  52
  53 AROS_UFH3(struct KernelBase *, Kernel_init,
  54     AROS_UFHA(ULONG, dummy, D0),
  55     AROS_UFHA(ULONG, slist, A0),
  56     AROS_UFHA(struct ExecBase *, SysBase, A6))
  57 {
  58     AROS_USERFUNC_INIT
  59
  60     struct KernelBase *KernelBase = NULL;
  61     UWORD neg = AROS_ALIGN(LIB_VECTSIZE * VECTOR_COUNT);
  62
  63     KernelBase = (struct KernelBase *)
  64         ((ULONG)AllocMem(neg + sizeof(struct KernelBase),
  65             MEMF_CLEAR | MEMF_PUBLIC) + neg);
  66
  67     if (KernelBase)
  68     {
  69         KernelBase->sysBase = SysBase;
  70         KernelBase->node.ln_Pri = Kernel_Resident.rt_Pri;
  71         KernelBase->node.ln_Name = Kernel_Resident.rt_Name;
  72         KernelBase->node.ln_Type = NT_RESOURCE;
  73
  74         MakeFunctions(KernelBase, (APTR)LIBFUNCTABLE, NULL);
  75         AddResource(KernelBase);
  76     }
  77
  78     return(KernelBase);
  79
  80     AROS_USERFUNC_EXIT
  81 }
  82