gcc/config/sol2-cxx.c

   1 /* C++ specific Solaris system support.
   2    Copyright (C) 2011-2015 Free Software Foundation, Inc.
   3
   4 This file is part of GCC.
   5
   6 GCC 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 GCC 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 You should have received a copy of the GNU General Public License
  17 along with GCC; see the file COPYING3.  If not see
  18 <http://www.gnu.org/licenses/>.  */
  19
  20 #include "config.h"
  21 #include "system.h"
  22 #include "coretypes.h"
  23 #include "input.h"
  24 #include "alias.h"
  25 #include "symtab.h"
  26 #include "options.h"
  27 #include "tree.h"
  28 #include "stringpool.h"
  29 #include "cp/cp-tree.h"
  30 #include "tm.h"
  31 #include "tm_p.h"
  32
  33 /* Before GCC 4.7, g++ defined __cplusplus 1 to avoid coping with the C++98
  34    overloads in Solaris system headers.  Since this was fixed, 4 structure
  35    types would move to namespace std, breaking the Solaris libstdc++ ABI.
  36    To avoid this, we forcefully keep those types in the global namespace.
  37    This can be removed once the next major version of libstdc++ is
  38    released.  */
  39
  40 /* Cache the identifiers of the affected types to speed up lookup.  */
  41 #define NUM_FGID 4
  42 static GTY(()) tree force_global_identifiers[NUM_FGID];
  43
  44 /* Check if DECL is one of the affected types and move it to the global
  45    namespace if so.  */
  46 tree
  47 solaris_cxx_decl_mangling_context (const_tree decl)
  48 {
  49   static bool init = false;
  50   int i = 0;
  51
  52   if (!init)
  53     {
  54       force_global_identifiers[i++] = get_identifier ("div_t");
  55       force_global_identifiers[i++] = get_identifier ("ldiv_t");
  56       force_global_identifiers[i++] = get_identifier ("lconv");
  57       force_global_identifiers[i++] = get_identifier ("tm");
  58       init = true;
  59     }
  60
  61   if (!(DECL_P (decl) && DECL_NAMESPACE_STD_P (CP_DECL_CONTEXT (decl))))
  62     return NULL_TREE;
  63
  64   for (i = 0; i < NUM_FGID; i++)
  65     if (DECL_NAME (decl) == force_global_identifiers[i])
  66         return global_namespace;
  67
  68   return NULL_TREE;
  69 }