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   /* On the simulator argv is not set.  */
  96   if (argv0 == NULL || argv0[0] == '/')
  97     {
  98       exe_path = argv0;
  99       please_free_exe_path_when_done = 0;
 100       return;
 101     }
 102
 103   memset (buf, 0, sizeof (buf));
 104 #ifdef HAVE_GETCWD
 105   cwd = getcwd (buf, sizeof (buf));
 106 #else
 107   cwd = "";
 108 #endif
 109
 110   /* exe_path will be cwd + "/" + argv[0] + "\0" */
 111   size_t pathlen = strlen (cwd) + 1 + strlen (argv0) + 1;
 112   path = malloc (pathlen);
 113   snprintf (path, pathlen, "%s%c%s", cwd, DIR_SEPARATOR, argv0);
 114   exe_path = path;
 115   please_free_exe_path_when_done = 1;
 116 }
 117
 118
 119 /* Return the full path of the executable.  */
 120 char *
 121 full_exe_path (void)
 122 {
 123   return (char *) exe_path;
 124 }
 125
 126
 127 /* Set the saved values of the command line arguments.  */
 128
 129 void
 130 set_args (int argc, char **argv)
 131 {
 132   argc_save = argc;
 133   argv_save = argv;
 134   store_exe_path (argv[0]);
 135 }
 136 iexport(set_args);
 137
 138
 139 /* Retrieve the saved values of the command line arguments.  */
 140
 141 void
 142 get_args (int *argc, char ***argv)
 143 {
 144   *argc = argc_save;
 145   *argv = argv_save;
 146 }
 147
 148
 149 /* Initialize the runtime library.  */
 150
 151 static void __attribute__((constructor))
 152 init (void)
 153 {
 154   /* Figure out the machine endianness.  */
 155   determine_endianness ();
 156
 157   /* Must be first */
 158   init_variables ();
 159
 160   init_units ();
 161   set_fpu ();
 162   init_compile_options ();
 163
 164 #ifdef DEBUG
 165   /* Check for special command lines.  */
 166
 167   if (argc > 1 && strcmp (argv[1], "--help") == 0)
 168     show_variables ();
 169
 170   /* if (argc > 1 && strcmp(argv[1], "--resume") == 0) resume();  */
 171 #endif
 172
 173   random_seed_i4 (NULL, NULL, NULL);
 174 }
 175
 176
 177 /* Cleanup the runtime library.  */
 178
 179 static void __attribute__((destructor))
 180 cleanup (void)
 181 {
 182   close_units ();
 183
 184   if (please_free_exe_path_when_done)
 185     free ((char *) exe_path);
 186 }