lib/glue/lib0.c

   1 /*
   2 ** Copyright 2001, Travis Geiselbrecht. All rights reserved.
   3 ** Copyright 2002, Manuel J. Petit. All rights reserved.
   4 ** Distributed under the terms of the NewOS License.
   5 */
   6
   7 #include <newos/user_runtime.h>
   8 #include <sys/syscalls.h>
   9
  10 extern void sys_exit(int retcode);
  11
  12 extern void (*__ctor_list)(void);
  13 extern void (*__ctor_end)(void);
  14
  15 int _start(unsigned image_id, struct uspace_prog_args_t *);
  16 static void _call_ctors(void);
  17
  18 int
  19 _start(unsigned imid, struct uspace_prog_args_t *uspa)
  20 {
  21         void *ibc;
  22         void *iac;
  23
  24         ibc= uspa->rld_export->dl_sym(imid, "INIT_BEFORE_CTORS", 0);
  25         iac= uspa->rld_export->dl_sym(imid, "INIT_AFTER_CTORS", 0);
  26
  27         if(ibc) {
  28                 ((libinit_f*)(ibc))(imid, uspa);
  29         }
  30         _call_ctors();
  31         if(iac) {
  32                 ((libinit_f*)(iac))(imid, uspa);
  33         }
  34
  35         return 0;
  36 }
  37
  38 static
  39 void _call_ctors(void)
  40 {
  41         void (**f)(void);
  42
  43         for(f = &__ctor_list; f < &__ctor_end; f++) {
  44                 (**f)();
  45         }
  46 }
  47