contrib/gcc-5.0/libstdc++-v3/src/c++98/locale_init.cc

   1 // Copyright (C) 1997-2015 Free Software Foundation, Inc.
   2 //
   3 // This file is part of the GNU ISO C++ Library.  This library is free
   4 // software; you can redistribute it and/or modify it under the
   5 // terms of the GNU General Public License as published by the
   6 // Free Software Foundation; either version 3, or (at your option)
   7 // any later version.
   8
   9 // This library is distributed in the hope that it will be useful,
  10 // but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 // GNU General Public License for more details.
  13
  14 // Under Section 7 of GPL version 3, you are granted additional
  15 // permissions described in the GCC Runtime Library Exception, version
  16 // 3.1, as published by the Free Software Foundation.
  17
  18 // You should have received a copy of the GNU General Public License and
  19 // a copy of the GCC Runtime Library Exception along with this program;
  20 // see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
  21 // <http://www.gnu.org/licenses/>.
  22
  23 #define _GLIBCXX_USE_CXX11_ABI 1
  24 #include <clocale>
  25 #include <cstring>
  26 #include <cstdlib>     // For getenv, free.
  27 #include <cctype>
  28 #include <cwctype>     // For towupper, etc.
  29 #include <locale>
  30 #include <ext/concurrence.h>
  31
  32 #if _GLIBCXX_USE_DUAL_ABI
  33 // This file is compiled with the new std::string ABI so std::numpunct<char>
  34 // refers to std::__cxx11::numpunct<char>. These declarations let us refer
  35 // to the other facets instantiated with the old ABI.
  36 # define _GLIBCXX_LOC_ID(mangled) extern std::locale::id mangled
  37 _GLIBCXX_LOC_ID(_ZNSt8numpunctIcE2idE);
  38 _GLIBCXX_LOC_ID(_ZNSt7collateIcE2idE);
  39 _GLIBCXX_LOC_ID(_ZNSt8time_getIcSt19istreambuf_iteratorIcSt11char_traitsIcEEE2idE);
  40 _GLIBCXX_LOC_ID(_ZNSt9money_getIcSt19istreambuf_iteratorIcSt11char_traitsIcEEE2idE);
  41 _GLIBCXX_LOC_ID(_ZNSt9money_putIcSt19ostreambuf_iteratorIcSt11char_traitsIcEEE2idE);
  42 _GLIBCXX_LOC_ID(_ZNSt10moneypunctIcLb0EE2idE);
  43 _GLIBCXX_LOC_ID(_ZNSt10moneypunctIcLb1EE2idE);
  44 _GLIBCXX_LOC_ID(_ZNSt8messagesIcE2idE);
  45 # ifdef _GLIBCXX_USE_WCHAR_T
  46 _GLIBCXX_LOC_ID(_ZNSt8numpunctIwE2idE);
  47 _GLIBCXX_LOC_ID(_ZNSt7collateIwE2idE);
  48 _GLIBCXX_LOC_ID(_ZNSt8time_getIwSt19istreambuf_iteratorIwSt11char_traitsIwEEE2idE);
  49 _GLIBCXX_LOC_ID(_ZNSt9money_getIwSt19istreambuf_iteratorIwSt11char_traitsIwEEE2idE);
  50 _GLIBCXX_LOC_ID(_ZNSt9money_putIwSt19ostreambuf_iteratorIwSt11char_traitsIwEEE2idE);
  51 _GLIBCXX_LOC_ID(_ZNSt10moneypunctIwLb0EE2idE);
  52 _GLIBCXX_LOC_ID(_ZNSt10moneypunctIwLb1EE2idE);
  53 _GLIBCXX_LOC_ID(_ZNSt8messagesIwE2idE);
  54 # endif
  55 #endif
  56
  57
  58 namespace
  59 {
  60   const int num_facets = _GLIBCXX_NUM_FACETS + _GLIBCXX_NUM_UNICODE_FACETS
  61     + (_GLIBCXX_USE_DUAL_ABI ? _GLIBCXX_NUM_CXX11_FACETS : 0);
  62
  63   __gnu_cxx::__mutex&
  64   get_locale_mutex()
  65   {
  66     static __gnu_cxx::__mutex locale_mutex;
  67     return locale_mutex;
  68   }
  69
  70   using namespace std;
  71
  72   typedef char fake_locale_Impl[sizeof(locale::_Impl)]
  73   __attribute__ ((aligned(__alignof__(locale::_Impl))));
  74   fake_locale_Impl c_locale_impl;
  75
  76   typedef char fake_locale[sizeof(locale)]
  77   __attribute__ ((aligned(__alignof__(locale))));
  78   fake_locale c_locale;
  79
  80   typedef char fake_name_vec[sizeof(char*)]
  81   __attribute__ ((aligned(__alignof__(char*))));
  82   fake_name_vec name_vec[6 + _GLIBCXX_NUM_CATEGORIES];
  83
  84   typedef char fake_names[sizeof(char[2])]
  85   __attribute__ ((aligned(__alignof__(char[2]))));
  86   fake_names name_c[6 + _GLIBCXX_NUM_CATEGORIES];
  87
  88   typedef char fake_facet_vec[sizeof(locale::facet*)]
  89   __attribute__ ((aligned(__alignof__(locale::facet*))));
  90   fake_facet_vec facet_vec[num_facets];
  91
  92   typedef char fake_cache_vec[sizeof(locale::facet*)]
  93   __attribute__ ((aligned(__alignof__(locale::facet*))));
  94   fake_cache_vec cache_vec[num_facets];
  95
  96   typedef char fake_ctype_c[sizeof(std::ctype<char>)]
  97   __attribute__ ((aligned(__alignof__(std::ctype<char>))));
  98   fake_ctype_c ctype_c;
  99
 100   typedef char fake_collate_c[sizeof(std::collate<char>)]
 101   __attribute__ ((aligned(__alignof__(std::collate<char>))));
 102   fake_collate_c collate_c;
 103
 104   typedef char fake_numpunct_c[sizeof(numpunct<char>)]
 105   __attribute__ ((aligned(__alignof__(numpunct<char>))));
 106   fake_numpunct_c numpunct_c;
 107
 108   typedef char fake_num_get_c[sizeof(num_get<char>)]
 109   __attribute__ ((aligned(__alignof__(num_get<char>))));
 110   fake_num_get_c num_get_c;
 111
 112   typedef char fake_num_put_c[sizeof(num_put<char>)]
 113   __attribute__ ((aligned(__alignof__(num_put<char>))));
 114   fake_num_put_c num_put_c;
 115
 116   typedef char fake_codecvt_c[sizeof(codecvt<char, char, mbstate_t>)]
 117   __attribute__ ((aligned(__alignof__(codecvt<char, char, mbstate_t>))));
 118   fake_codecvt_c codecvt_c;
 119
 120   typedef char fake_moneypunct_c[sizeof(moneypunct<char, true>)]
 121   __attribute__ ((aligned(__alignof__(moneypunct<char, true>))));
 122   fake_moneypunct_c moneypunct_ct;
 123   fake_moneypunct_c moneypunct_cf;
 124
 125   typedef char fake_money_get_c[sizeof(money_get<char>)]
 126   __attribute__ ((aligned(__alignof__(money_get<char>))));
 127   fake_money_get_c money_get_c;
 128
 129   typedef char fake_money_put_c[sizeof(money_put<char>)]
 130   __attribute__ ((aligned(__alignof__(money_put<char>))));
 131   fake_money_put_c money_put_c;
 132
 133   typedef char fake_timepunct_c[sizeof(__timepunct<char>)]
 134   __attribute__ ((aligned(__alignof__(__timepunct<char>))));
 135   fake_timepunct_c timepunct_c;
 136
 137   typedef char fake_time_get_c[sizeof(time_get<char>)]
 138   __attribute__ ((aligned(__alignof__(time_get<char>))));
 139   fake_time_get_c time_get_c;
 140
 141   typedef char fake_time_put_c[sizeof(time_put<char>)]
 142   __attribute__ ((aligned(__alignof__(time_put<char>))));
 143   fake_time_put_c time_put_c;
 144
 145   typedef char fake_messages_c[sizeof(messages<char>)]
 146   __attribute__ ((aligned(__alignof__(messages<char>))));
 147   fake_messages_c messages_c;
 148
 149 #ifdef  _GLIBCXX_USE_WCHAR_T
 150   typedef char fake_wtype_w[sizeof(std::ctype<wchar_t>)]
 151   __attribute__ ((aligned(__alignof__(std::ctype<wchar_t>))));
 152   fake_wtype_w ctype_w;
 153
 154   typedef char fake_wollate_w[sizeof(std::collate<wchar_t>)]
 155   __attribute__ ((aligned(__alignof__(std::collate<wchar_t>))));
 156   fake_wollate_w collate_w;
 157
 158   typedef char fake_numpunct_w[sizeof(numpunct<wchar_t>)]
 159   __attribute__ ((aligned(__alignof__(numpunct<wchar_t>))));
 160   fake_numpunct_w numpunct_w;
 161
 162   typedef char fake_num_get_w[sizeof(num_get<wchar_t>)]
 163   __attribute__ ((aligned(__alignof__(num_get<wchar_t>))));
 164   fake_num_get_w num_get_w;
 165
 166   typedef char fake_num_put_w[sizeof(num_put<wchar_t>)]
 167   __attribute__ ((aligned(__alignof__(num_put<wchar_t>))));
 168   fake_num_put_w num_put_w;
 169
 170   typedef char fake_wodecvt_w[sizeof(codecvt<wchar_t, char, mbstate_t>)]
 171   __attribute__ ((aligned(__alignof__(codecvt<wchar_t, char, mbstate_t>))));
 172   fake_wodecvt_w codecvt_w;
 173
 174   typedef char fake_moneypunct_w[sizeof(moneypunct<wchar_t, true>)]
 175   __attribute__ ((aligned(__alignof__(moneypunct<wchar_t, true>))));
 176   fake_moneypunct_w moneypunct_wt;
 177   fake_moneypunct_w moneypunct_wf;
 178
 179   typedef char fake_money_get_w[sizeof(money_get<wchar_t>)]
 180   __attribute__ ((aligned(__alignof__(money_get<wchar_t>))));
 181   fake_money_get_w money_get_w;
 182
 183   typedef char fake_money_put_w[sizeof(money_put<wchar_t>)]
 184   __attribute__ ((aligned(__alignof__(money_put<wchar_t>))));
 185   fake_money_put_w money_put_w;
 186
 187   typedef char fake_timepunct_w[sizeof(__timepunct<wchar_t>)]
 188   __attribute__ ((aligned(__alignof__(__timepunct<wchar_t>))));
 189   fake_timepunct_w timepunct_w;
 190
 191   typedef char fake_time_get_w[sizeof(time_get<wchar_t>)]
 192   __attribute__ ((aligned(__alignof__(time_get<wchar_t>))));
 193   fake_time_get_w time_get_w;
 194
 195   typedef char fake_time_put_w[sizeof(time_put<wchar_t>)]
 196   __attribute__ ((aligned(__alignof__(time_put<wchar_t>))));
 197   fake_time_put_w time_put_w;
 198
 199   typedef char fake_messages_w[sizeof(messages<wchar_t>)]
 200   __attribute__ ((aligned(__alignof__(messages<wchar_t>))));
 201   fake_messages_w messages_w;
 202 #endif
 203
 204 #ifdef _GLIBCXX_USE_C99_STDINT_TR1
 205   typedef char fake_codecvt_c16[sizeof(codecvt<char16_t, char, mbstate_t>)]
 206   __attribute__ ((aligned(__alignof__(codecvt<char16_t, char, mbstate_t>))));
 207   fake_codecvt_c16 codecvt_c16;
 208
 209   typedef char fake_codecvt_c32[sizeof(codecvt<char32_t, char, mbstate_t>)]
 210   __attribute__ ((aligned(__alignof__(codecvt<char32_t, char, mbstate_t>))));
 211   fake_codecvt_c32 codecvt_c32;
 212 #endif
 213
 214   // Storage for "C" locale caches.
 215   typedef char fake_num_cache_c[sizeof(std::__numpunct_cache<char>)]
 216   __attribute__ ((aligned(__alignof__(std::__numpunct_cache<char>))));
 217   fake_num_cache_c numpunct_cache_c;
 218
 219   typedef char fake_money_cache_c[sizeof(std::__moneypunct_cache<char, true>)]
 220   __attribute__ ((aligned(__alignof__(std::__moneypunct_cache<char, true>))));
 221   fake_money_cache_c moneypunct_cache_ct;
 222   fake_money_cache_c moneypunct_cache_cf;
 223
 224   typedef char fake_time_cache_c[sizeof(std::__timepunct_cache<char>)]
 225   __attribute__ ((aligned(__alignof__(std::__timepunct_cache<char>))));
 226   fake_time_cache_c timepunct_cache_c;
 227
 228 #ifdef _GLIBCXX_USE_WCHAR_T
 229   typedef char fake_num_cache_w[sizeof(std::__numpunct_cache<wchar_t>)]
 230   __attribute__ ((aligned(__alignof__(std::__numpunct_cache<wchar_t>))));
 231   fake_num_cache_w numpunct_cache_w;
 232
 233   typedef char fake_money_cache_w[sizeof(std::__moneypunct_cache<wchar_t,true>)]
 234   __attribute__ ((aligned(__alignof__(std::__moneypunct_cache<wchar_t,true>))));
 235   fake_money_cache_w moneypunct_cache_wt;
 236   fake_money_cache_w moneypunct_cache_wf;
 237
 238   typedef char fake_time_cache_w[sizeof(std::__timepunct_cache<wchar_t>)]
 239   __attribute__ ((aligned(__alignof__(std::__timepunct_cache<wchar_t>))));
 240   fake_time_cache_w timepunct_cache_w;
 241 #endif
 242 } // anonymous namespace
 243
 244 namespace std _GLIBCXX_VISIBILITY(default)
 245 {
 246 _GLIBCXX_BEGIN_NAMESPACE_VERSION
 247
 248   locale::locale() throw() : _M_impl(0)
 249   {
 250     _S_initialize();
 251
 252     // Checked locking to optimize the common case where _S_global
 253     // still points to _S_classic (locale::_S_initialize_once()):
 254     // - If they are the same, just increment the reference count and
 255     //   we are done.  This effectively constructs a C locale object
 256     //   identical to the static c_locale.
 257     // - Otherwise, _S_global can and may be destroyed due to
 258     //   locale::global() call on another thread, in which case we
 259     //   fall back to lock protected access to both _S_global and
 260     //   its reference count.
 261     _M_impl = _S_global;
 262     if (_M_impl == _S_classic)
 263       _M_impl->_M_add_reference();
 264     else
 265       {
 266         __gnu_cxx::__scoped_lock sentry(get_locale_mutex());
 267         _S_global->_M_add_reference();
 268         _M_impl = _S_global;
 269       }
 270   }
 271
 272   locale
 273   locale::global(const locale& __other)
 274   {
 275     _S_initialize();
 276     _Impl* __old;
 277     {
 278       __gnu_cxx::__scoped_lock sentry(get_locale_mutex());
 279       __old = _S_global;
 280       __other._M_impl->_M_add_reference();
 281       _S_global = __other._M_impl;
 282       const string __other_name = __other.name();
 283       if (__other_name != "*")
 284         setlocale(LC_ALL, __other_name.c_str());
 285     }
 286
 287     // Reference count sanity check: one reference removed for the
 288     // subsition of __other locale, one added by return-by-value. Net
 289     // difference: zero. When the returned locale object's destrutor
 290     // is called, then the reference count is decremented and possibly
 291     // destroyed.
 292     return locale(__old);
 293   }
 294
 295   const locale&
 296   locale::classic()
 297   {
 298     _S_initialize();
 299     return *(new (&c_locale) locale(_S_classic));
 300   }
 301
 302   void
 303   locale::_S_initialize_once() throw()
 304   {
 305     // 2 references.
 306     // One reference for _S_classic, one for _S_global
 307     _S_classic = new (&c_locale_impl) _Impl(2);
 308     _S_global = _S_classic;
 309   }
 310
 311   void
 312   locale::_S_initialize()
 313   {
 314 #ifdef __GTHREADS
 315     if (__gthread_active_p())
 316       __gthread_once(&_S_once, _S_initialize_once);
 317 #endif
 318     if (!_S_classic)
 319       _S_initialize_once();
 320   }
 321
 322   // Definitions for static const data members of locale::_Impl
 323   const locale::id* const
 324   locale::_Impl::_S_id_ctype[] =
 325   {
 326     &std::ctype<char>::id,
 327     &codecvt<char, char, mbstate_t>::id,
 328 #ifdef _GLIBCXX_USE_WCHAR_T
 329     &std::ctype<wchar_t>::id,
 330     &codecvt<wchar_t, char, mbstate_t>::id,
 331 #endif
 332 #ifdef _GLIBCXX_USE_C99_STDINT_TR1
 333     &codecvt<char16_t, char, mbstate_t>::id,
 334     &codecvt<char32_t, char, mbstate_t>::id,
 335 #endif
 336     0
 337   };
 338
 339   const locale::id* const
 340   locale::_Impl::_S_id_numeric[] =
 341   {
 342     &num_get<char>::id,
 343     &num_put<char>::id,
 344     &numpunct<char>::id,
 345 #ifdef _GLIBCXX_USE_WCHAR_T
 346     &num_get<wchar_t>::id,
 347     &num_put<wchar_t>::id,
 348     &numpunct<wchar_t>::id,
 349 #endif
 350     0
 351   };
 352
 353   const locale::id* const
 354   locale::_Impl::_S_id_collate[] =
 355   {
 356     &std::collate<char>::id,
 357 #ifdef _GLIBCXX_USE_WCHAR_T
 358     &std::collate<wchar_t>::id,
 359 #endif
 360     0
 361   };
 362
 363   const locale::id* const
 364   locale::_Impl::_S_id_time[] =
 365   {
 366     &__timepunct<char>::id,
 367     &time_get<char>::id,
 368     &time_put<char>::id,
 369 #ifdef _GLIBCXX_USE_WCHAR_T
 370     &__timepunct<wchar_t>::id,
 371     &time_get<wchar_t>::id,
 372     &time_put<wchar_t>::id,
 373 #endif
 374     0
 375   };
 376
 377   const locale::id* const
 378   locale::_Impl::_S_id_monetary[] =
 379   {
 380     &money_get<char>::id,
 381     &money_put<char>::id,
 382     &moneypunct<char, false>::id,
 383     &moneypunct<char, true >::id,
 384 #ifdef _GLIBCXX_USE_WCHAR_T
 385     &money_get<wchar_t>::id,
 386     &money_put<wchar_t>::id,
 387     &moneypunct<wchar_t, false>::id,
 388     &moneypunct<wchar_t, true >::id,
 389 #endif
 390     0
 391   };
 392
 393   const locale::id* const
 394   locale::_Impl::_S_id_messages[] =
 395   {
 396     &std::messages<char>::id,
 397 #ifdef _GLIBCXX_USE_WCHAR_T
 398     &std::messages<wchar_t>::id,
 399 #endif
 400     0
 401   };
 402
 403   const locale::id* const* const
 404   locale::_Impl::_S_facet_categories[] =
 405   {
 406     // Order must match the decl order in class locale.
 407     locale::_Impl::_S_id_ctype,
 408     locale::_Impl::_S_id_numeric,
 409     locale::_Impl::_S_id_collate,
 410     locale::_Impl::_S_id_time,
 411     locale::_Impl::_S_id_monetary,
 412     locale::_Impl::_S_id_messages,
 413     0
 414   };
 415
 416 #if _GLIBCXX_USE_DUAL_ABI
 417   // Facets that are instantiated for both the COW and SSO std::string ABIs.
 418   // The COW ABI version must come first, followed by its SSO twin.
 419   const locale::id* const locale::_S_twinned_facets[] = {
 420     &::_ZNSt8numpunctIcE2idE,
 421     &numpunct<char>::id,
 422     &::_ZNSt7collateIcE2idE,
 423     &std::collate<char>::id,
 424     &::_ZNSt8time_getIcSt19istreambuf_iteratorIcSt11char_traitsIcEEE2idE,
 425     &time_get<char>::id,
 426     &::_ZNSt9money_getIcSt19istreambuf_iteratorIcSt11char_traitsIcEEE2idE,
 427     &money_get<char>::id,
 428     &::_ZNSt9money_putIcSt19ostreambuf_iteratorIcSt11char_traitsIcEEE2idE,
 429     &money_put<char>::id,
 430     &::_ZNSt10moneypunctIcLb0EE2idE,
 431     &moneypunct<char, false>::id,
 432     &::_ZNSt10moneypunctIcLb1EE2idE,
 433     &moneypunct<char, true >::id,
 434     &::_ZNSt8messagesIcE2idE,
 435     &std::messages<char>::id,
 436 # ifdef _GLIBCXX_USE_WCHAR_T
 437     &::_ZNSt8numpunctIwE2idE,
 438     &numpunct<wchar_t>::id,
 439     &::_ZNSt7collateIwE2idE,
 440     &std::collate<wchar_t>::id,
 441     &::_ZNSt8time_getIwSt19istreambuf_iteratorIwSt11char_traitsIwEEE2idE,
 442     &time_get<wchar_t>::id,
 443     &::_ZNSt9money_getIwSt19istreambuf_iteratorIwSt11char_traitsIwEEE2idE,
 444     &money_get<wchar_t>::id,
 445     &::_ZNSt9money_putIwSt19ostreambuf_iteratorIwSt11char_traitsIwEEE2idE,
 446     &money_put<wchar_t>::id,
 447     &::_ZNSt10moneypunctIwLb0EE2idE,
 448     &moneypunct<wchar_t, false>::id,
 449     &::_ZNSt10moneypunctIwLb1EE2idE,
 450     &moneypunct<wchar_t, true >::id,
 451     &::_ZNSt8messagesIwE2idE,
 452     &std::messages<wchar_t>::id,
 453 # endif
 454     0, 0
 455   };
 456 #endif
 457
 458   // Construct "C" _Impl.
 459   locale::_Impl::
 460   _Impl(size_t __refs) throw()
 461   : _M_refcount(__refs), _M_facets(0), _M_facets_size(num_facets),
 462   _M_caches(0), _M_names(0)
 463   {
 464     _M_facets = new (&facet_vec) const facet*[_M_facets_size]();
 465     _M_caches = new (&cache_vec) const facet*[_M_facets_size]();
 466
 467     // Name the categories.
 468     _M_names = new (&name_vec) char*[_S_categories_size]();
 469     _M_names[0] = new (&name_c[0]) char[2];
 470     std::memcpy(_M_names[0], locale::facet::_S_get_c_name(), 2);
 471
 472     // This is needed as presently the C++ version of "C" locales
 473     // != data in the underlying locale model for __timepunct,
 474     // numpunct, and moneypunct. Also, the "C" locales must be
 475     // constructed in a way such that they are pre-allocated.
 476     // NB: Set locale::facets(ref) count to one so that each individual
 477     // facet is not destroyed when the locale (and thus locale::_Impl) is
 478     // destroyed.
 479     _M_init_facet(new (&ctype_c) std::ctype<char>(0, false, 1));
 480     _M_init_facet(new (&codecvt_c) codecvt<char, char, mbstate_t>(1));
 481
 482     typedef __numpunct_cache<char> num_cache_c;
 483     num_cache_c* __npc = new (&numpunct_cache_c) num_cache_c(2);
 484     _M_init_facet(new (&numpunct_c) numpunct<char>(__npc, 1));
 485
 486     _M_init_facet(new (&num_get_c) num_get<char>(1));
 487     _M_init_facet(new (&num_put_c) num_put<char>(1));
 488     _M_init_facet(new (&collate_c) std::collate<char>(1));
 489
 490     typedef __moneypunct_cache<char, false> money_cache_cf;
 491     typedef __moneypunct_cache<char, true> money_cache_ct;
 492     money_cache_cf* __mpcf = new (&moneypunct_cache_cf) money_cache_cf(2);
 493     _M_init_facet(new (&moneypunct_cf) moneypunct<char, false>(__mpcf, 1));
 494     money_cache_ct* __mpct = new (&moneypunct_cache_ct) money_cache_ct(2);
 495     _M_init_facet(new (&moneypunct_ct) moneypunct<char, true>(__mpct, 1));
 496
 497     _M_init_facet(new (&money_get_c) money_get<char>(1));
 498     _M_init_facet(new (&money_put_c) money_put<char>(1));
 499
 500     typedef __timepunct_cache<char> time_cache_c;
 501     time_cache_c* __tpc = new (&timepunct_cache_c) time_cache_c(2);
 502     _M_init_facet(new (&timepunct_c) __timepunct<char>(__tpc, 1));
 503
 504     _M_init_facet(new (&time_get_c) time_get<char>(1));
 505     _M_init_facet(new (&time_put_c) time_put<char>(1));
 506     _M_init_facet(new (&messages_c) std::messages<char>(1));
 507
 508 #ifdef  _GLIBCXX_USE_WCHAR_T
 509     _M_init_facet(new (&ctype_w) std::ctype<wchar_t>(1));
 510     _M_init_facet(new (&codecvt_w) codecvt<wchar_t, char, mbstate_t>(1));
 511
 512     typedef __numpunct_cache<wchar_t> num_cache_w;
 513     num_cache_w* __npw = new (&numpunct_cache_w) num_cache_w(2);
 514     _M_init_facet(new (&numpunct_w) numpunct<wchar_t>(__npw, 1));
 515
 516     _M_init_facet(new (&num_get_w) num_get<wchar_t>(1));
 517     _M_init_facet(new (&num_put_w) num_put<wchar_t>(1));
 518     _M_init_facet(new (&collate_w) std::collate<wchar_t>(1));
 519
 520     typedef __moneypunct_cache<wchar_t, false> money_cache_wf;
 521     typedef __moneypunct_cache<wchar_t, true> money_cache_wt;
 522     money_cache_wf* __mpwf = new (&moneypunct_cache_wf) money_cache_wf(2);
 523     _M_init_facet(new (&moneypunct_wf) moneypunct<wchar_t, false>(__mpwf, 1));
 524     money_cache_wt* __mpwt = new (&moneypunct_cache_wt) money_cache_wt(2);
 525     _M_init_facet(new (&moneypunct_wt) moneypunct<wchar_t, true>(__mpwt, 1));
 526
 527     _M_init_facet(new (&money_get_w) money_get<wchar_t>(1));
 528     _M_init_facet(new (&money_put_w) money_put<wchar_t>(1));
 529
 530     typedef __timepunct_cache<wchar_t> time_cache_w;
 531     time_cache_w* __tpw = new (&timepunct_cache_w) time_cache_w(2);
 532     _M_init_facet(new (&timepunct_w) __timepunct<wchar_t>(__tpw, 1));
 533
 534     _M_init_facet(new (&time_get_w) time_get<wchar_t>(1));
 535     _M_init_facet(new (&time_put_w) time_put<wchar_t>(1));
 536     _M_init_facet(new (&messages_w) std::messages<wchar_t>(1));
 537 #endif
 538
 539 #ifdef _GLIBCXX_USE_C99_STDINT_TR1
 540     _M_init_facet(new (&codecvt_c16) codecvt<char16_t, char, mbstate_t>(1));
 541     _M_init_facet(new (&codecvt_c32) codecvt<char32_t, char, mbstate_t>(1));
 542 #endif
 543
 544 #if _GLIBCXX_USE_DUAL_ABI
 545     facet* extra[] = { __npc, __mpcf, __mpct
 546 # ifdef  _GLIBCXX_USE_WCHAR_T
 547         , __npw, __mpwf, __mpwt
 548 # endif
 549     };
 550
 551     _M_init_extra(extra);
 552 #endif
 553
 554     // This locale is safe to pre-cache, after all the facets have
 555     // been created and installed.
 556     _M_caches[numpunct<char>::id._M_id()] = __npc;
 557     _M_caches[moneypunct<char, false>::id._M_id()] = __mpcf;
 558     _M_caches[moneypunct<char, true>::id._M_id()] = __mpct;
 559     _M_caches[__timepunct<char>::id._M_id()] = __tpc;
 560 #ifdef  _GLIBCXX_USE_WCHAR_T
 561     _M_caches[numpunct<wchar_t>::id._M_id()] = __npw;
 562     _M_caches[moneypunct<wchar_t, false>::id._M_id()] = __mpwf;
 563     _M_caches[moneypunct<wchar_t, true>::id._M_id()] = __mpwt;
 564     _M_caches[__timepunct<wchar_t>::id._M_id()] = __tpw;
 565 #endif
 566   }
 567
 568 _GLIBCXX_END_NAMESPACE_VERSION
 569 } // namespace