libgfortran/runtime/minimal.c

   1 /* Copyright (C) 2002-2015 Free Software Foundation, Inc.
   2    Contributed by Andy Vaught and Paul Brook <paul@nowt.org>
   3
   4 This file is part of the GNU Fortran runtime library (libgfortran).
   5
   6 Libgfortran is free software; you can redistribute it and/or modify
   7 it under the terms of the GNU General Public License as published by
   8 the Free Software Foundation; either version 3, or (at your option)
   9 any later version.
  10
  11 Libgfortran is distributed in the hope that it will be useful,
  12 but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 GNU General Public License for more details.
  15
  16 Under Section 7 of GPL version 3, you are granted additional
  17 permissions described in the GCC Runtime Library Exception, version
  18 3.1, as published by the Free Software Foundation.
  19
  20 You should have received a copy of the GNU General Public License and
  21 a copy of the GCC Runtime Library Exception along with this program;
  22 see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
  23 <http://www.gnu.org/licenses/>.  */
  24
  25 #include "libgfortran.h"
  26 #include <stdlib.h>
  27 #include <string.h>
  28 #include <limits.h>
  29 #include <errno.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 options_t options;
  45
  46 /* This will be 0 for little-endian
  47    machines and 1 for big-endian machines.
  48
  49    Currently minimal libgfortran only runs on little-endian devices
  50    which don't support constructors so this is just a constant.  */
  51 int big_endian = 0;
  52
  53 static int argc_save;
  54 static char **argv_save;
  55
  56 static const char *exe_path;
  57
  58 /* recursion_check()-- It's possible for additional errors to occur
  59  * during fatal error processing.  We detect this condition here and
  60  * exit with code 4 immediately. */
  61
  62 #define MAGIC 0x20DE8101
  63
  64 static void
  65 recursion_check (void)
  66 {
  67   static int magic = 0;
  68
  69   /* Don't even try to print something at this point */
  70   if (magic == MAGIC)
  71     sys_abort ();
  72
  73   magic = MAGIC;
  74 }
  75
  76 #define STRERR_MAXSZ 256
  77
  78 void
  79 os_error (const char *message)
  80 {
  81   recursion_check ();
  82   printf ("Operating system error: ");
  83   printf ("%s\n", message);
  84   exit (1);
  85 }
  86 iexport(os_error);
  87
  88 void
  89 runtime_error (const char *message, ...)
  90 {
  91   va_list ap;
  92
  93   recursion_check ();
  94   printf ("Fortran runtime error: ");
  95   va_start (ap, message);
  96   vprintf (message, ap);
  97   va_end (ap);
  98   printf ("\n");
  99   exit (2);
 100 }
 101 iexport(runtime_error);
 102
 103 /* void runtime_error_at()-- These are errors associated with a
 104  * run time error generated by the front end compiler.  */
 105
 106 void
 107 runtime_error_at (const char *where, const char *message, ...)
 108 {
 109   va_list ap;
 110
 111   recursion_check ();
 112   printf ("Fortran runtime error: ");
 113   va_start (ap, message);
 114   vprintf (message, ap);
 115   va_end (ap);
 116   printf ("\n");
 117   exit (2);
 118 }
 119 iexport(runtime_error_at);
 120
 121 /* Return the full path of the executable.  */
 122 char *
 123 full_exe_path (void)
 124 {
 125   return (char *) exe_path;
 126 }
 127
 128
 129 /* Set the saved values of the command line arguments.  */
 130
 131 void
 132 set_args (int argc, char **argv)
 133 {
 134   argc_save = argc;
 135   argv_save = argv;
 136   exe_path = argv[0];
 137 }
 138 iexport(set_args);
 139
 140
 141 /* Retrieve the saved values of the command line arguments.  */
 142
 143 void
 144 get_args (int *argc, char ***argv)
 145 {
 146   *argc = argc_save;
 147   *argv = argv_save;
 148 }
 149
 150 /* sys_abort()-- Terminate the program showing backtrace and dumping
 151    core.  */
 152
 153 void
 154 sys_abort (void)
 155 {
 156   printf ("Abort called.\n");
 157   abort();
 158 }