compiler/clib/__arosc_userdata.c

   1 #include "__arosc_privdata.h"
   2
   3 #include <proto/exec.h>
   4 #include <proto/dos.h>
   5 #include <dos/dosextens.h>
   6 #include <sys/arosc.h>
   7
   8 #include <stdlib.h>
   9
  10 #include "arosc_init.h"
  11
  12 #include "__ctype.h"
  13 #include "etask.h"
  14
  15 #include <aros/debug.h>
  16
  17 extern struct Library *aroscbase;
  18
  19 struct arosc_userdata * __get_arosc_userdata(void)
  20 {
  21     struct arosc_privdata *acpd = NULL;
  22
  23     #ifdef AROSC_SHARED
  24     struct Task *curtask = FindTask(NULL);
  25
  26     acpd = GetIntETask(curtask)->iet_acpd;
  27
  28     if (acpd == NULL)
  29     {
  30         #warning FIXME: This is a quick hack to make old programs which use
  31         #warning        the libc from inside newly created tasks/processes
  32         #warning        without going trough special libc routines
  33         #warning        (yet to be written).
  34
  35         struct Task *parent = GetETask(curtask)->et_Parent;
  36
  37         if (parent)
  38             acpd = GetIntETask(parent)->iet_acpd;
  39     }
  40     #endif
  41
  42     if (acpd == NULL)
  43     {
  44         /* No acpd found? Fall back to the builtin one.  */
  45         static struct arosc_privdata acpd_static =
  46         {
  47             .acpd_acud.acud_ctype_b       = &__ctype_b_array[128],
  48             .acpd_acud.acud_ctype_toupper = &__ctype_toupper_array[128],
  49             .acpd_acud.acud_ctype_tolower = &__ctype_tolower_array[128],
  50         };
  51
  52         return &acpd_static.acpd_acud;
  53     }
  54
  55     return &acpd->acpd_acud;
  56 }