compiler/clib/__exitfunc.c

   1 /*
   2     Copyright © 1995-2002, 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     ADDHEAD((struct List *)&__atexit_list, (struct Node *)aen);
  16
  17     return 0;
  18 }
  19
  20 int __init_atexit(void)
  21 {
  22     NEWLIST((struct List *)&__atexit_list);
  23
  24     return 1;
  25 }
  26
  27 void __exit_atexit(void)
  28 {
  29     {
  30         struct AtExitNode *aen;
  31
  32         while ((aen = (struct AtExitNode *) REMHEAD(
  33                                    (struct List *) &__atexit_list)))
  34         {
  35             switch (aen->node.ln_Type)
  36             {
  37             case AEN_VOID:
  38                 aen->func.fvoid();
  39                 break;
  40
  41             case AEN_PTR:
  42                 aen->func.fptr(__aros_startup_error, aen->ptr);
  43                 break;
  44             }
  45         }
  46     }
  47 }
  48
  49 ADD2INIT(__init_atexit, 100);
  50 ADD2EXIT(__exit_atexit, 100);