rom/exec/prepareexecbase.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Sets up the ExecBase a bit. (Mostly clearing).
   6     Lang:
   7 */
   8
   9
  10 #include <exec/types.h>
  11 #include <exec/lists.h>
  12 #include <exec/memory.h>
  13 #include <exec/memheaderext.h>
  14 #include <exec/resident.h>
  15 #include <exec/execbase.h>
  16 #include <exec/libraries.h>
  17 #include <aros/arossupportbase.h>
  18 #include <aros/asmcall.h>
  19 #include <string.h>
  20
  21 #include <proto/exec.h>
  22
  23 #include LC_LIBDEFS_FILE
  24 #include "memory.h"
  25 #include "exec_intern.h"
  26
  27 #undef kprintf /* This can't be used in the code here */
  28
  29 extern void *LIBFUNCTABLE[];
  30
  31 extern struct Library * PrepareAROSSupportBase (struct ExecBase *);
  32 extern struct Resident Exec_resident; /* Need this for lib_IdString */
  33 extern void AROS_SLIB_ENTRY(CacheClearU,Exec)();
  34 AROS_UFP1(void, Exec_TrapHandler,
  35           AROS_UFPA(struct ExecBase *, SysBase, A6)
  36 );
  37 AROS_UFP1(void, Exec_TaskFinaliser,
  38           AROS_UFPA(struct ExecBase *, SysBase, A6)
  39 );
  40
  41 extern void AROS_SLIB_ENTRY(TrapHandler,Exec)();
  42 extern void AROS_SLIB_ENTRY(TaskFinaliser,Exec)();
  43
  44 static APTR allocmem(struct MemHeader *mh, ULONG size)
  45 {
  46     UBYTE *ret = NULL;
  47
  48     if (mh->mh_Attributes & MEMF_MANAGED)
  49     {
  50         struct MemHeaderExt *mhe = (struct MemHeaderExt *)mh;
  51         if (mhe->mhe_Alloc)
  52             ret = mhe->mhe_Alloc(mhe, size, NULL);
  53     }
  54     else
  55     {
  56         size = (size + MEMCHUNK_TOTAL-1) & ~(MEMCHUNK_TOTAL-1);
  57         ret  = (UBYTE *)mh->mh_First;
  58
  59         mh->mh_First          = (struct MemChunk *)(ret + size);
  60         mh->mh_First->mc_Next = NULL;
  61         mh->mh_Free           = mh->mh_First->mc_Bytes
  62                               = ((struct MemChunk *)ret)->mc_Bytes - size;
  63     }
  64
  65     return ret;
  66 }
  67
  68 /*
  69     PrepareExecBase() will initialize the ExecBase to default values,
  70     and not add anything yet (except for the MemHeader).
  71 */
  72 extern void *stderr;
  73
  74 struct ExecBase *PrepareExecBase(struct MemHeader *mh)
  75 {
  76     ULONG   negsize = 0, i;
  77     VOID  **fp      = LIBFUNCTABLE;
  78
  79     /*
  80        Basically this does not get anything useful, but I still need to have
  81        SysBase defined here...
  82     */
  83     AROS_GET_SYSBASE
  84
  85     /* Calculate the size of the vector table */
  86     while (*fp++ != (VOID *) -1) negsize += LIB_VECTSIZE;
  87
  88     /* Align library base */
  89     negsize = AROS_ALIGN(negsize);
  90
  91     /* Allocate memory for library base */
  92     SysBase = (struct ExecBase *)
  93             ((UBYTE *)allocmem(mh, negsize + sizeof(struct ExecBase)) + negsize);
  94
  95     /* Clear the library base */
  96     memset(SysBase, 0, sizeof(struct ExecBase));
  97
  98     /* Setup function vectors */
  99     i  = 1;
 100     fp = LIBFUNCTABLE;
 101
 102     while(*fp != (VOID *) -1)
 103     {
 104         /* Decrement vector pointer by one and install vector */
 105         __AROS_INITVEC(SysBase, i);
 106         if (*fp != NULL) __AROS_SETVECADDR(SysBase, i, *fp);
 107
 108         /* Use next array entry */
 109         fp++; i++;
 110     }
 111
 112
 113     AROS_LC0(void, CacheClearU,
 114         struct ExecBase *, SysBase, 106, Exec);
 115
 116     SysBase->LibNode.lib_Node.ln_Type = NT_LIBRARY;
 117     SysBase->LibNode.lib_Node.ln_Pri  = -100;
 118     SysBase->LibNode.lib_Node.ln_Name = "exec.library";
 119     SysBase->LibNode.lib_IdString     = Exec_resident.rt_IdString;
 120     SysBase->LibNode.lib_Version      = VERSION_NUMBER;
 121     SysBase->LibNode.lib_Revision     = REVISION_NUMBER;
 122     SysBase->LibNode.lib_OpenCnt      = 1;
 123     SysBase->LibNode.lib_NegSize      = negsize;
 124     SysBase->LibNode.lib_PosSize      = sizeof(struct ExecBase);
 125     SysBase->LibNode.lib_Flags        = 0;
 126
 127     NEWLIST(&SysBase->MemList);
 128     SysBase->MemList.lh_Type = NT_MEMORY;
 129     ADDHEAD(&SysBase->MemList, &mh->mh_Node);
 130
 131     NEWLIST(&SysBase->ResourceList);
 132     SysBase->ResourceList.lh_Type = NT_RESOURCE;
 133
 134     NEWLIST(&SysBase->DeviceList);
 135     SysBase->DeviceList.lh_Type = NT_DEVICE;
 136
 137     NEWLIST(&SysBase->IntrList);
 138     SysBase->IntrList.lh_Type = NT_INTERRUPT;
 139
 140     NEWLIST(&SysBase->LibList);
 141     SysBase->LibList.lh_Type = NT_LIBRARY;
 142     ADDHEAD(&SysBase->LibList, &SysBase->LibNode.lib_Node);
 143
 144     NEWLIST(&SysBase->PortList);
 145     SysBase->PortList.lh_Type = NT_MSGPORT;
 146
 147     NEWLIST(&SysBase->TaskReady);
 148     SysBase->TaskReady.lh_Type = NT_TASK;
 149
 150     NEWLIST(&SysBase->TaskWait);
 151     SysBase->TaskWait.lh_Type = NT_TASK;
 152
 153     NEWLIST(&SysBase->SemaphoreList);
 154     SysBase->TaskWait.lh_Type = NT_SEMAPHORE;
 155
 156     NEWLIST(&SysBase->ex_MemHandlers);
 157
 158     for (i = 0; i < 5; i++)
 159     {
 160         NEWLIST(&SysBase->SoftInts[i].sh_List);
 161         SysBase->SoftInts[i].sh_List.lh_Type = NT_INTERRUPT;
 162     }
 163
 164     SysBase->SoftVer        = VERSION_NUMBER;
 165
 166     SysBase->ColdCapture    = SysBase->CoolCapture
 167                             = SysBase->WarmCapture
 168                             = NULL;
 169
 170     SysBase->SysStkUpper    = (APTR)0xFFFFFFFF;
 171     SysBase->SysStkLower    = (APTR)0x00000000;
 172
 173     SysBase->MaxLocMem      = (ULONG)mh->mh_Upper;
 174
 175     SysBase->Quantum        = 4;
 176
 177     SysBase->TaskTrapCode   = AROS_SLIB_ENTRY(TrapHandler,Exec);
 178     SysBase->TaskExceptCode = NULL;
 179     SysBase->TaskExitCode   = AROS_SLIB_ENTRY(TaskFinaliser,Exec);
 180     SysBase->TaskSigAlloc   = 0xFFFF;
 181     SysBase->TaskTrapAlloc  = 0;
 182
 183     SysBase->VBlankFrequency = 50;
 184     SysBase->PowerSupplyFrequency = 1;
 185
 186     SysBase->DebugAROSBase  = PrepareAROSSupportBase(SysBase);
 187
 188     return SysBase;
 189 }