compiler/clib/__exitfunc.c

   1 /*
   2     Copyright © 1995-2012, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include "__arosc_privdata.h"
   7
   8 #include <aros/symbolsets.h>
   9 #include <aros/startup.h>
  10 #include <exec/lists.h>
  11 #include "__exitfunc.h"
  12
  13 int __addexitfunc(struct AtExitNode *aen)
  14 {
  15     struct aroscbase *aroscbase = __GM_GetBase();
  16
  17     ADDHEAD((struct List *)&aroscbase->acb_atexit_list, (struct Node *)aen);
  18
  19     return 0;
  20 }
  21
  22 int __init_atexit(struct aroscbase *aroscbase)
  23 {
  24     NEWLIST((struct List *)&aroscbase->acb_atexit_list);
  25
  26     return 1;
  27 }
  28
  29 void __callexitfuncs(void)
  30 {
  31     struct aroscbase *aroscbase = __GM_GetBase();
  32     struct AtExitNode *aen;
  33
  34     while (
  35         (aen = (struct AtExitNode *) REMHEAD((struct List *) &aroscbase->acb_atexit_list))
  36     )
  37     {
  38         switch (aen->node.ln_Type)
  39         {
  40         case AEN_VOID:
  41             aen->func.fvoid();
  42             break;
  43
  44         case AEN_PTR:
  45             aen->func.fptr(__arosc_startup_error, aen->ptr);
  46             break;
  47         }
  48     }
  49 }
  50
  51 ADD2OPENLIB(__init_atexit, 100);