arch/all-hosted/hostlib/hostlib_init.c

   1 /*
   2     Copyright © 1995-2014, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <aros/debug.h>
   7 #include <aros/kernel.h>
   8 #include <aros/symbolsets.h>
   9 #include <utility/tagitem.h>
  10 #include <proto/arossupport.h>
  11 #include <proto/exec.h>
  12 #include <proto/kernel.h>
  13
  14 #include "hostlib_intern.h"
  15
  16 static int HostLib_Init(struct HostLibBase *HostLibBase)
  17 {
  18     APTR KernelBase;
  19     struct TagItem *tag;
  20
  21     KernelBase = OpenResource("kernel.resource");
  22     D(bug("[hostlib] KernelBase = 0x%08lX\n", KernelBase));
  23     if (!KernelBase)
  24         return FALSE;
  25
  26     tag = LibFindTagItem(KRN_HostInterface, KrnGetBootInfo());
  27     if (tag)
  28     {
  29         HostLibBase->HostIFace = (struct HostInterface *)tag->ti_Data;
  30         D(bug("[hostlib] HostIFace = 0x%08lX\n", HostLibBase->HostIFace));
  31
  32 #ifndef USE_FORBID_LOCK
  33         InitSemaphore(&HostLibBase->HostSem);
  34 #endif
  35         return TRUE;
  36     }
  37
  38     return FALSE;
  39 }
  40
  41 ADD2INITLIB(HostLib_Init, 0)