arch/all-unix/exec/platform_init.c

   1 #include <aros/debug.h>
   2 #include <aros/kernel.h>
   3 #include <aros/symbolsets.h>
   4 #include <proto/hostlib.h>
   5
   6 #include "exec_intern.h"
   7
   8 static const char *libc_symbols[] =
   9 {
  10     "exit",
  11 #ifdef HAVE_SWAPCONTEXT
  12     "getcontext",
  13     "makecontext",
  14     "swapcontext",
  15 #endif
  16     NULL
  17 };
  18
  19 static int Platform_Init(struct ExecBase *SysBase)
  20 {
  21     APTR LibCHandle;
  22     ULONG r;
  23
  24     HostLibBase = OpenResource("hostlib.resource");
  25     D(bug("[exec] HostLibBase %p\n", HostLibBase));
  26     if (!HostLibBase)
  27         return FALSE;
  28
  29     /* We use local variable for the handle because we never expunge
  30        so we will never close it */
  31     LibCHandle = HostLib_Open(LIBC_NAME, NULL);
  32     D(bug("[exec] libc handle 0x%p\n", LibCHandle));
  33     if (!LibCHandle)
  34         return FALSE;
  35
  36     PD(SysBase).SysIFace = (struct LibCInterface *)HostLib_GetInterface(LibCHandle, libc_symbols, &r);
  37     if (PD(SysBase).SysIFace)
  38     {
  39         D(bug("[exec] Got libc interface, %u unresolved symbols\n", r));
  40         if (!r)
  41             return TRUE;
  42
  43         HostLib_DropInterface((APTR *)PD(SysBase).SysIFace);
  44         HostLib_Close(LibCHandle, NULL);
  45     }
  46
  47     return FALSE;
  48 }
  49
  50 ADD2INITLIB(Platform_Init, 0);