rom/exec/initcode.c

   1 /*
   2     Copyright © 1995-2011, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Initialize resident modules
   6     Lang: english
   7 */
   8 #include <aros/debug.h>
   9 #include <exec/resident.h>
  10 #include <proto/exec.h>
  11
  12 #include "exec_debug.h"
  13 #include "exec_intern.h"
  14
  15 /*****************************************************************************
  16
  17     NAME */
  18
  19         AROS_LH2(void, InitCode,
  20
  21 /*  SYNOPSIS */
  22         AROS_LHA(ULONG, startClass, D0),
  23         AROS_LHA(ULONG, version, D1),
  24
  25 /*  LOCATION */
  26         struct ExecBase *, SysBase, 12, Exec)
  27
  28 /*  FUNCTION
  29         Traverse the ResModules array and InitResident() all modules with
  30         versions greater than or equal to version, and of a class equal to
  31         startClass.
  32
  33     INPUTS
  34         startClass - which type of module to start
  35         version - a version number
  36
  37     RESULT
  38
  39     NOTES
  40         This is actually internal function. There's no sense to call it from
  41         within user software.
  42
  43     EXAMPLE
  44
  45     BUGS
  46
  47     SEE ALSO
  48
  49     INTERNALS
  50
  51 *****************************************************************************/
  52 {
  53     AROS_LIBFUNC_INIT
  54
  55     IPTR *list;
  56
  57     DINITCODE("enter InitCode(0x%02lx, %ld)", startClass, version);
  58
  59     if (startClass == RTF_COLDSTART)
  60     {
  61         /*
  62          * When the system enters RTF_COLDSTART level, it's a nice time to pick up
  63          * KickTags.
  64          * We could call this from within exec init code, but InitKickTags() function
  65          * will replace SysBase->ResModules if it finds some KickTags. In order to
  66          * simplify things down, we keep it here, before we start using the list.
  67          */
  68         InitKickTags(SysBase);
  69     }
  70
  71     list = SysBase->ResModules;
  72     if (list)
  73     {
  74         while (*list)
  75         {
  76             struct Resident *res;
  77
  78             /*
  79              * On Amiga(tm), if bit 31 is set then this points to another list of
  80              * modules rather than pointing to a single module. bit 31 is
  81              * inconvenient on architectures where code may be loaded above
  82              * 2GB. on these platforms we assume aligned pointers and use bit
  83              * 0 instead
  84              */
  85             if (*list & RESLIST_NEXT)
  86             {
  87                 list = (IPTR *)(*list & ~RESLIST_NEXT);
  88                 continue;
  89             }
  90
  91             res = (struct Resident *)*list++;
  92
  93             if ((res->rt_Version >= version) && (res->rt_Flags & startClass))
  94             {
  95                 DINITCODE("calling InitResident (%ld %02lx \"%s\")",
  96                     res->rt_Pri, res->rt_Flags, res->rt_Name);
  97                 InitResident(res, BNULL);
  98             }
  99                 D(else bug("NOT calling InitResident (%d %02x \"%s\")\n",
 100                     res->rt_Pri, res->rt_Flags, res->rt_Name));
 101         }
 102     }
 103
 104     DINITCODE("leave InitCode(0x%02lx, %ld)", startClass, version);
 105
 106     AROS_LIBFUNC_EXIT
 107 } /* InitCode */