gcc/fortran/gfortranspec.c

   1 /* Specific flags and argument handling of the Fortran front-end.
   2    Copyright (C) 1997, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
   3    Free Software Foundation, Inc.
   4
   5 This file is part of GCC.
   6
   7 GNU CC 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 2, or (at your option)
  10 any later version.
  11
  12 GNU CC 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 You should have received a copy of the GNU General Public License
  18 along with GNU CC; see the file COPYING.  If not, write to
  19 the Free Software Foundation, 51 Franklin Street, Fifth Floor,
  20 Boston, MA 02110-1301, USA.  */
  21 /* This file is copied more or less verbatim from g77.  */
  22 /* This file contains a filter for the main `gcc' driver, which is
  23    replicated for the `gfortran' driver by adding this filter.  The purpose
  24    of this filter is to be basically identical to gcc (in that
  25    it faithfully passes all of the original arguments to gcc) but,
  26    unless explicitly overridden by the user in certain ways, ensure
  27    that the needs of the language supported by this wrapper are met.
  28
  29    For GNU Fortran 95(gfortran), we do the following to the argument list
  30    before passing it to `gcc':
  31
  32    1.  Make sure `-lgfortran -lm' is at the end of the list.
  33
  34    2.  Make sure each time `-lgfortran' or `-lm' is seen, it forms
  35        part of the series `-lgfortran -lm'.
  36
  37    #1 and #2 are not done if `-nostdlib' or any option that disables
  38    the linking phase is present, or if `-xfoo' is in effect.  Note that
  39    a lack of source files or -l options disables linking.
  40
  41    This program was originally made out of gcc/cp/g++spec.c, but the
  42    way it builds the new argument list was rewritten so it is much
  43    easier to maintain, improve the way it decides to add or not add
  44    extra arguments, etc.  And several improvements were made in the
  45    handling of arguments, primarily to make it more consistent with
  46    `gcc' itself.  */
  47
  48 #include "config.h"
  49 #include "system.h"
  50 #include "gcc.h"
  51
  52 #include "coretypes.h"
  53 #include "tm.h"
  54 #include "intl.h"
  55
  56 #ifndef MATH_LIBRARY
  57 #define MATH_LIBRARY "-lm"
  58 #endif
  59
  60 #ifndef FORTRAN_INIT
  61 #define FORTRAN_INIT "-lgfortranbegin"
  62 #endif
  63
  64 #ifndef FORTRAN_LIBRARY
  65 #define FORTRAN_LIBRARY "-lgfortran"
  66 #endif
  67
  68 /* Options this driver needs to recognize, not just know how to
  69    skip over.  */
  70 typedef enum
  71 {
  72   OPTION_b,                     /* Aka --prefix.  */
  73   OPTION_B,                     /* Aka --target.  */
  74   OPTION_c,                     /* Aka --compile.  */
  75   OPTION_E,                     /* Aka --preprocess.  */
  76   OPTION_help,                  /* --help.  */
  77   OPTION_i,                     /* -imacros, -include, -include-*.  */
  78   OPTION_l,
  79   OPTION_L,                     /* Aka --library-directory.  */
  80   OPTION_nostdlib,              /* Aka --no-standard-libraries, or
  81                                    -nodefaultlibs.  */
  82   OPTION_o,                     /* Aka --output.  */
  83   OPTION_S,                     /* Aka --assemble.  */
  84   OPTION_syntax_only,           /* -fsyntax-only.  */
  85   OPTION_v,                     /* Aka --verbose.  */
  86   OPTION_version,               /* --version.  */
  87   OPTION_V,                     /* Aka --use-version.  */
  88   OPTION_x,                     /* Aka --language.  */
  89   OPTION_                       /* Unrecognized or unimportant.  */
  90 }
  91 Option;
  92
  93 /* The original argument list and related info is copied here.  */
  94 static int g77_xargc;
  95 static const char *const *g77_xargv;
  96 static void lookup_option (Option *, int *, const char **, const char *);
  97 static void append_arg (const char *);
  98
  99 /* The new argument list will be built here.  */
 100 static int g77_newargc;
 101 static const char **g77_newargv;
 102
 103 /* --- This comes from gcc.c (2.8.1) verbatim: */
 104
 105 /* This defines which switch letters take arguments.  */
 106
 107 #ifndef SWITCH_TAKES_ARG
 108 #define SWITCH_TAKES_ARG(CHAR) DEFAULT_SWITCH_TAKES_ARG(CHAR)
 109 #endif
 110
 111 /* This defines which multi-letter switches take arguments.  */
 112
 113 #ifndef WORD_SWITCH_TAKES_ARG
 114 #define WORD_SWITCH_TAKES_ARG(STR) DEFAULT_WORD_SWITCH_TAKES_ARG (STR)
 115 #endif
 116
 117 /* --- End of verbatim.  */
 118
 119 /* Assumes text[0] == '-'.  Returns number of argv items that belong to
 120    (and follow) this one, an option id for options important to the
 121    caller, and a pointer to the first char of the arg, if embedded (else
 122    returns NULL, meaning no arg or it's the next argv).
 123
 124    Note that this also assumes gcc.c's pass converting long options
 125    to short ones, where available, has already been run.  */
 126
 127 static void
 128 lookup_option (Option *xopt, int *xskip, const char **xarg, const char *text)
 129 {
 130   Option opt = OPTION_;
 131   int skip;
 132   const char *arg = NULL;
 133
 134   if ((skip = SWITCH_TAKES_ARG (text[1])))
 135     skip -= (text[2] != '\0');  /* See gcc.c.  */
 136
 137   if (text[1] == 'B')
 138     opt = OPTION_B, skip = (text[2] == '\0'), arg = text + 2;
 139   else if (text[1] == 'b')
 140     opt = OPTION_b, skip = (text[2] == '\0'), arg = text + 2;
 141   else if ((text[1] == 'c') && (text[2] == '\0'))
 142     opt = OPTION_c, skip = 0;
 143   else if ((text[1] == 'E') && (text[2] == '\0'))
 144     opt = OPTION_E, skip = 0;
 145   else if (text[1] == 'i')
 146     opt = OPTION_i, skip = 0;
 147   else if (text[1] == 'l')
 148     opt = OPTION_l;
 149   else if (text[1] == 'L')
 150     opt = OPTION_L, arg = text + 2;
 151   else if (text[1] == 'o')
 152     opt = OPTION_o;
 153   else if ((text[1] == 'S') && (text[2] == '\0'))
 154     opt = OPTION_S, skip = 0;
 155   else if (text[1] == 'V')
 156     opt = OPTION_V, skip = (text[2] == '\0');
 157   else if ((text[1] == 'v') && (text[2] == '\0'))
 158     opt = OPTION_v, skip = 0;
 159   else if (text[1] == 'x')
 160     opt = OPTION_x, arg = text + 2;
 161   else
 162     {
 163       if ((skip = WORD_SWITCH_TAKES_ARG (text + 1)) != 0)       /* See gcc.c.  */
 164         ;
 165       else if (!strcmp (text, "-fhelp"))        /* Really --help!! */
 166         opt = OPTION_help;
 167       else if (!strcmp (text, "-nostdlib")
 168                || !strcmp (text, "-nodefaultlibs"))
 169         opt = OPTION_nostdlib;
 170       else if (!strcmp (text, "-fsyntax-only"))
 171         opt = OPTION_syntax_only;
 172       else if (!strcmp (text, "-dumpversion"))
 173         opt = OPTION_version;
 174       else if (!strcmp (text, "-fversion"))     /* Really --version!! */
 175         opt = OPTION_version;
 176       else if (!strcmp (text, "-Xlinker") || !strcmp (text, "-specs"))
 177         skip = 1;
 178       else
 179         skip = 0;
 180     }
 181
 182   if (xopt != NULL)
 183     *xopt = opt;
 184   if (xskip != NULL)
 185     *xskip = skip;
 186   if (xarg != NULL)
 187     {
 188       if ((arg != NULL) && (arg[0] == '\0'))
 189         *xarg = NULL;
 190       else
 191         *xarg = arg;
 192     }
 193 }
 194
 195 /* Append another argument to the list being built.  As long as it is
 196    identical to the corresponding arg in the original list, just increment
 197    the new arg count.  Otherwise allocate a new list, etc.  */
 198
 199 static void
 200 append_arg (const char *arg)
 201 {
 202   static int newargsize;
 203
 204 #if 0
 205   fprintf (stderr, "`%s'\n", arg);
 206 #endif
 207
 208   if (g77_newargv == g77_xargv
 209       && g77_newargc < g77_xargc
 210       && (arg == g77_xargv[g77_newargc]
 211           || !strcmp (arg, g77_xargv[g77_newargc])))
 212     {
 213       ++g77_newargc;
 214       return;                   /* Nothing new here.  */
 215     }
 216
 217   if (g77_newargv == g77_xargv)
 218     {                           /* Make new arglist.  */
 219       int i;
 220
 221       newargsize = (g77_xargc << 2) + 20;       /* This should handle all.  */
 222       g77_newargv = (const char **) xmalloc (newargsize * sizeof (char *));
 223
 224       /* Copy what has been done so far.  */
 225       for (i = 0; i < g77_newargc; ++i)
 226         g77_newargv[i] = g77_xargv[i];
 227     }
 228
 229   if (g77_newargc == newargsize)
 230     fatal ("overflowed output arg list for '%s'", arg);
 231
 232   g77_newargv[g77_newargc++] = arg;
 233 }
 234
 235 void
 236 lang_specific_driver (int *in_argc, const char *const **in_argv,
 237                       int *in_added_libraries ATTRIBUTE_UNUSED)
 238 {
 239   int argc = *in_argc;
 240   const char *const *argv = *in_argv;
 241   int i;
 242   int verbose = 0;
 243   Option opt;
 244   int skip;
 245   const char *arg;
 246
 247   /* This will be NULL if we encounter a situation where we should not
 248      link in libf2c.  */
 249   const char *library = FORTRAN_LIBRARY;
 250
 251   /* 0 => -xnone in effect.
 252      1 => -xfoo in effect.  */
 253   int saw_speclang = 0;
 254
 255   /* 0 => initial/reset state
 256      1 => last arg was -l<library>
 257      2 => last two args were -l<library> -lm.  */
 258   int saw_library = 0;
 259
 260   /* 0 => initial/reset state
 261      1 => FORTRAN_INIT linked in */
 262   int use_init = 0;
 263
 264   /* By default, we throw on the math library if we have one.  */
 265   int need_math = (MATH_LIBRARY[0] != '\0');
 266
 267   /* The number of input and output files in the incoming arg list.  */
 268   int n_infiles = 0;
 269   int n_outfiles = 0;
 270
 271 #if 0
 272   fprintf (stderr, "Incoming:");
 273   for (i = 0; i < argc; i++)
 274     fprintf (stderr, " %s", argv[i]);
 275   fprintf (stderr, "\n");
 276 #endif
 277
 278   g77_xargc = argc;
 279   g77_xargv = argv;
 280   g77_newargc = 0;
 281   g77_newargv = (const char **) argv;
 282
 283   /* First pass through arglist.
 284
 285      If -nostdlib or a "turn-off-linking" option is anywhere in the
 286      command line, don't do any library-option processing (except
 287      relating to -x).  Also, if -v is specified, but no other options
 288      that do anything special (allowing -V version, etc.), remember
 289      to add special stuff to make gcc command actually invoke all
 290      the different phases of the compilation process so all the version
 291      numbers can be seen.
 292
 293      Also, here is where all problems with missing arguments to options
 294      are caught.  If this loop is exited normally, it means all options
 295      have the appropriate number of arguments as far as the rest of this
 296      program is concerned.  */
 297
 298   for (i = 1; i < argc; ++i)
 299     {
 300       if ((argv[i][0] == '+') && (argv[i][1] == 'e'))
 301         {
 302           continue;
 303         }
 304
 305       if ((argv[i][0] != '-') || (argv[i][1] == '\0'))
 306         {
 307           ++n_infiles;
 308           continue;
 309         }
 310
 311       lookup_option (&opt, &skip, NULL, argv[i]);
 312
 313       switch (opt)
 314         {
 315         case OPTION_nostdlib:
 316         case OPTION_c:
 317         case OPTION_S:
 318         case OPTION_syntax_only:
 319         case OPTION_E:
 320           /* These options disable linking entirely or linking of the
 321              standard libraries.  */
 322           library = 0;
 323           break;
 324
 325         case OPTION_l:
 326           ++n_infiles;
 327           break;
 328
 329         case OPTION_o:
 330           ++n_outfiles;
 331           break;
 332
 333         case OPTION_v:
 334           verbose = 1;
 335           break;
 336
 337         case OPTION_b:
 338         case OPTION_B:
 339         case OPTION_L:
 340         case OPTION_i:
 341         case OPTION_V:
 342           /* These options are useful in conjunction with -v to get
 343              appropriate version info.  */
 344           break;
 345
 346         case OPTION_version:
 347           printf ("GNU Fortran 95 (GCC) %s\n", version_string);
 348           printf ("Copyright %s 2006 Free Software Foundation, Inc.\n\n",
 349                   _("(C)"));
 350           printf (_("GNU Fortran comes with NO WARRANTY, to the extent permitted by law.\n\
 351 You may redistribute copies of GNU Fortran\n\
 352 under the terms of the GNU General Public License.\n\
 353 For more information about these matters, see the file named COPYING\n\n"));
 354           exit (0);
 355           break;
 356
 357         case OPTION_help:
 358           /* Let gcc.c handle this, as it has a really
 359              cool facility for handling --help and --verbose --help.  */
 360           return;
 361
 362         default:
 363           break;
 364         }
 365
 366       /* This is the one place we check for missing arguments in the
 367          program.  */
 368
 369       if (i + skip < argc)
 370         i += skip;
 371       else
 372         fatal ("argument to '%s' missing", argv[i]);
 373     }
 374
 375   if ((n_outfiles != 0) && (n_infiles == 0))
 376     fatal ("no input files; unwilling to write output files");
 377
 378   /* If there are no input files, no need for the library.  */
 379   if (n_infiles == 0)
 380     library = 0;
 381
 382   /* Second pass through arglist, transforming arguments as appropriate.  */
 383
 384   append_arg (argv[0]);         /* Start with command name, of course.  */
 385
 386   for (i = 1; i < argc; ++i)
 387     {
 388       if (argv[i][0] == '\0')
 389         {
 390           append_arg (argv[i]); /* Interesting.  Just append as is.  */
 391           continue;
 392         }
 393
 394       if ((argv[i][0] == '-') && (argv[i][1] == 'M'))
 395         {
 396           char *p;
 397
 398           if (argv[i][2] == '\0')
 399             {
 400               p = XNEWVEC (char, strlen (argv[i + 1]) + 2);
 401               p[0] = '-';
 402               p[1] = 'J';
 403               strcpy (&p[2], argv[i + 1]);
 404               i++;
 405             }
 406           else
 407             {
 408               p = XNEWVEC (char, strlen (argv[i]) + 1);
 409               strcpy (p, argv[i]);
 410             }
 411           append_arg (p);
 412           continue;
 413         }
 414
 415       if ((argv[i][0] == '-') && (argv[i][1] != 'l'))
 416         {
 417           /* Not a filename or library.  */
 418
 419           if (saw_library == 1 && need_math)    /* -l<library>.  */
 420             append_arg (MATH_LIBRARY);
 421
 422           saw_library = 0;
 423
 424           lookup_option (&opt, &skip, &arg, argv[i]);
 425
 426           if (argv[i][1] == '\0')
 427             {
 428               append_arg (argv[i]);     /* "-" == Standard input.  */
 429               continue;
 430             }
 431
 432           if (opt == OPTION_x)
 433             {
 434               /* Track input language.  */
 435               const char *lang;
 436
 437               if (arg == NULL)
 438                 lang = argv[i + 1];
 439               else
 440                 lang = arg;
 441
 442               saw_speclang = (strcmp (lang, "none") != 0);
 443             }
 444
 445           append_arg (argv[i]);
 446
 447           for (; skip != 0; --skip)
 448             append_arg (argv[++i]);
 449
 450           continue;
 451         }
 452
 453       /* A filename/library, not an option.  */
 454
 455       if (saw_speclang)
 456         saw_library = 0;        /* -xfoo currently active.  */
 457       else
 458         {                       /* -lfoo or filename.  */
 459           if (strcmp (argv[i], MATH_LIBRARY) == 0)
 460             {
 461               if (saw_library == 1)
 462                 saw_library = 2;        /* -l<library> -lm.  */
 463               else
 464                 {
 465                   if (0 == use_init)
 466                     {
 467                       append_arg (FORTRAN_INIT);
 468                       use_init = 1;
 469                     }
 470                   append_arg (FORTRAN_LIBRARY);
 471                 }
 472             }
 473           else if (strcmp (argv[i], FORTRAN_LIBRARY) == 0)
 474             saw_library = 1;    /* -l<library>.  */
 475           else
 476             {                   /* Other library, or filename.  */
 477               if (saw_library == 1 && need_math)
 478                 append_arg (MATH_LIBRARY);
 479               saw_library = 0;
 480             }
 481         }
 482       append_arg (argv[i]);
 483     }
 484
 485   /* Append `-lg2c -lm' as necessary.  */
 486
 487   if (library)
 488     {                           /* Doing a link and no -nostdlib.  */
 489       if (saw_speclang)
 490         append_arg ("-xnone");
 491
 492       switch (saw_library)
 493         {
 494         case 0:
 495           if (0 == use_init)
 496             {
 497               append_arg (FORTRAN_INIT);
 498               use_init = 1;
 499             }
 500           append_arg (library);
 501         case 1:
 502           if (need_math)
 503             append_arg (MATH_LIBRARY);
 504         default:
 505           break;
 506         }
 507     }
 508
 509 #ifdef ENABLE_SHARED_LIBGCC
 510   if (library)
 511     {
 512       int i;
 513
 514       for (i = 1; i < g77_newargc; i++)
 515         if (g77_newargv[i][0] == '-')
 516           if (strcmp (g77_newargv[i], "-static-libgcc") == 0
 517               || strcmp (g77_newargv[i], "-static") == 0)
 518             break;
 519
 520       if (i == g77_newargc)
 521         append_arg ("-shared-libgcc");
 522     }
 523
 524 #endif
 525
 526   if (verbose && g77_newargv != g77_xargv)
 527     {
 528       fprintf (stderr, _("Driving:"));
 529       for (i = 0; i < g77_newargc; i++)
 530         fprintf (stderr, " %s", g77_newargv[i]);
 531       fprintf (stderr, "\n");
 532     }
 533
 534   *in_argc = g77_newargc;
 535   *in_argv = g77_newargv;
 536 }
 537
 538 /* Called before linking.  Returns 0 on success and -1 on failure.  */
 539 int
 540 lang_specific_pre_link (void)   /* Not used for F77.  */
 541 {
 542   return 0;
 543 }
 544
 545 /* Number of extra output files that lang_specific_pre_link may generate.  */
 546 int lang_specific_extra_outfiles = 0;   /* Not used for F77.  */