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         /* FIXME: This is a quick hack to make old programs which use
  31          *        the libc from inside newly created tasks/processes
  32          *        without going trough special libc routines
  33          *       (yet to be written).
  34          */
  35         struct Task *parent = GetETask(curtask)->et_Parent;
  36             while (parent != NULL)
  37             {
  38             acpd = GetIntETask(parent)->iet_acpd;
  39             if(acpd != NULL) break;
  40             parent = GetETask(parent)->et_Parent;
  41             }
  42     }
  43     #endif
  44
  45     if (acpd == NULL)
  46     {
  47 #ifdef AROSC_ROM
  48         /* JUST the user data - we really only want the ctype arrays */
  49         static const struct arosc_userdata acud = {
  50             .acud_ctype_b       = &__ctype_b_array[128],
  51             .acud_ctype_toupper = &__ctype_toupper_array[128],
  52             .acud_ctype_tolower = &__ctype_tolower_array[128],
  53         };
  54
  55         /* Remove the 'const' when passing back */
  56         return (struct arosc_userdata *)&acud;
  57 #else
  58         /* No acpd found? Fall back to the builtin one.  */
  59         static struct arosc_privdata acpd_static;
  60
  61         acpd_static.acpd_acud.acud_ctype_b       = &__ctype_b_array[128];
  62         acpd_static.acpd_acud.acud_ctype_toupper = &__ctype_toupper_array[128];
  63         acpd_static.acpd_acud.acud_ctype_tolower = &__ctype_tolower_array[128];
  64
  65         acpd = &acpd_static;
  66 #endif
  67     }
  68
  69     return &acpd->acpd_acud;
  70 }