Subversion Repositories openrisc

/* Copyright (C) 2008, 2009 Free Software Foundation, Inc.

This file is part of GCC.

GCC is free software; you can redistribute it and/or modify it under

the terms of the GNU General Public License as published by the Free

Software Foundation; either version 3, or (at your option) any later

version.

GCC is distributed in the hope that it will be useful, but WITHOUT ANY

WARRANTY; without even the implied warranty of MERCHANTABILITY or

FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License

for more details.

You should have received a copy of the GNU General Public License

along with GCC; see the file COPYING3.  If not see

<http://www.gnu.org/licenses/>.  */

#include "config.h"

#include "system.h"

#include "coretypes.h"

#include "tm.h"

#include "tree.h"

#include "version.h"

#include "flags.h"

#include "options.h"

#include "gfortran.h"

#include "tm_p.h"               /* Target prototypes.  */

#include "target.h"

#include "toplev.h"

#include "diagnostic.h"

#include "../../libcpp/internal.h"

#include "cpp.h"

#include "incpath.h"

#include "mkdeps.h"

#ifndef TARGET_OS_CPP_BUILTINS

# define TARGET_OS_CPP_BUILTINS()

#endif

#ifndef TARGET_OBJFMT_CPP_BUILTINS

# define TARGET_OBJFMT_CPP_BUILTINS()

#endif

/* Holds switches parsed by gfc_cpp_handle_option (), but whose

   handling is deferred to gfc_cpp_init ().  */

typedef struct

{

    enum opt_code code;

    const char *arg;

}

gfc_cpp_deferred_opt_t;

/* Defined and undefined macros being queued for output with -dU at

   the next newline.  */

typedef struct gfc_cpp_macro_queue

{

  struct gfc_cpp_macro_queue *next;     /* Next macro in the list.  */

  char *macro;                          /* The name of the macro if not

                                           defined, the full definition if

                                           defined.  */

} gfc_cpp_macro_queue;

static gfc_cpp_macro_queue *cpp_define_queue, *cpp_undefine_queue;

struct gfc_cpp_option_data

{

  /* Argument of -cpp, implied by SPEC;

     if NULL, preprocessing disabled.  */

  const char *temporary_filename;

  const char *output_filename;          /* -o <arg>  */

  int preprocess_only;                  /* -E  */

  int discard_comments;                 /* -C  */

  int discard_comments_in_macro_exp;    /* -CC  */

  int print_include_names;              /* -H  */

  int no_line_commands;                 /* -P  */

  char dump_macros;                     /* -d[DMNU]  */

  int dump_includes;                    /* -dI  */

  int working_directory;                /* -fworking-directory  */

  int no_predefined;                    /* -undef */

  int standard_include_paths;           /* -nostdinc */

  int verbose;                          /* -v */

  int deps;                             /* -M */

  int deps_skip_system;                 /* -MM */

  const char *deps_filename;            /* -M[M]D */

  const char *deps_filename_user;       /* -MF <arg> */

  int deps_missing_are_generated;       /* -MG */

  int deps_phony;                       /* -MP */

  const char *multilib;                 /* -imultilib <dir>  */

  const char *prefix;                   /* -iprefix <dir>  */

  const char *sysroot;                  /* -isysroot <dir>  */

  /* Options whose handling needs to be deferred until the

     appropriate cpp-objects are created:

      -A predicate=answer

      -D <macro>[=<val>]

      -U <macro>  */

  gfc_cpp_deferred_opt_t *deferred_opt;

  int deferred_opt_count;

}

gfc_cpp_option;

/* Structures used with libcpp:  */

static cpp_options *cpp_option = NULL;

static cpp_reader *cpp_in = NULL;

/* Defined in toplev.c.  */

extern const char *asm_file_name;

/* Encapsulates state used to convert a stream of cpp-tokens into

   a text file.  */

static struct

{

  FILE *outf;                   /* Stream to write to.  */

  const cpp_token *prev;        /* Previous token.  */

  const cpp_token *source;      /* Source token for spacing.  */

  int src_line;                 /* Line number currently being written.  */

  unsigned char printed;        /* Nonzero if something output at line.  */

  bool first_time;              /* cb_file_change hasn't been called yet.  */

} print;

/* General output routines.  */

static void scan_translation_unit (cpp_reader *);

static void scan_translation_unit_trad (cpp_reader *);

/* Callback routines for the parser. Most of these are active only

   in specific modes.  */

static void cb_file_change (cpp_reader *, const struct line_map *);

static void cb_line_change (cpp_reader *, const cpp_token *, int);

static void cb_define (cpp_reader *, source_location, cpp_hashnode *);

static void cb_undef (cpp_reader *, source_location, cpp_hashnode *);

static void cb_def_pragma (cpp_reader *, source_location);

static void cb_include (cpp_reader *, source_location, const unsigned char *,

                        const char *, int, const cpp_token **);

static void cb_ident (cpp_reader *, source_location, const cpp_string *);

static void cb_used_define (cpp_reader *, source_location, cpp_hashnode *);

static void cb_used_undef (cpp_reader *, source_location, cpp_hashnode *);

static bool cb_cpp_error (cpp_reader *, int, location_t, unsigned int,

                          const char *, va_list *)

     ATTRIBUTE_GCC_DIAG(5,0);

void pp_dir_change (cpp_reader *, const char *);

static int dump_macro (cpp_reader *, cpp_hashnode *, void *);

static void dump_queued_macros (cpp_reader *);

static void

cpp_define_builtins (cpp_reader *pfile)

{

  int major, minor, patchlevel;

  /* Initialize CPP built-ins; '1' corresponds to 'flag_hosted'

     in C, defines __STDC_HOSTED__?!  */

  cpp_init_builtins (pfile, 0);

  /* Initialize GFORTRAN specific builtins.

     These are documented.  */

  if (sscanf (BASEVER, "%d.%d.%d", &major, &minor, &patchlevel) != 3)

    {

      sscanf (BASEVER, "%d.%d", &major, &minor);

      patchlevel = 0;

    }

  cpp_define_formatted (pfile, "__GNUC__=%d", major);

  cpp_define_formatted (pfile, "__GNUC_MINOR__=%d", minor);

  cpp_define_formatted (pfile, "__GNUC_PATCHLEVEL__=%d", patchlevel);

  cpp_define (pfile, "__GFORTRAN__=1");

  cpp_define (pfile, "_LANGUAGE_FORTRAN=1");

  if (gfc_option.flag_openmp)

    cpp_define (pfile, "_OPENMP=200805");

  /* More builtins that might be useful, but are not documented

     (in no particular order).  */

  cpp_define_formatted (pfile, "__VERSION__=\"%s\"", version_string);

  if (flag_pic)

    {

      cpp_define_formatted (pfile, "__pic__=%d", flag_pic);

      cpp_define_formatted (pfile, "__PIC__=%d", flag_pic);

    }

  if (flag_pie)

    {

      cpp_define_formatted (pfile, "__pie__=%d", flag_pie);

      cpp_define_formatted (pfile, "__PIE__=%d", flag_pie);

    }

  if (optimize_size)

    cpp_define (pfile, "__OPTIMIZE_SIZE__");

  if (optimize)

    cpp_define (pfile, "__OPTIMIZE__");

  if (fast_math_flags_set_p ())

    cpp_define (pfile, "__FAST_MATH__");

  if (flag_signaling_nans)

    cpp_define (pfile, "__SUPPORT_SNAN__");

  cpp_define_formatted (pfile, "__FINITE_MATH_ONLY__=%d", flag_finite_math_only);

  /* Definitions for LP64 model. */

  if (TYPE_PRECISION (long_integer_type_node) == 64

      && POINTER_SIZE == 64

      && TYPE_PRECISION (integer_type_node) == 32)

    {

      cpp_define (pfile, "_LP64");

      cpp_define (pfile, "__LP64__");

    }

  /* Define NAME with value TYPE size_unit.

     The C-side also defines __SIZEOF_WCHAR_T__, __SIZEOF_WINT_T__

     __SIZEOF_PTRDIFF_T__, however, fortran seems to lack the

     appropriate type nodes.  */

#define define_type_sizeof(NAME, TYPE)                             \

    cpp_define_formatted (pfile, NAME"="HOST_WIDE_INT_PRINT_DEC,   \

                          tree_low_cst (TYPE_SIZE_UNIT (TYPE), 1))

  define_type_sizeof ("__SIZEOF_INT__", integer_type_node);

  define_type_sizeof ("__SIZEOF_LONG__", long_integer_type_node);

  define_type_sizeof ("__SIZEOF_LONG_LONG__", long_long_integer_type_node);

  define_type_sizeof ("__SIZEOF_SHORT__", short_integer_type_node);

  define_type_sizeof ("__SIZEOF_FLOAT__", float_type_node);

  define_type_sizeof ("__SIZEOF_DOUBLE__", double_type_node);

  define_type_sizeof ("__SIZEOF_LONG_DOUBLE__", long_double_type_node);

  define_type_sizeof ("__SIZEOF_SIZE_T__", size_type_node);

#undef define_type_sizeof

  /* The defines below are necessary for the TARGET_* macros.

     FIXME:  Note that builtin_define_std() actually is a function

     in c-cppbuiltin.c which uses flags undefined for Fortran.

     Let's skip this for now. If needed, one needs to look into it

     once more.  */

# define builtin_define(TXT) cpp_define (pfile, TXT)

# define builtin_define_std(TXT)

# define builtin_assert(TXT) cpp_assert (pfile, TXT)

  /* FIXME: Pandora's Box

    Using the macros below results in multiple breakages:

     - mingw will fail to compile this file as dependent macros

       assume to be used in c-cppbuiltin.c only. Further, they use

       flags only valid/defined in C (same as noted above).

       [config/i386/mingw32.h, config/i386/cygming.h]

     - other platforms (not as popular) break similarly

       [grep for 'builtin_define_with_int_value' in gcc/config/]

  TARGET_CPU_CPP_BUILTINS ();

  TARGET_OS_CPP_BUILTINS ();

  TARGET_OBJFMT_CPP_BUILTINS (); */

#undef builtin_define

#undef builtin_define_std

#undef builtin_assert

}

bool

gfc_cpp_enabled (void)

{

  return gfc_cpp_option.temporary_filename != NULL;

}

bool

gfc_cpp_preprocess_only (void)

{

  return gfc_cpp_option.preprocess_only;

}

bool

gfc_cpp_makedep (void)

{

  return gfc_cpp_option.deps;

}

void

gfc_cpp_add_dep (const char *name, bool system)

{

  if (!gfc_cpp_option.deps_skip_system || !system)

    deps_add_dep (cpp_get_deps (cpp_in), name);

}

void

gfc_cpp_add_target (const char *name)

{

  deps_add_target (cpp_get_deps (cpp_in), name, 0);

}

const char *

gfc_cpp_temporary_file (void)

{

  return gfc_cpp_option.temporary_filename;

}

void

gfc_cpp_init_options (unsigned int argc,

                      const char **argv ATTRIBUTE_UNUSED)

{

  /* Do not create any objects from libcpp here. If no

     preprocessing is requested, this would be wasted

     time and effort.

     See gfc_cpp_post_options() instead.  */

  gfc_cpp_option.temporary_filename = NULL;

  gfc_cpp_option.output_filename = NULL;

  gfc_cpp_option.preprocess_only = 0;

  gfc_cpp_option.discard_comments = 1;

  gfc_cpp_option.discard_comments_in_macro_exp = 1;

  gfc_cpp_option.print_include_names = 0;

  gfc_cpp_option.no_line_commands = 0;

  gfc_cpp_option.dump_macros = '\0';

  gfc_cpp_option.dump_includes = 0;

  gfc_cpp_option.working_directory = -1;

  gfc_cpp_option.no_predefined = 0;

  gfc_cpp_option.standard_include_paths = 1;

  gfc_cpp_option.verbose = 0;

  gfc_cpp_option.deps = 0;

  gfc_cpp_option.deps_skip_system = 0;

  gfc_cpp_option.deps_phony = 0;

  gfc_cpp_option.deps_missing_are_generated = 0;

  gfc_cpp_option.deps_filename = NULL;

  gfc_cpp_option.deps_filename_user = NULL;

  gfc_cpp_option.multilib = NULL;

  gfc_cpp_option.prefix = NULL;

  gfc_cpp_option.sysroot = NULL;

  gfc_cpp_option.deferred_opt = XNEWVEC (gfc_cpp_deferred_opt_t, argc);

  gfc_cpp_option.deferred_opt_count = 0;

}

int

gfc_cpp_handle_option (size_t scode, const char *arg, int value ATTRIBUTE_UNUSED)

{

  int result = 1;

  enum opt_code code = (enum opt_code) scode;

  switch (code)

  {

    default:

      result = 0;

      break;

    case OPT_cpp:

      gfc_cpp_option.temporary_filename = arg;

      break;

    case OPT_nocpp:

      gfc_cpp_option.temporary_filename = 0L;

      break;

    case OPT_d:

      for ( ; *arg; ++arg)

        switch (*arg)

        {

          case 'D':

          case 'M':

          case 'N':

          case 'U':

            gfc_cpp_option.dump_macros = *arg;

            break;

          case 'I':

            gfc_cpp_option.dump_includes = 1;

            break;

        }

      break;

    case OPT_fworking_directory:

      gfc_cpp_option.working_directory = value;

      break;

    case OPT_idirafter:

      gfc_cpp_add_include_path_after (xstrdup(arg), true);

      break;

    case OPT_imultilib:

      gfc_cpp_option.multilib = arg;

      break;

    case OPT_iprefix:

      gfc_cpp_option.prefix = arg;

      break;

    case OPT_isysroot:

      gfc_cpp_option.sysroot = arg;

      break;

    case OPT_iquote:

    case OPT_isystem:

      gfc_cpp_add_include_path (xstrdup(arg), true);

      break;

    case OPT_nostdinc:

      gfc_cpp_option.standard_include_paths = value;

      break;

    case OPT_o:

      if (!gfc_cpp_option.output_filename)

        gfc_cpp_option.output_filename = arg;

      else

        gfc_fatal_error ("output filename specified twice");

      break;

    case OPT_undef:

      gfc_cpp_option.no_predefined = value;

      break;

    case OPT_v:

      gfc_cpp_option.verbose = value;

      break;

    case OPT_A:

    case OPT_D:

    case OPT_U:

      gfc_cpp_option.deferred_opt[gfc_cpp_option.deferred_opt_count].code = code;

      gfc_cpp_option.deferred_opt[gfc_cpp_option.deferred_opt_count].arg = arg;

      gfc_cpp_option.deferred_opt_count++;

      break;

    case OPT_C:

      gfc_cpp_option.discard_comments = 0;

      break;

    case OPT_CC:

      gfc_cpp_option.discard_comments = 0;

      gfc_cpp_option.discard_comments_in_macro_exp = 0;

      break;

    case OPT_E:

      gfc_cpp_option.preprocess_only = 1;

      break;

    case OPT_H:

      gfc_cpp_option.print_include_names = 1;

      break;

    case OPT_MM:

      gfc_cpp_option.deps_skip_system = 1;

      /* fall through */

    case OPT_M:

      gfc_cpp_option.deps = 1;

      break;

    case OPT_MMD:

      gfc_cpp_option.deps_skip_system = 1;

      /* fall through */

    case OPT_MD:

      gfc_cpp_option.deps = 1;

      gfc_cpp_option.deps_filename = arg;

      break;

    case OPT_MF:

      /* If specified multiple times, last one wins.  */

      gfc_cpp_option.deps_filename_user = arg;

      break;

    case OPT_MG:

      gfc_cpp_option.deps_missing_are_generated = 1;

      break;

    case OPT_MP:

      gfc_cpp_option.deps_phony = 1;

      break;

    case OPT_MQ:

    case OPT_MT:

      gfc_cpp_option.deferred_opt[gfc_cpp_option.deferred_opt_count].code = code;

      gfc_cpp_option.deferred_opt[gfc_cpp_option.deferred_opt_count].arg = arg;

      gfc_cpp_option.deferred_opt_count++;

      break;

    case OPT_P:

      gfc_cpp_option.no_line_commands = 1;

      break;

  }

  return result;

}

void

gfc_cpp_post_options (void)

{

  /* Any preprocessing-related option without '-cpp' is considered

     an error.  */

  if (!gfc_cpp_enabled ()

      && (gfc_cpp_preprocess_only ()

          || gfc_cpp_makedep ()

          || !gfc_cpp_option.discard_comments

          || !gfc_cpp_option.discard_comments_in_macro_exp

          || gfc_cpp_option.print_include_names

          || gfc_cpp_option.no_line_commands

          || gfc_cpp_option.dump_macros

          || gfc_cpp_option.dump_includes))

    gfc_fatal_error("To enable preprocessing, use -cpp");

  cpp_in = cpp_create_reader (CLK_GNUC89, NULL, line_table);

  if (!gfc_cpp_enabled ())

    return;

  gcc_assert (cpp_in);

  /* The cpp_options-structure defines far more flags than those set here.

     If any other is implemented, see c-opt.c (sanitize_cpp_opts) for

     inter-option dependencies that may need to be enforced.  */

  cpp_option = cpp_get_options (cpp_in);

  gcc_assert (cpp_option);

  /* TODO: allow non-traditional modes, e.g. by -cpp-std=...?  */

  cpp_option->traditional = 1;

  cpp_option->cplusplus_comments = 0;

  cpp_option->pedantic = pedantic;

  cpp_option->dollars_in_ident = gfc_option.flag_dollar_ok;

  cpp_option->discard_comments = gfc_cpp_option.discard_comments;

  cpp_option->discard_comments_in_macro_exp = gfc_cpp_option.discard_comments_in_macro_exp;

  cpp_option->print_include_names = gfc_cpp_option.print_include_names;

  cpp_option->preprocessed = gfc_option.flag_preprocessed;

  if (gfc_cpp_makedep ())

    {

      cpp_option->deps.style = DEPS_USER;

      cpp_option->deps.phony_targets = gfc_cpp_option.deps_phony;

      cpp_option->deps.missing_files = gfc_cpp_option.deps_missing_are_generated;

      /* -MF <arg> overrides -M[M]D.  */

      if (gfc_cpp_option.deps_filename_user)

        gfc_cpp_option.deps_filename = gfc_cpp_option.deps_filename_user;

  }

  if (gfc_cpp_option.working_directory == -1)

    gfc_cpp_option.working_directory = (debug_info_level != DINFO_LEVEL_NONE);

  cpp_post_options (cpp_in);

  gfc_cpp_register_include_paths ();

}

void

gfc_cpp_init_0 (void)

{

  struct cpp_callbacks *cb;

  cb = cpp_get_callbacks (cpp_in);

  cb->file_change = cb_file_change;

  cb->line_change = cb_line_change;

  cb->ident = cb_ident;

  cb->def_pragma = cb_def_pragma;

  cb->error = cb_cpp_error;

  if (gfc_cpp_option.dump_includes)

    cb->include = cb_include;

  if ((gfc_cpp_option.dump_macros == 'D')

      || (gfc_cpp_option.dump_macros == 'N'))

    {

      cb->define = cb_define;

      cb->undef  = cb_undef;

    }

  if (gfc_cpp_option.dump_macros == 'U')

    {

      cb->before_define = dump_queued_macros;

      cb->used_define = cb_used_define;

      cb->used_undef = cb_used_undef;

    }

  /* Initialize the print structure.  Setting print.src_line to -1 here is

     a trick to guarantee that the first token of the file will cause

     a linemarker to be output by maybe_print_line.  */

  print.src_line = -1;

  print.printed = 0;

  print.prev = 0;

  print.first_time = 1;

  if (gfc_cpp_preprocess_only ())

    {

      if (gfc_cpp_option.output_filename)

        {

          /* This needs cheating: with "-E -o <file>", the user wants the

             preprocessed output in <file>. However, if nothing is done

             about it <file> is also used for assembler output. Hence, it

             is necessary to redirect assembler output (actually nothing

             as -E implies -fsyntax-only) to another file, otherwise the

             output from preprocessing is lost.  */

          asm_file_name = gfc_cpp_option.temporary_filename;

          print.outf = fopen (gfc_cpp_option.output_filename, "w");

          if (print.outf == NULL)

            gfc_fatal_error ("opening output file %s: %s",

                             gfc_cpp_option.output_filename, strerror(errno));

        }

      else

        print.outf = stdout;

    }

  else

    {

      print.outf = fopen (gfc_cpp_option.temporary_filename, "w");

      if (print.outf == NULL)

        gfc_fatal_error ("opening output file %s: %s",

                         gfc_cpp_option.temporary_filename, strerror(errno));

    }

  gcc_assert(cpp_in);

  if (!cpp_read_main_file (cpp_in, gfc_source_file))

    errorcount++;

}

void

gfc_cpp_init (void)

{

  int i;

  if (gfc_option.flag_preprocessed)

    return;

  cpp_change_file (cpp_in, LC_RENAME, _("<built-in>"));

  if (!gfc_cpp_option.no_predefined)

    cpp_define_builtins (cpp_in);

  /* Handle deferred options from command-line.  */

  cpp_change_file (cpp_in, LC_RENAME, _("<command-line>"));

  for (i = 0; i < gfc_cpp_option.deferred_opt_count; i++)

    {

      gfc_cpp_deferred_opt_t *opt = &gfc_cpp_option.deferred_opt[i];

      if (opt->code == OPT_D)

        cpp_define (cpp_in, opt->arg);

      else if (opt->code == OPT_U)

        cpp_undef (cpp_in, opt->arg);

      else if (opt->code == OPT_A)

        {

          if (opt->arg[0] == '-')

            cpp_unassert (cpp_in, opt->arg + 1);

          else

            cpp_assert (cpp_in, opt->arg);

        }

      else if (opt->code == OPT_MT || opt->code == OPT_MQ)

        deps_add_target (cpp_get_deps (cpp_in),

                         opt->arg, opt->code == OPT_MQ);

    }

  if (gfc_cpp_option.working_directory

      && gfc_cpp_option.preprocess_only && !gfc_cpp_option.no_line_commands)

    pp_dir_change (cpp_in, get_src_pwd ());

}

gfc_try

gfc_cpp_preprocess (const char *source_file)

{

  if (!gfc_cpp_enabled ())

    return FAILURE;

  cpp_change_file (cpp_in, LC_RENAME, source_file);

  if (cpp_option->traditional)

    scan_translation_unit_trad (cpp_in);

  else

    scan_translation_unit (cpp_in);

  /* -dM command line option.  */

  if (gfc_cpp_preprocess_only () &&

      gfc_cpp_option.dump_macros == 'M')

    {

      putc ('\n', print.outf);

      cpp_forall_identifiers (cpp_in, dump_macro, NULL);

    }

  putc ('\n', print.outf);

  if (!gfc_cpp_preprocess_only ()

      || (gfc_cpp_preprocess_only () && gfc_cpp_option.output_filename))

    fclose (print.outf);

  return SUCCESS;

}

void

gfc_cpp_done (void)

{

  if (!gfc_cpp_enabled ())