1 // Copyright (C) 1997-2018 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 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&
get_locale_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 
locale()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
global(const locale & __other)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&
classic()296   locale::classic()
297   {
298     _S_initialize();
299     return *(const locale*)c_locale;
300   }
301 
302   void
_S_initialize_once()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     new (&c_locale) locale(_S_classic);
310   }
311 
312   void
_S_initialize()313   locale::_S_initialize()
314   {
315 #ifdef __GTHREADS
316     if (__gthread_active_p())
317       __gthread_once(&_S_once, _S_initialize_once);
318 #endif
319     if (!_S_classic)
320       _S_initialize_once();
321   }
322 
323   // Definitions for static const data members of locale::_Impl
324   const locale::id* const
325   locale::_Impl::_S_id_ctype[] =
326   {
327     &std::ctype<char>::id,
328     &codecvt<char, char, mbstate_t>::id,
329 #ifdef _GLIBCXX_USE_WCHAR_T
330     &std::ctype<wchar_t>::id,
331     &codecvt<wchar_t, char, mbstate_t>::id,
332 #endif
333 #ifdef _GLIBCXX_USE_C99_STDINT_TR1
334     &codecvt<char16_t, char, mbstate_t>::id,
335     &codecvt<char32_t, char, mbstate_t>::id,
336 #endif
337     0
338   };
339 
340   const locale::id* const
341   locale::_Impl::_S_id_numeric[] =
342   {
343     &num_get<char>::id,
344     &num_put<char>::id,
345     &numpunct<char>::id,
346 #ifdef _GLIBCXX_USE_WCHAR_T
347     &num_get<wchar_t>::id,
348     &num_put<wchar_t>::id,
349     &numpunct<wchar_t>::id,
350 #endif
351     0
352   };
353 
354   const locale::id* const
355   locale::_Impl::_S_id_collate[] =
356   {
357     &std::collate<char>::id,
358 #ifdef _GLIBCXX_USE_WCHAR_T
359     &std::collate<wchar_t>::id,
360 #endif
361     0
362   };
363 
364   const locale::id* const
365   locale::_Impl::_S_id_time[] =
366   {
367     &__timepunct<char>::id,
368     &time_get<char>::id,
369     &time_put<char>::id,
370 #ifdef _GLIBCXX_USE_WCHAR_T
371     &__timepunct<wchar_t>::id,
372     &time_get<wchar_t>::id,
373     &time_put<wchar_t>::id,
374 #endif
375     0
376   };
377 
378   const locale::id* const
379   locale::_Impl::_S_id_monetary[] =
380   {
381     &money_get<char>::id,
382     &money_put<char>::id,
383     &moneypunct<char, false>::id,
384     &moneypunct<char, true >::id,
385 #ifdef _GLIBCXX_USE_WCHAR_T
386     &money_get<wchar_t>::id,
387     &money_put<wchar_t>::id,
388     &moneypunct<wchar_t, false>::id,
389     &moneypunct<wchar_t, true >::id,
390 #endif
391     0
392   };
393 
394   const locale::id* const
395   locale::_Impl::_S_id_messages[] =
396   {
397     &std::messages<char>::id,
398 #ifdef _GLIBCXX_USE_WCHAR_T
399     &std::messages<wchar_t>::id,
400 #endif
401     0
402   };
403 
404   const locale::id* const* const
405   locale::_Impl::_S_facet_categories[] =
406   {
407     // Order must match the decl order in class locale.
408     locale::_Impl::_S_id_ctype,
409     locale::_Impl::_S_id_numeric,
410     locale::_Impl::_S_id_collate,
411     locale::_Impl::_S_id_time,
412     locale::_Impl::_S_id_monetary,
413     locale::_Impl::_S_id_messages,
414     0
415   };
416 
417 #if _GLIBCXX_USE_DUAL_ABI
418   // Facets that are instantiated for both the COW and SSO std::string ABIs.
419   // The COW ABI version must come first, followed by its SSO twin.
420   const locale::id* const locale::_S_twinned_facets[] = {
421     &::_ZNSt8numpunctIcE2idE,
422     &numpunct<char>::id,
423     &::_ZNSt7collateIcE2idE,
424     &std::collate<char>::id,
425     &::_ZNSt8time_getIcSt19istreambuf_iteratorIcSt11char_traitsIcEEE2idE,
426     &time_get<char>::id,
427     &::_ZNSt9money_getIcSt19istreambuf_iteratorIcSt11char_traitsIcEEE2idE,
428     &money_get<char>::id,
429     &::_ZNSt9money_putIcSt19ostreambuf_iteratorIcSt11char_traitsIcEEE2idE,
430     &money_put<char>::id,
431     &::_ZNSt10moneypunctIcLb0EE2idE,
432     &moneypunct<char, false>::id,
433     &::_ZNSt10moneypunctIcLb1EE2idE,
434     &moneypunct<char, true >::id,
435     &::_ZNSt8messagesIcE2idE,
436     &std::messages<char>::id,
437 # ifdef _GLIBCXX_USE_WCHAR_T
438     &::_ZNSt8numpunctIwE2idE,
439     &numpunct<wchar_t>::id,
440     &::_ZNSt7collateIwE2idE,
441     &std::collate<wchar_t>::id,
442     &::_ZNSt8time_getIwSt19istreambuf_iteratorIwSt11char_traitsIwEEE2idE,
443     &time_get<wchar_t>::id,
444     &::_ZNSt9money_getIwSt19istreambuf_iteratorIwSt11char_traitsIwEEE2idE,
445     &money_get<wchar_t>::id,
446     &::_ZNSt9money_putIwSt19ostreambuf_iteratorIwSt11char_traitsIwEEE2idE,
447     &money_put<wchar_t>::id,
448     &::_ZNSt10moneypunctIwLb0EE2idE,
449     &moneypunct<wchar_t, false>::id,
450     &::_ZNSt10moneypunctIwLb1EE2idE,
451     &moneypunct<wchar_t, true >::id,
452     &::_ZNSt8messagesIwE2idE,
453     &std::messages<wchar_t>::id,
454 # endif
455     0, 0
456   };
457 #endif
458 
459   // Construct "C" _Impl.
460   locale::_Impl::
_Impl(size_t __refs)461   _Impl(size_t __refs) throw()
462   : _M_refcount(__refs), _M_facets(0), _M_facets_size(num_facets),
463   _M_caches(0), _M_names(0)
464   {
465     _M_facets = new (&facet_vec) const facet*[_M_facets_size]();
466     _M_caches = new (&cache_vec) const facet*[_M_facets_size]();
467 
468     // Name the categories.
469     _M_names = new (&name_vec) char*[_S_categories_size]();
470     _M_names[0] = new (&name_c[0]) char[2];
471     std::memcpy(_M_names[0], locale::facet::_S_get_c_name(), 2);
472 
473     // This is needed as presently the C++ version of "C" locales
474     // != data in the underlying locale model for __timepunct,
475     // numpunct, and moneypunct. Also, the "C" locales must be
476     // constructed in a way such that they are pre-allocated.
477     // NB: Set locale::facets(ref) count to one so that each individual
478     // facet is not destroyed when the locale (and thus locale::_Impl) is
479     // destroyed.
480     _M_init_facet(new (&ctype_c) std::ctype<char>(0, false, 1));
481     _M_init_facet(new (&codecvt_c) codecvt<char, char, mbstate_t>(1));
482 
483     typedef __numpunct_cache<char> num_cache_c;
484     num_cache_c* __npc = new (&numpunct_cache_c) num_cache_c(2);
485     _M_init_facet(new (&numpunct_c) numpunct<char>(__npc, 1));
486 
487     _M_init_facet(new (&num_get_c) num_get<char>(1));
488     _M_init_facet(new (&num_put_c) num_put<char>(1));
489     _M_init_facet(new (&collate_c) std::collate<char>(1));
490 
491     typedef __moneypunct_cache<char, false> money_cache_cf;
492     typedef __moneypunct_cache<char, true> money_cache_ct;
493     money_cache_cf* __mpcf = new (&moneypunct_cache_cf) money_cache_cf(2);
494     _M_init_facet(new (&moneypunct_cf) moneypunct<char, false>(__mpcf, 1));
495     money_cache_ct* __mpct = new (&moneypunct_cache_ct) money_cache_ct(2);
496     _M_init_facet(new (&moneypunct_ct) moneypunct<char, true>(__mpct, 1));
497 
498     _M_init_facet(new (&money_get_c) money_get<char>(1));
499     _M_init_facet(new (&money_put_c) money_put<char>(1));
500 
501     typedef __timepunct_cache<char> time_cache_c;
502     time_cache_c* __tpc = new (&timepunct_cache_c) time_cache_c(2);
503     _M_init_facet(new (&timepunct_c) __timepunct<char>(__tpc, 1));
504 
505     _M_init_facet(new (&time_get_c) time_get<char>(1));
506     _M_init_facet(new (&time_put_c) time_put<char>(1));
507     _M_init_facet(new (&messages_c) std::messages<char>(1));
508 
509 #ifdef  _GLIBCXX_USE_WCHAR_T
510     _M_init_facet(new (&ctype_w) std::ctype<wchar_t>(1));
511     _M_init_facet(new (&codecvt_w) codecvt<wchar_t, char, mbstate_t>(1));
512 
513     typedef __numpunct_cache<wchar_t> num_cache_w;
514     num_cache_w* __npw = new (&numpunct_cache_w) num_cache_w(2);
515     _M_init_facet(new (&numpunct_w) numpunct<wchar_t>(__npw, 1));
516 
517     _M_init_facet(new (&num_get_w) num_get<wchar_t>(1));
518     _M_init_facet(new (&num_put_w) num_put<wchar_t>(1));
519     _M_init_facet(new (&collate_w) std::collate<wchar_t>(1));
520 
521     typedef __moneypunct_cache<wchar_t, false> money_cache_wf;
522     typedef __moneypunct_cache<wchar_t, true> money_cache_wt;
523     money_cache_wf* __mpwf = new (&moneypunct_cache_wf) money_cache_wf(2);
524     _M_init_facet(new (&moneypunct_wf) moneypunct<wchar_t, false>(__mpwf, 1));
525     money_cache_wt* __mpwt = new (&moneypunct_cache_wt) money_cache_wt(2);
526     _M_init_facet(new (&moneypunct_wt) moneypunct<wchar_t, true>(__mpwt, 1));
527 
528     _M_init_facet(new (&money_get_w) money_get<wchar_t>(1));
529     _M_init_facet(new (&money_put_w) money_put<wchar_t>(1));
530 
531     typedef __timepunct_cache<wchar_t> time_cache_w;
532     time_cache_w* __tpw = new (&timepunct_cache_w) time_cache_w(2);
533     _M_init_facet(new (&timepunct_w) __timepunct<wchar_t>(__tpw, 1));
534 
535     _M_init_facet(new (&time_get_w) time_get<wchar_t>(1));
536     _M_init_facet(new (&time_put_w) time_put<wchar_t>(1));
537     _M_init_facet(new (&messages_w) std::messages<wchar_t>(1));
538 #endif
539 
540 #ifdef _GLIBCXX_USE_C99_STDINT_TR1
541     _M_init_facet(new (&codecvt_c16) codecvt<char16_t, char, mbstate_t>(1));
542     _M_init_facet(new (&codecvt_c32) codecvt<char32_t, char, mbstate_t>(1));
543 #endif
544 
545 #if _GLIBCXX_USE_DUAL_ABI
546     facet* extra[] = { __npc, __mpcf, __mpct
547 # ifdef  _GLIBCXX_USE_WCHAR_T
548         , __npw, __mpwf, __mpwt
549 # endif
550     };
551 
552     _M_init_extra(extra);
553 #endif
554 
555     // This locale is safe to pre-cache, after all the facets have
556     // been created and installed.
557     _M_caches[numpunct<char>::id._M_id()] = __npc;
558     _M_caches[moneypunct<char, false>::id._M_id()] = __mpcf;
559     _M_caches[moneypunct<char, true>::id._M_id()] = __mpct;
560     _M_caches[__timepunct<char>::id._M_id()] = __tpc;
561 #ifdef  _GLIBCXX_USE_WCHAR_T
562     _M_caches[numpunct<wchar_t>::id._M_id()] = __npw;
563     _M_caches[moneypunct<wchar_t, false>::id._M_id()] = __mpwf;
564     _M_caches[moneypunct<wchar_t, true>::id._M_id()] = __mpwt;
565     _M_caches[__timepunct<wchar_t>::id._M_id()] = __tpw;
566 #endif
567   }
568 
569 _GLIBCXX_END_NAMESPACE_VERSION
570 } // namespace
571