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 <exec/lists.h>
  10 #include "__exitfunc.h"
  11
  12 int __addexitfunc(struct AtExitNode *aen)
  13 {
  14     struct aroscbase *aroscbase = __aros_getbase();
  15
  16     ADDHEAD((struct List *)&aroscbase->acb_atexit_list, (struct Node *)aen);
  17
  18     return 0;
  19 }
  20
  21 int __init_atexit(struct aroscbase *aroscbase)
  22 {
  23     NEWLIST((struct List *)&aroscbase->acb_atexit_list);
  24
  25     return 1;
  26 }
  27
  28 void __callexitfuncs(void)
  29 {
  30     struct aroscbase *aroscbase = __aros_getbase();
  31     struct AtExitNode *aen;
  32
  33     while (
  34         (aen = (struct AtExitNode *) REMHEAD((struct List *) &aroscbase->acb_atexit_list))
  35     )
  36     {
  37         switch (aen->node.ln_Type)
  38         {
  39         case AEN_VOID:
  40             aen->func.fvoid();
  41             break;
  42
  43         case AEN_PTR:
  44             aen->func.fptr(*aroscbase->acb_startup_error_ptr, aen->ptr);
  45             break;
  46         }
  47     }
  48 }
  49
  50 ADD2OPENLIB(__init_atexit, 100);