compiler/clib/arosc_autoinit.c

   1 /*
   2     Copyright © 1995-2009, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: autoinit library - arosc.library specific code
   6     Lang: english
   7 */
   8
   9 #include <aros/symbolsets.h>
  10 #include <aros/startup.h>
  11
  12 #define DEBUG 0
  13 #include <aros/debug.h>
  14
  15 #include "arosc_init.h"
  16 #include "etask.h"
  17
  18 void __arosc_program_startup(void);
  19 void __arosc_program_end(void);
  20
  21
  22 static int __arosc_libopen(struct Library *aroscbase)
  23 {
  24     return arosc_internalinit();
  25 }
  26
  27 static void __arosc_libclose(struct Library *aroscbase)
  28 {
  29     arosc_internalexit();
  30 }
  31
  32 ADD2OPENLIB(__arosc_libopen, 0);
  33 ADD2CLOSELIB(__arosc_libclose, 0);
  34
  35 ADD2LIBS("arosc.library", 42, struct Library *, aroscbase);
  36
  37 static struct arosc_startup arosc_startup;
  38
  39 static void __arosc_startup(void)
  40 {
  41     struct Process *myproc;
  42
  43     D(bug("[__arosc_startup] Start\n"));
  44
  45     __arosc_program_startup();
  46
  47     myproc = (struct Process *)FindTask(NULL);
  48     GetIntETask(FindTask(NULL))->iet_startup = &arosc_startup;
  49     arosc_startup.as_startup_error = __startup_error;
  50
  51     if (setjmp(arosc_startup.as_startup_jmp_buf) == 0)
  52     {
  53         D(bug("[__arosc_startup] setjmp() called\n"));
  54         __startup_entries_next();
  55     }
  56     else
  57     {
  58         D(bug("[__arosc_startup] setjmp() return from longjmp\n"));
  59         __startup_error = arosc_startup.as_startup_error;
  60     }
  61
  62     __arosc_program_end();
  63
  64     D(bug("[__arosc_startup] Leave\n"));
  65 }
  66
  67 ADD2SET(__arosc_startup, program_entries, 0);