Subversion Repositories openrisc

/* Subroutines used for macro/preprocessor support on the ia-32.

   Copyright (C) 2008, 2009, 2010

   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 "tm_p.h"

#include "flags.h"

#include "c-family/c-common.h"

#include "ggc.h"

#include "target.h"

#include "target-def.h"

#include "cpplib.h"

#include "c-family/c-pragma.h"

static bool ix86_pragma_target_parse (tree, tree);

static void ix86_target_macros_internal

  (HOST_WIDE_INT, enum processor_type, enum processor_type, enum fpmath_unit,

   void (*def_or_undef) (cpp_reader *, const char *));

/* Internal function to either define or undef the appropriate system

   macros.  */

static void

ix86_target_macros_internal (HOST_WIDE_INT isa_flag,

                             enum processor_type arch,

                             enum processor_type tune,

                             enum fpmath_unit fpmath,

                             void (*def_or_undef) (cpp_reader *,

                                                   const char *))

{

  /* For some of the k6/pentium varients there weren't seperate ISA bits to

     identify which tune/arch flag was passed, so figure it out here.  */

  size_t arch_len = strlen (ix86_arch_string);

  size_t tune_len = strlen (ix86_tune_string);

  int last_arch_char = ix86_arch_string[arch_len - 1];

  int last_tune_char = ix86_tune_string[tune_len - 1];

  /* Built-ins based on -march=.  */

  switch (arch)

    {

    case PROCESSOR_I386:

      break;

    case PROCESSOR_I486:

      def_or_undef (parse_in, "__i486");

      def_or_undef (parse_in, "__i486__");

      break;

    case PROCESSOR_PENTIUM:

      def_or_undef (parse_in, "__i586");

      def_or_undef (parse_in, "__i586__");

      def_or_undef (parse_in, "__pentium");

      def_or_undef (parse_in, "__pentium__");

      if (isa_flag & OPTION_MASK_ISA_MMX)

        def_or_undef (parse_in, "__pentium_mmx__");

      break;

    case PROCESSOR_PENTIUMPRO:

      def_or_undef (parse_in, "__i686");

      def_or_undef (parse_in, "__i686__");

      def_or_undef (parse_in, "__pentiumpro");

      def_or_undef (parse_in, "__pentiumpro__");

      break;

    case PROCESSOR_GEODE:

      def_or_undef (parse_in, "__geode");

      def_or_undef (parse_in, "__geode__");

      break;

    case PROCESSOR_K6:

      def_or_undef (parse_in, "__k6");

      def_or_undef (parse_in, "__k6__");

      if (last_arch_char == '2')

        def_or_undef (parse_in, "__k6_2__");

      else if (last_arch_char == '3')

        def_or_undef (parse_in, "__k6_3__");

      else if (isa_flag & OPTION_MASK_ISA_3DNOW)

        def_or_undef (parse_in, "__k6_3__");

      break;

    case PROCESSOR_ATHLON:

      def_or_undef (parse_in, "__athlon");

      def_or_undef (parse_in, "__athlon__");

      if (isa_flag & OPTION_MASK_ISA_SSE)

        def_or_undef (parse_in, "__athlon_sse__");

      break;

    case PROCESSOR_K8:

      def_or_undef (parse_in, "__k8");

      def_or_undef (parse_in, "__k8__");

      break;

    case PROCESSOR_AMDFAM10:

      def_or_undef (parse_in, "__amdfam10");

      def_or_undef (parse_in, "__amdfam10__");

      break;

    case PROCESSOR_BDVER1:

      def_or_undef (parse_in, "__bdver1");

      def_or_undef (parse_in, "__bdver1__");

      break;

    case PROCESSOR_BDVER2:

      def_or_undef (parse_in, "__bdver2");

      def_or_undef (parse_in, "__bdver2__");

      break;

    case PROCESSOR_BTVER1:

      def_or_undef (parse_in, "__btver1");

      def_or_undef (parse_in, "__btver1__");

      break;

    case PROCESSOR_PENTIUM4:

      def_or_undef (parse_in, "__pentium4");

      def_or_undef (parse_in, "__pentium4__");

      break;

    case PROCESSOR_NOCONA:

      def_or_undef (parse_in, "__nocona");

      def_or_undef (parse_in, "__nocona__");

      break;

    case PROCESSOR_CORE2_32:

    case PROCESSOR_CORE2_64:

      def_or_undef (parse_in, "__core2");

      def_or_undef (parse_in, "__core2__");

      break;

    case PROCESSOR_COREI7_32:

    case PROCESSOR_COREI7_64:

      def_or_undef (parse_in, "__corei7");

      def_or_undef (parse_in, "__corei7__");

      break;

    case PROCESSOR_ATOM:

      def_or_undef (parse_in, "__atom");

      def_or_undef (parse_in, "__atom__");

      break;

    /* use PROCESSOR_max to not set/unset the arch macro.  */

    case PROCESSOR_max:

      break;

    case PROCESSOR_GENERIC32:

    case PROCESSOR_GENERIC64:

      gcc_unreachable ();

    }

  /* Built-ins based on -mtune=.  */

  switch (tune)

    {

    case PROCESSOR_I386:

      def_or_undef (parse_in, "__tune_i386__");

      break;

    case PROCESSOR_I486:

      def_or_undef (parse_in, "__tune_i486__");

      break;

    case PROCESSOR_PENTIUM:

      def_or_undef (parse_in, "__tune_i586__");

      def_or_undef (parse_in, "__tune_pentium__");

      if (last_tune_char == 'x')

        def_or_undef (parse_in, "__tune_pentium_mmx__");

      break;

    case PROCESSOR_PENTIUMPRO:

      def_or_undef (parse_in, "__tune_i686__");

      def_or_undef (parse_in, "__tune_pentiumpro__");

      switch (last_tune_char)

        {

        case '3':

          def_or_undef (parse_in, "__tune_pentium3__");

          /* FALLTHRU */

        case '2':

          def_or_undef (parse_in, "__tune_pentium2__");

          break;

        }

      break;

    case PROCESSOR_GEODE:

      def_or_undef (parse_in, "__tune_geode__");

      break;

    case PROCESSOR_K6:

      def_or_undef (parse_in, "__tune_k6__");

      if (last_tune_char == '2')

        def_or_undef (parse_in, "__tune_k6_2__");

      else if (last_tune_char == '3')

        def_or_undef (parse_in, "__tune_k6_3__");

      else if (isa_flag & OPTION_MASK_ISA_3DNOW)

        def_or_undef (parse_in, "__tune_k6_3__");

      break;

    case PROCESSOR_ATHLON:

      def_or_undef (parse_in, "__tune_athlon__");

      if (isa_flag & OPTION_MASK_ISA_SSE)

        def_or_undef (parse_in, "__tune_athlon_sse__");

      break;

    case PROCESSOR_K8:

      def_or_undef (parse_in, "__tune_k8__");

      break;

    case PROCESSOR_AMDFAM10:

      def_or_undef (parse_in, "__tune_amdfam10__");

      break;

    case PROCESSOR_BDVER1:

      def_or_undef (parse_in, "__tune_bdver1__");

      break;

    case PROCESSOR_BDVER2:

      def_or_undef (parse_in, "__tune_bdver2__");

      break;

   case PROCESSOR_BTVER1:

      def_or_undef (parse_in, "__tune_btver1__");

      break;

    case PROCESSOR_PENTIUM4:

      def_or_undef (parse_in, "__tune_pentium4__");

      break;

    case PROCESSOR_NOCONA:

      def_or_undef (parse_in, "__tune_nocona__");

      break;

    case PROCESSOR_CORE2_32:

    case PROCESSOR_CORE2_64:

      def_or_undef (parse_in, "__tune_core2__");

      break;

    case PROCESSOR_COREI7_32:

    case PROCESSOR_COREI7_64:

      def_or_undef (parse_in, "__tune_corei7__");

      break;

    case PROCESSOR_ATOM:

      def_or_undef (parse_in, "__tune_atom__");

      break;

    case PROCESSOR_GENERIC32:

    case PROCESSOR_GENERIC64:

      break;

    /* use PROCESSOR_max to not set/unset the tune macro.  */

    case PROCESSOR_max:

      break;

    }

  if (isa_flag & OPTION_MASK_ISA_MMX)

    def_or_undef (parse_in, "__MMX__");

  if (isa_flag & OPTION_MASK_ISA_3DNOW)

    def_or_undef (parse_in, "__3dNOW__");

  if (isa_flag & OPTION_MASK_ISA_3DNOW_A)

    def_or_undef (parse_in, "__3dNOW_A__");

  if (isa_flag & OPTION_MASK_ISA_SSE)

    def_or_undef (parse_in, "__SSE__");

  if (isa_flag & OPTION_MASK_ISA_SSE2)

    def_or_undef (parse_in, "__SSE2__");

  if (isa_flag & OPTION_MASK_ISA_SSE3)

    def_or_undef (parse_in, "__SSE3__");

  if (isa_flag & OPTION_MASK_ISA_SSSE3)

    def_or_undef (parse_in, "__SSSE3__");

  if (isa_flag & OPTION_MASK_ISA_SSE4_1)

    def_or_undef (parse_in, "__SSE4_1__");

  if (isa_flag & OPTION_MASK_ISA_SSE4_2)

    def_or_undef (parse_in, "__SSE4_2__");

  if (isa_flag & OPTION_MASK_ISA_AES)

    def_or_undef (parse_in, "__AES__");

  if (isa_flag & OPTION_MASK_ISA_PCLMUL)

    def_or_undef (parse_in, "__PCLMUL__");

  if (isa_flag & OPTION_MASK_ISA_AVX)

    def_or_undef (parse_in, "__AVX__");

  if (isa_flag & OPTION_MASK_ISA_AVX2)

    def_or_undef (parse_in, "__AVX2__");

  if (isa_flag & OPTION_MASK_ISA_FMA)

    def_or_undef (parse_in, "__FMA__");

  if (isa_flag & OPTION_MASK_ISA_SSE4A)

    def_or_undef (parse_in, "__SSE4A__");

  if (isa_flag & OPTION_MASK_ISA_FMA4)

    def_or_undef (parse_in, "__FMA4__");

  if (isa_flag & OPTION_MASK_ISA_XOP)

    def_or_undef (parse_in, "__XOP__");

  if (isa_flag & OPTION_MASK_ISA_LWP)

    def_or_undef (parse_in, "__LWP__");

  if (isa_flag & OPTION_MASK_ISA_ABM)

    def_or_undef (parse_in, "__ABM__");

  if (isa_flag & OPTION_MASK_ISA_BMI)

    def_or_undef (parse_in, "__BMI__");

  if (isa_flag & OPTION_MASK_ISA_BMI2)

    def_or_undef (parse_in, "__BMI2__");

  if (isa_flag & OPTION_MASK_ISA_LZCNT)

    def_or_undef (parse_in, "__LZCNT__");

  if (isa_flag & OPTION_MASK_ISA_TBM)

    def_or_undef (parse_in, "__TBM__");

  if (isa_flag & OPTION_MASK_ISA_POPCNT)

    def_or_undef (parse_in, "__POPCNT__");

  if (isa_flag & OPTION_MASK_ISA_FSGSBASE)

    def_or_undef (parse_in, "__FSGSBASE__");

  if (isa_flag & OPTION_MASK_ISA_RDRND)

    def_or_undef (parse_in, "__RDRND__");

  if (isa_flag & OPTION_MASK_ISA_F16C)

    def_or_undef (parse_in, "__F16C__");

  if ((fpmath & FPMATH_SSE) && (isa_flag & OPTION_MASK_ISA_SSE))

    def_or_undef (parse_in, "__SSE_MATH__");

  if ((fpmath & FPMATH_SSE) && (isa_flag & OPTION_MASK_ISA_SSE2))

    def_or_undef (parse_in, "__SSE2_MATH__");

}

/* Hook to validate the current #pragma GCC target and set the state, and

   update the macros based on what was changed.  If ARGS is NULL, then

   POP_TARGET is used to reset the options.  */

static bool

ix86_pragma_target_parse (tree args, tree pop_target)

{

  tree prev_tree = build_target_option_node ();

  tree cur_tree;

  struct cl_target_option *prev_opt;

  struct cl_target_option *cur_opt;

  HOST_WIDE_INT prev_isa;

  HOST_WIDE_INT cur_isa;

  HOST_WIDE_INT diff_isa;

  enum processor_type prev_arch;

  enum processor_type prev_tune;

  enum processor_type cur_arch;

  enum processor_type cur_tune;

  if (! args)

    {

      cur_tree = ((pop_target)

                  ? pop_target

                  : target_option_default_node);

      cl_target_option_restore (&global_options,

                                TREE_TARGET_OPTION (cur_tree));

    }

  else

    {

      cur_tree = ix86_valid_target_attribute_tree (args);

      if (!cur_tree)

        return false;

    }

  target_option_current_node = cur_tree;

  /* Figure out the previous/current isa, arch, tune and the differences.  */

  prev_opt  = TREE_TARGET_OPTION (prev_tree);

  cur_opt   = TREE_TARGET_OPTION (cur_tree);

  prev_isa  = prev_opt->x_ix86_isa_flags;

  cur_isa   = cur_opt->x_ix86_isa_flags;

  diff_isa  = (prev_isa ^ cur_isa);

  prev_arch = (enum processor_type) prev_opt->arch;

  prev_tune = (enum processor_type) prev_opt->tune;

  cur_arch  = (enum processor_type) cur_opt->arch;

  cur_tune  = (enum processor_type) cur_opt->tune;

  /* If the same processor is used for both previous and current options, don't

     change the macros.  */

  if (cur_arch == prev_arch)

    cur_arch = prev_arch = PROCESSOR_max;

  if (cur_tune == prev_tune)

    cur_tune = prev_tune = PROCESSOR_max;

  /* Undef all of the macros for that are no longer current.  */

  ix86_target_macros_internal (prev_isa & diff_isa,

                               prev_arch,

                               prev_tune,

                               (enum fpmath_unit) prev_opt->x_ix86_fpmath,

                               cpp_undef);

  /* Define all of the macros for new options that were just turned on.  */

  ix86_target_macros_internal (cur_isa & diff_isa,

                               cur_arch,

                               cur_tune,

                               (enum fpmath_unit) cur_opt->x_ix86_fpmath,

                               cpp_define);

  return true;

}

/* Function to tell the preprocessor about the defines for the current target.  */

void

ix86_target_macros (void)

{

  /* 32/64-bit won't change with target specific options, so do the assert and

     builtin_define_std calls here.  */

  if (TARGET_64BIT)

    {

      cpp_assert (parse_in, "cpu=x86_64");

      cpp_assert (parse_in, "machine=x86_64");

      cpp_define (parse_in, "__amd64");

      cpp_define (parse_in, "__amd64__");

      cpp_define (parse_in, "__x86_64");

      cpp_define (parse_in, "__x86_64__");

    }

  else

    {

      cpp_assert (parse_in, "cpu=i386");

      cpp_assert (parse_in, "machine=i386");

      builtin_define_std ("i386");

    }

  ix86_target_macros_internal (ix86_isa_flags,

                               ix86_arch,

                               ix86_tune,

                               ix86_fpmath,

                               cpp_define);

}

/* Register target pragmas.  We need to add the hook for parsing #pragma GCC

   option here rather than in i386.c since it will pull in various preprocessor

   functions, and those are not present in languages like fortran without a

   preprocessor.  */

void

ix86_register_pragmas (void)

{

  /* Update pragma hook to allow parsing #pragma GCC target.  */

  targetm.target_option.pragma_parse = ix86_pragma_target_parse;

#ifdef REGISTER_SUBTARGET_PRAGMAS

  REGISTER_SUBTARGET_PRAGMAS ();

#endif

}