compiler/stdc/__exitfunc.c

   1 /*
   2     Copyright © 1995-2013, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include "__stdc_intbase.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 StdCIntBase *StdCBase =
  15         (struct StdCIntBase *)__aros_getbase_StdCBase();
  16
  17     ADDHEAD((struct List *)&StdCBase->atexit_list, (struct Node *)aen);
  18
  19     return 0;
  20 }
  21
  22 int __init_atexit(struct StdCIntBase *StdCBase)
  23 {
  24     NEWLIST((struct List *)&StdCBase->atexit_list);
  25
  26     return 1;
  27 }
  28
  29 void __callexitfuncs(void)
  30 {
  31     struct StdCIntBase *StdCBase =
  32         (struct StdCIntBase *)__aros_getbase_StdCBase();
  33     struct AtExitNode *aen;
  34
  35     while (
  36         (aen = (struct AtExitNode *) REMHEAD((struct List *) &StdCBase->atexit_list))
  37     )
  38     {
  39         switch (aen->node.ln_Type)
  40         {
  41         case AEN_VOID:
  42             aen->func.fvoid();
  43             break;
  44
  45         case AEN_PTR:
  46             {
  47                 int *errorptr = __stdc_get_errorptr();
  48                 aen->func.fptr(errorptr != NULL ? *errorptr : 0, aen->ptr);
  49             }
  50             break;
  51         }
  52     }
  53 }
  54
  55 ADD2OPENLIB(__init_atexit, 100);