libgfortran/runtime/main.c

   1 /* Copyright (C) 2002-2003, 2005, 2007, 2009, 2011
   2    Free Software Foundation, Inc.
   3    Contributed by Andy Vaught and Paul Brook <paul@nowt.org>
   4
   5 This file is part of the GNU Fortran runtime library (libgfortran).
   6
   7 Libgfortran is free software; you can redistribute it and/or modify
   8 it under the terms of the GNU General Public License as published by
   9 the Free Software Foundation; either version 3, or (at your option)
  10 any later version.
  11
  12 Libgfortran is distributed in the hope that it will be useful,
  13 but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 GNU General Public License for more details.
  16
  17 Under Section 7 of GPL version 3, you are granted additional
  18 permissions described in the GCC Runtime Library Exception, version
  19 3.1, as published by the Free Software Foundation.
  20
  21 You should have received a copy of the GNU General Public License and
  22 a copy of the GCC Runtime Library Exception along with this program;
  23 see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
  24 <http://www.gnu.org/licenses/>.  */
  25
  26 #include "libgfortran.h"
  27 #include <stdlib.h>
  28 #include <string.h>
  29 #include <limits.h>
  30
  31
  32 #ifdef HAVE_UNISTD_H
  33 #include <unistd.h>
  34 #endif
  35
  36 /* Stupid function to be sure the constructor is always linked in, even
  37    in the case of static linking.  See PR libfortran/22298 for details.  */
  38 void
  39 stupid_function_name_for_static_linking (void)
  40 {
  41   return;
  42 }
  43
  44 /* This will be 0 for little-endian
  45    machines and 1 for big-endian machines.  */
  46 int big_endian = 0;
  47
  48
  49 /* Figure out endianness for this machine.  */
  50
  51 static void
  52 determine_endianness (void)
  53 {
  54   union
  55   {
  56     GFC_LOGICAL_8 l8;
  57     GFC_LOGICAL_4 l4[2];
  58   } u;
  59
  60   u.l8 = 1;
  61   if (u.l4[0])
  62     big_endian = 0;
  63   else if (u.l4[1])
  64     big_endian = 1;
  65   else
  66     runtime_error ("Unable to determine machine endianness");
  67 }
  68
  69
  70 static int argc_save;
  71 static char **argv_save;
  72
  73 static const char *exe_path;
  74 static int please_free_exe_path_when_done;
  75
  76 /* Save the path under which the program was called, for use in the
  77    backtrace routines.  */
  78 void
  79 store_exe_path (const char * argv0)
  80 {
  81 #ifndef PATH_MAX
  82 #define PATH_MAX 1024
  83 #endif
  84
  85 #ifndef DIR_SEPARATOR
  86 #define DIR_SEPARATOR '/'
  87 #endif
  88
  89   char buf[PATH_MAX], *cwd, *path;
  90
  91   /* This can only happen if store_exe_path is called multiple times.  */
  92   if (please_free_exe_path_when_done)
  93     free ((char *) exe_path);
  94
  95   /* Reading the /proc/self/exe symlink is Linux-specific(?), but if
  96      it works it gives the correct answer.  */
  97 #ifdef HAVE_READLINK
  98   int len;
  99   if ((len = readlink ("/proc/self/exe", buf, sizeof (buf) - 1)) != -1)
 100     {
 101       buf[len] = '\0';
 102       exe_path = strdup (buf);
 103       please_free_exe_path_when_done = 1;
 104       return;
 105     }
 106 #endif
 107
 108   /* On the simulator argv is not set.  */
 109   if (argv0 == NULL || argv0[0] == '/')
 110     {
 111       exe_path = argv0;
 112       please_free_exe_path_when_done = 0;
 113       return;
 114     }
 115
 116   memset (buf, 0, sizeof (buf));
 117 #ifdef HAVE_GETCWD
 118   cwd = getcwd (buf, sizeof (buf));
 119   if (!cwd)
 120     cwd = ".";
 121 #else
 122   cwd = ".";
 123 #endif
 124
 125   /* exe_path will be cwd + "/" + argv[0] + "\0".  This will not work
 126      if the executable is not in the cwd, but at this point we're out
 127      of better ideas.  */
 128   size_t pathlen = strlen (cwd) + 1 + strlen (argv0) + 1;
 129   path = malloc (pathlen);
 130   snprintf (path, pathlen, "%s%c%s", cwd, DIR_SEPARATOR, argv0);
 131   exe_path = path;
 132   please_free_exe_path_when_done = 1;
 133 }
 134
 135
 136 /* Return the full path of the executable.  */
 137 char *
 138 full_exe_path (void)
 139 {
 140   return (char *) exe_path;
 141 }
 142
 143
 144 char *addr2line_path;
 145
 146 /* Find addr2line and store the path.  */
 147
 148 void
 149 find_addr2line (void)
 150 {
 151 #ifdef HAVE_ACCESS
 152 #define A2L_LEN 10
 153   char *path = getenv ("PATH");
 154   if (!path)
 155     return;
 156   size_t n = strlen (path);
 157   char ap[n + 1 + A2L_LEN];
 158   size_t ai = 0;
 159   for (size_t i = 0; i < n; i++)
 160     {
 161       if (path[i] != ':')
 162         ap[ai++] = path[i];
 163       else
 164         {
 165           ap[ai++] = '/';
 166           memcpy (ap + ai, "addr2line", A2L_LEN);
 167           if (access (ap, R_OK|X_OK) == 0)
 168             {
 169               addr2line_path = strdup (ap);
 170               return;
 171             }
 172           else
 173             ai = 0;
 174         }
 175     }
 176 #endif
 177 }
 178
 179
 180 /* Set the saved values of the command line arguments.  */
 181
 182 void
 183 set_args (int argc, char **argv)
 184 {
 185   argc_save = argc;
 186   argv_save = argv;
 187   store_exe_path (argv[0]);
 188 }
 189 iexport(set_args);
 190
 191
 192 /* Retrieve the saved values of the command line arguments.  */
 193
 194 void
 195 get_args (int *argc, char ***argv)
 196 {
 197   *argc = argc_save;
 198   *argv = argv_save;
 199 }
 200
 201
 202 /* Initialize the runtime library.  */
 203
 204 static void __attribute__((constructor))
 205 init (void)
 206 {
 207   /* Figure out the machine endianness.  */
 208   determine_endianness ();
 209
 210   /* Must be first */
 211   init_variables ();
 212
 213   init_units ();
 214   set_fpu ();
 215   init_compile_options ();
 216
 217 #ifdef DEBUG
 218   /* Check for special command lines.  */
 219
 220   if (argc > 1 && strcmp (argv[1], "--help") == 0)
 221     show_variables ();
 222
 223   /* if (argc > 1 && strcmp(argv[1], "--resume") == 0) resume();  */
 224 #endif
 225
 226   if (options.backtrace == 1)
 227     find_addr2line ();
 228
 229   random_seed_i4 (NULL, NULL, NULL);
 230 }
 231
 232
 233 /* Cleanup the runtime library.  */
 234
 235 static void __attribute__((destructor))
 236 cleanup (void)
 237 {
 238   close_units ();
 239
 240   if (please_free_exe_path_when_done)
 241     free ((char *) exe_path);
 242
 243   free (addr2line_path);
 244 }