gcc/ada/initialize.c

   1 /****************************************************************************
   2  *                                                                          *
   3  *                         GNAT COMPILER COMPONENTS                         *
   4  *                                                                          *
   5  *                           I N I T I A L I Z E                            *
   6  *                                                                          *
   7  *                          C Implementation File                           *
   8  *                                                                          *
   9  *          Copyright (C) 1992-2009, Free Software Foundation, Inc.         *
  10  *                                                                          *
  11  * GNAT is free software;  you can  redistribute it  and/or modify it under *
  12  * terms of the  GNU General Public License as published  by the Free Soft- *
  13  * ware  Foundation;  either version 3,  or (at your option) any later ver- *
  14  * sion.  GNAT is distributed in the hope that it will be useful, but WITH- *
  15  * OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY *
  16  * or FITNESS FOR A PARTICULAR PURPOSE.                                     *
  17  *                                                                          *
  18  * As a special exception under Section 7 of GPL version 3, you are granted *
  19  * additional permissions described in the GCC Runtime Library Exception,   *
  20  * version 3.1, as published by the Free Software Foundation.               *
  21  *                                                                          *
  22  * You should have received a copy of the GNU General Public License and    *
  23  * a copy of the GCC Runtime Library Exception along with this program;     *
  24  * see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see    *
  25  * <http://www.gnu.org/licenses/>.                                          *
  26  *                                                                          *
  27  * GNAT was originally developed  by the GNAT team at  New York University. *
  28  * Extensive contributions were provided by Ada Core Technologies Inc.      *
  29  *                                                                          *
  30  ****************************************************************************/
  31
  32 /*  This unit provides default implementation for __gnat_initialize ()
  33     which is called before the elaboration of the partition. It is provided
  34     in a separate file/object so that users can replace it easily.
  35     The default implementation should be null on most targets. */
  36
  37 /* The following include is here to meet the published VxWorks requirement
  38    that the __vxworks header appear before any other include. */
  39 #ifdef __vxworks
  40 #include "vxWorks.h"
  41 #endif
  42
  43 #ifdef IN_RTS
  44 #include "tconfig.h"
  45 #include "tsystem.h"
  46 /* We don't have libiberty, so use malloc.  */
  47 #define xmalloc(S) malloc (S)
  48 #define xrealloc(V,S) realloc (V,S)
  49 #else
  50 #include "config.h"
  51 #include "system.h"
  52 #endif
  53
  54 #include "raise.h"
  55
  56 /******************************************/
  57 /* __gnat_initialize (NT-mingw32 Version) */
  58 /******************************************/
  59
  60 #if defined (__MINGW32__)
  61 #include "mingw32.h"
  62 #include <windows.h>
  63
  64 extern void __gnat_init_float (void);
  65 extern void __gnat_install_SEH_handler (void *);
  66
  67 extern int gnat_argc;
  68 extern char **gnat_argv;
  69
  70 #ifndef RTX
  71 /* Do not define for RTX since it is only used for creating child processes
  72    which is not supported in RTX. */
  73 extern void __gnat_plist_init (void);
  74 #endif
  75
  76 #ifdef GNAT_UNICODE_SUPPORT
  77
  78 #define EXPAND_ARGV_RATE 128
  79
  80 static void
  81 append_arg (int *index, LPWSTR value, char ***argv, int *last)
  82 {
  83   int size;
  84
  85   if (*last <= *index)
  86     {
  87       *last += EXPAND_ARGV_RATE;
  88       *argv = (char **) xrealloc (*argv, (*last) * sizeof (char *));
  89     }
  90
  91   size = WS2SC (NULL, value, 0);
  92   (*argv)[*index] = (char *) xmalloc (size + 1);
  93   WS2SC ((*argv)[*index], value, size);
  94
  95   (*index)++;
  96 }
  97 #endif
  98
  99 void
 100 __gnat_initialize (void *eh ATTRIBUTE_UNUSED)
 101 {
 102    /* Initialize floating-point coprocessor. This call is needed because
 103       the MS libraries default to 64-bit precision instead of 80-bit
 104       precision, and we require the full precision for proper operation,
 105       given that we have set Max_Digits etc with this in mind */
 106    __gnat_init_float ();
 107
 108 #ifdef GNAT_UNICODE_SUPPORT
 109    /* Set current code page for filenames handling. */
 110    {
 111      char *codepage = getenv ("GNAT_CODE_PAGE");
 112
 113      /* Default code page is UTF-8.  */
 114      CurrentCodePage = CP_UTF8;
 115
 116      if (codepage != NULL)
 117        {
 118          if (strcmp (codepage, "CP_ACP") == 0)
 119            CurrentCodePage = CP_ACP;
 120          else if (strcmp (codepage, "CP_UTF8") == 0)
 121            CurrentCodePage = CP_UTF8;
 122        }
 123    }
 124
 125    /* Adjust gnat_argv to support Unicode characters. */
 126    {
 127      LPWSTR *wargv;
 128      int wargc;
 129      int k;
 130      int last;
 131      int argc_expanded = 0;
 132      TCHAR result [MAX_PATH];
 133      int quoted;
 134
 135      wargv = CommandLineToArgvW (GetCommandLineW(), &wargc);
 136
 137      if (wargv != NULL)
 138        {
 139          /* Set gnat_argv with arguments encoded in UTF-8. */
 140          last = wargc + 1;
 141          gnat_argv = (char **) xmalloc ((last) * sizeof (char *));
 142
 143          /* argv[0] is the executable full path-name. */
 144
 145          SearchPath (NULL, wargv[0], _T(".exe"), MAX_PATH, result, NULL);
 146          append_arg (&argc_expanded, result, &gnat_argv, &last);
 147
 148          for (k=1; k<wargc; k++)
 149            {
 150              quoted = (wargv[k][0] == _T('\''));
 151
 152              /* Check for wildcard expansion if the argument is not quoted. */
 153              if (!quoted
 154                  && (_tcsstr (wargv[k], _T("?")) != 0 ||
 155                      _tcsstr (wargv[k], _T("*")) != 0))
 156                {
 157                  /* Wilcards are present, append all corresponding matches. */
 158                  WIN32_FIND_DATA FileData;
 159                  HANDLE hDir = FindFirstFile (wargv[k], &FileData);
 160
 161                  if (hDir == INVALID_HANDLE_VALUE)
 162                    {
 163                      /* No match, append arg as-is. */
 164                      append_arg (&argc_expanded, wargv[k], &gnat_argv, &last);
 165                    }
 166                  else
 167                    {
 168                      /* Append first match and all remaining ones.  */
 169
 170                      do {
 171                        append_arg (&argc_expanded,
 172                                    FileData.cFileName, &gnat_argv, &last);
 173                      } while (FindNextFile (hDir, &FileData));
 174
 175                      FindClose (hDir);
 176                    }
 177                }
 178              else
 179                {
 180                  /*  No wildcard. Store parameter as-is. Remove quote if
 181                      needed. */
 182                  if (quoted)
 183                    {
 184                      int len = _tcslen (wargv[k]);
 185
 186                      /* Remove ending quote */
 187                      wargv[k][len-1] = _T('\0');
 188                      append_arg
 189                        (&argc_expanded, &wargv[k][1], &gnat_argv, &last);
 190                    }
 191                  else
 192                    append_arg (&argc_expanded, wargv[k], &gnat_argv, &last);
 193                }
 194            }
 195
 196          LocalFree (wargv);
 197          gnat_argc = argc_expanded;
 198          gnat_argv = (char **) xrealloc
 199            (gnat_argv, argc_expanded * sizeof (char *));
 200        }
 201    }
 202 #endif
 203
 204    /* Note that we do not activate this for the compiler itself to avoid a
 205       bootstrap path problem.  Older version of gnatbind will generate a call
 206       to __gnat_initialize() without argument. Therefore we cannot use eh in
 207       this case.  It will be possible to remove the following #ifdef at some
 208       point.  */
 209 #ifdef IN_RTS
 210    /* Install the Structured Exception handler.  */
 211    if (eh)
 212      __gnat_install_SEH_handler (eh);
 213 #endif
 214 }
 215
 216 /******************************************/
 217 /* __gnat_initialize (init_float version) */
 218 /******************************************/
 219
 220 #elif defined (__Lynx__) || defined (__FreeBSD__) || defined(__NetBSD__) \
 221   || defined (__OpenBSD__)
 222
 223 extern void __gnat_init_float (void);
 224
 225 void
 226 __gnat_initialize (void *eh ATTRIBUTE_UNUSED)
 227 {
 228    __gnat_init_float ();
 229 }
 230
 231 /***************************************/
 232 /* __gnat_initialize (VxWorks Version) */
 233 /***************************************/
 234
 235 #elif defined(__vxworks)
 236
 237 extern void __gnat_init_float (void);
 238
 239 void
 240 __gnat_initialize (void *eh)
 241 {
 242   __gnat_init_float ();
 243
 244   /* On targets where we use the ZCX scheme, we need to register the frame
 245      tables at load/startup time.
 246
 247      For applications loaded as a set of "modules", the crtstuff objects
 248      linked in (crtbegin.o/end.o) are tailored to provide this service
 249      automatically, a-la C++ constructor fashion, triggered by the VxWorks
 250      loader thanks to a special variable declaration in crtbegin.o (_ctors).
 251
 252      Automatic de-registration is handled symmetrically, a-la C++ destructor
 253      fashion (with a _dtors variable also in crtbegin.o) triggered by the
 254      dynamic unloader.
 255
 256      Note that since the tables shall be registered against a common
 257      data structure, libgcc should be one of the modules (vs being partially
 258      linked against all the others at build time) and shall be loaded first.
 259
 260      For applications linked with the kernel, the scheme above would lead to
 261      duplicated symbols because the VxWorks kernel build "munches" by default,
 262      so we link against crtbeginT.o instead of crtbegin.o, which doesn't
 263      include the special variables. We know which set of crt objects is used
 264      thanks to a boolean indicator present in both sets (__module_has_ctors),
 265      and directly call the appropriate function here in the not-automatic
 266      case. We'll never unload that, so there is no de-registration to worry
 267      about.
 268
 269      For whole applications loaded as a single module, we may use one scheme
 270      or the other, except for the mixed Ada/C++ case in which the first scheme
 271      would fail for the same reason as in the linked-with-kernel situation.
 272
 273      Selecting the crt set with the ctors/dtors capabilities (first scheme
 274      above) is triggered by adding "-dynamic" to the gcc *link* command line
 275      options. Selecting the other set is achieved by using "-static" instead.
 276
 277      This is a first approach, tightly synchronized with a number of GCC
 278      configuration and crtstuff changes. We need to ensure that those changes
 279      are there to activate this circuitry.  */
 280
 281 #if (__GNUC__ >= 3) && (defined (_ARCH_PPC) || defined (__ppc))
 282  {
 283    /* The scheme described above is only useful for the actual ZCX case, and
 284       we don't want any reference to the crt provided symbols otherwise.  We
 285       may not link with any of the crt objects in the non-ZCX case, e.g. from
 286       documented procedures instructing the use of -nostdlib, and references
 287       to the ctors symbols here would just remain unsatisfied.
 288
 289       We have no way to avoid those references in the right conditions in this
 290       C module, because we have nothing like a IN_ZCX_RTS macro.  This aspect
 291       is then deferred to an Ada routine, which can do that based on a test
 292       against a constant System flag value.  */
 293
 294    extern void __gnat_vxw_setup_for_eh (void);
 295    __gnat_vxw_setup_for_eh ();
 296  }
 297 #endif
 298 }
 299
 300 #elif defined(_T_HPUX10) || (!defined(IN_RTS) && defined(_X_HPUX10))
 301
 302 /************************************************/
 303 /* __gnat_initialize (PA-RISC HP-UX 10 Version) */
 304 /************************************************/
 305
 306 extern void __main (void);
 307
 308 void
 309 __gnat_initialize (void *eh ATTRIBUTE_UNUSED)
 310 {
 311   __main ();
 312 }
 313
 314 #else
 315
 316 /* For all other versions of GNAT, the initialize routine and handler
 317    installation do nothing */
 318
 319 /***************************************/
 320 /* __gnat_initialize (Default Version) */
 321 /***************************************/
 322
 323 void
 324 __gnat_initialize (void *eh ATTRIBUTE_UNUSED)
 325 {
 326 }
 327
 328 #endif