1 // Copyright (C) 1997-2020 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   typedef char fake_codecvt_c16[sizeof(codecvt<char16_t, char, mbstate_t>)]
205   __attribute__ ((aligned(__alignof__(codecvt<char16_t, char, mbstate_t>))));
206   fake_codecvt_c16 codecvt_c16;
207 
208   typedef char fake_codecvt_c32[sizeof(codecvt<char32_t, char, mbstate_t>)]
209   __attribute__ ((aligned(__alignof__(codecvt<char32_t, char, mbstate_t>))));
210   fake_codecvt_c32 codecvt_c32;
211 
212 #ifdef _GLIBCXX_USE_CHAR8_T
213   typedef char fake_codecvt_c16_c8[sizeof(codecvt<char16_t, char8_t, mbstate_t>)]
214   __attribute__ ((aligned(__alignof__(codecvt<char16_t, char8_t, mbstate_t>))));
215   fake_codecvt_c16_c8 codecvt_c16_c8;
216 
217   typedef char fake_codecvt_c32_c8[sizeof(codecvt<char32_t, char8_t, mbstate_t>)]
218   __attribute__ ((aligned(__alignof__(codecvt<char32_t, char8_t, mbstate_t>))));
219   fake_codecvt_c32_c8 codecvt_c32_c8;
220 #endif
221 
222   // Storage for "C" locale caches.
223   typedef char fake_num_cache_c[sizeof(std::__numpunct_cache<char>)]
224   __attribute__ ((aligned(__alignof__(std::__numpunct_cache<char>))));
225   fake_num_cache_c numpunct_cache_c;
226 
227   typedef char fake_money_cache_c[sizeof(std::__moneypunct_cache<char, true>)]
228   __attribute__ ((aligned(__alignof__(std::__moneypunct_cache<char, true>))));
229   fake_money_cache_c moneypunct_cache_ct;
230   fake_money_cache_c moneypunct_cache_cf;
231 
232   typedef char fake_time_cache_c[sizeof(std::__timepunct_cache<char>)]
233   __attribute__ ((aligned(__alignof__(std::__timepunct_cache<char>))));
234   fake_time_cache_c timepunct_cache_c;
235 
236 #ifdef _GLIBCXX_USE_WCHAR_T
237   typedef char fake_num_cache_w[sizeof(std::__numpunct_cache<wchar_t>)]
238   __attribute__ ((aligned(__alignof__(std::__numpunct_cache<wchar_t>))));
239   fake_num_cache_w numpunct_cache_w;
240 
241   typedef char fake_money_cache_w[sizeof(std::__moneypunct_cache<wchar_t,true>)]
242   __attribute__ ((aligned(__alignof__(std::__moneypunct_cache<wchar_t,true>))));
243   fake_money_cache_w moneypunct_cache_wt;
244   fake_money_cache_w moneypunct_cache_wf;
245 
246   typedef char fake_time_cache_w[sizeof(std::__timepunct_cache<wchar_t>)]
247   __attribute__ ((aligned(__alignof__(std::__timepunct_cache<wchar_t>))));
248   fake_time_cache_w timepunct_cache_w;
249 #endif
250 } // anonymous namespace
251 
252 namespace std _GLIBCXX_VISIBILITY(default)
253 {
254 _GLIBCXX_BEGIN_NAMESPACE_VERSION
255 
locale()256   locale::locale() throw() : _M_impl(0)
257   {
258     _S_initialize();
259 
260     // Checked locking to optimize the common case where _S_global
261     // still points to _S_classic (locale::_S_initialize_once()):
262     // - If they are the same, just increment the reference count and
263     //   we are done.  This effectively constructs a C locale object
264     //   identical to the static c_locale.
265     // - Otherwise, _S_global can and may be destroyed due to
266     //   locale::global() call on another thread, in which case we
267     //   fall back to lock protected access to both _S_global and
268     //   its reference count.
269     _M_impl = _S_global;
270     if (_M_impl != _S_classic)
271       {
272         __gnu_cxx::__scoped_lock sentry(get_locale_mutex());
273         _S_global->_M_add_reference();
274         _M_impl = _S_global;
275       }
276   }
277 
278   locale
global(const locale & __other)279   locale::global(const locale& __other)
280   {
281     _S_initialize();
282     _Impl* __old;
283     {
284       __gnu_cxx::__scoped_lock sentry(get_locale_mutex());
285       __old = _S_global;
286       if (__other._M_impl != _S_classic)
287 	__other._M_impl->_M_add_reference();
288       _S_global = __other._M_impl;
289       const string __other_name = __other.name();
290       if (__other_name != "*")
291 	setlocale(LC_ALL, __other_name.c_str());
292     }
293 
294     // Reference count sanity check: one reference removed for the
295     // subsition of __other locale, one added by return-by-value. Net
296     // difference: zero. When the returned locale object's destructor
297     // is called, then the reference count is decremented and possibly
298     // destroyed.
299     return locale(__old);
300   }
301 
302   const locale&
classic()303   locale::classic()
304   {
305     _S_initialize();
306     return *(const locale*)c_locale;
307   }
308 
309   void
_S_initialize_once()310   locale::_S_initialize_once() throw()
311   {
312     // 2 references.
313     // One reference for _S_classic, one for _S_global
314     _S_classic = new (&c_locale_impl) _Impl(2);
315     _S_global = _S_classic;
316     new (&c_locale) locale(_S_classic);
317   }
318 
319   void
_S_initialize()320   locale::_S_initialize()
321   {
322 #ifdef __GTHREADS
323     if (__gthread_active_p())
324       __gthread_once(&_S_once, _S_initialize_once);
325 #endif
326     if (!_S_classic)
327       _S_initialize_once();
328   }
329 
330   // Definitions for static const data members of locale::_Impl
331   const locale::id* const
332   locale::_Impl::_S_id_ctype[] =
333   {
334     &std::ctype<char>::id,
335     &codecvt<char, char, mbstate_t>::id,
336 #ifdef _GLIBCXX_USE_WCHAR_T
337     &std::ctype<wchar_t>::id,
338     &codecvt<wchar_t, char, mbstate_t>::id,
339 #endif
340 #if _GLIBCXX_NUM_UNICODE_FACETS != 0
341     &codecvt<char16_t, char, mbstate_t>::id,
342     &codecvt<char32_t, char, mbstate_t>::id,
343 #ifdef _GLIBCXX_USE_CHAR8_T
344     &codecvt<char16_t, char8_t, mbstate_t>::id,
345     &codecvt<char32_t, char8_t, mbstate_t>::id,
346 #endif
347 #endif
348     0
349   };
350 
351   const locale::id* const
352   locale::_Impl::_S_id_numeric[] =
353   {
354     &num_get<char>::id,
355     &num_put<char>::id,
356     &numpunct<char>::id,
357 #ifdef _GLIBCXX_USE_WCHAR_T
358     &num_get<wchar_t>::id,
359     &num_put<wchar_t>::id,
360     &numpunct<wchar_t>::id,
361 #endif
362     0
363   };
364 
365   const locale::id* const
366   locale::_Impl::_S_id_collate[] =
367   {
368     &std::collate<char>::id,
369 #ifdef _GLIBCXX_USE_WCHAR_T
370     &std::collate<wchar_t>::id,
371 #endif
372     0
373   };
374 
375   const locale::id* const
376   locale::_Impl::_S_id_time[] =
377   {
378     &__timepunct<char>::id,
379     &time_get<char>::id,
380     &time_put<char>::id,
381 #ifdef _GLIBCXX_USE_WCHAR_T
382     &__timepunct<wchar_t>::id,
383     &time_get<wchar_t>::id,
384     &time_put<wchar_t>::id,
385 #endif
386     0
387   };
388 
389   const locale::id* const
390   locale::_Impl::_S_id_monetary[] =
391   {
392     &money_get<char>::id,
393     &money_put<char>::id,
394     &moneypunct<char, false>::id,
395     &moneypunct<char, true >::id,
396 #ifdef _GLIBCXX_USE_WCHAR_T
397     &money_get<wchar_t>::id,
398     &money_put<wchar_t>::id,
399     &moneypunct<wchar_t, false>::id,
400     &moneypunct<wchar_t, true >::id,
401 #endif
402     0
403   };
404 
405   const locale::id* const
406   locale::_Impl::_S_id_messages[] =
407   {
408     &std::messages<char>::id,
409 #ifdef _GLIBCXX_USE_WCHAR_T
410     &std::messages<wchar_t>::id,
411 #endif
412     0
413   };
414 
415   const locale::id* const* const
416   locale::_Impl::_S_facet_categories[] =
417   {
418     // Order must match the decl order in class locale.
419     locale::_Impl::_S_id_ctype,
420     locale::_Impl::_S_id_numeric,
421     locale::_Impl::_S_id_collate,
422     locale::_Impl::_S_id_time,
423     locale::_Impl::_S_id_monetary,
424     locale::_Impl::_S_id_messages,
425     0
426   };
427 
428 #if _GLIBCXX_USE_DUAL_ABI
429   // Facets that are instantiated for both the COW and SSO std::string ABIs.
430   // The COW ABI version must come first, followed by its SSO twin.
431   const locale::id* const locale::_S_twinned_facets[] = {
432     &::_ZNSt8numpunctIcE2idE,
433     &numpunct<char>::id,
434     &::_ZNSt7collateIcE2idE,
435     &std::collate<char>::id,
436     &::_ZNSt8time_getIcSt19istreambuf_iteratorIcSt11char_traitsIcEEE2idE,
437     &time_get<char>::id,
438     &::_ZNSt9money_getIcSt19istreambuf_iteratorIcSt11char_traitsIcEEE2idE,
439     &money_get<char>::id,
440     &::_ZNSt9money_putIcSt19ostreambuf_iteratorIcSt11char_traitsIcEEE2idE,
441     &money_put<char>::id,
442     &::_ZNSt10moneypunctIcLb0EE2idE,
443     &moneypunct<char, false>::id,
444     &::_ZNSt10moneypunctIcLb1EE2idE,
445     &moneypunct<char, true >::id,
446     &::_ZNSt8messagesIcE2idE,
447     &std::messages<char>::id,
448 # ifdef _GLIBCXX_USE_WCHAR_T
449     &::_ZNSt8numpunctIwE2idE,
450     &numpunct<wchar_t>::id,
451     &::_ZNSt7collateIwE2idE,
452     &std::collate<wchar_t>::id,
453     &::_ZNSt8time_getIwSt19istreambuf_iteratorIwSt11char_traitsIwEEE2idE,
454     &time_get<wchar_t>::id,
455     &::_ZNSt9money_getIwSt19istreambuf_iteratorIwSt11char_traitsIwEEE2idE,
456     &money_get<wchar_t>::id,
457     &::_ZNSt9money_putIwSt19ostreambuf_iteratorIwSt11char_traitsIwEEE2idE,
458     &money_put<wchar_t>::id,
459     &::_ZNSt10moneypunctIwLb0EE2idE,
460     &moneypunct<wchar_t, false>::id,
461     &::_ZNSt10moneypunctIwLb1EE2idE,
462     &moneypunct<wchar_t, true >::id,
463     &::_ZNSt8messagesIwE2idE,
464     &std::messages<wchar_t>::id,
465 # endif
466     0, 0
467   };
468 #endif
469 
470   // Construct "C" _Impl.
471   locale::_Impl::
_Impl(size_t __refs)472   _Impl(size_t __refs) throw()
473   : _M_refcount(__refs), _M_facets(0), _M_facets_size(num_facets),
474   _M_caches(0), _M_names(0)
475   {
476     _M_facets = new (&facet_vec) const facet*[_M_facets_size]();
477     _M_caches = new (&cache_vec) const facet*[_M_facets_size]();
478 
479     // Name the categories.
480     _M_names = new (&name_vec) char*[_S_categories_size]();
481     _M_names[0] = new (&name_c[0]) char[2];
482     std::memcpy(_M_names[0], locale::facet::_S_get_c_name(), 2);
483 
484     // This is needed as presently the C++ version of "C" locales
485     // != data in the underlying locale model for __timepunct,
486     // numpunct, and moneypunct. Also, the "C" locales must be
487     // constructed in a way such that they are pre-allocated.
488     // NB: Set locale::facets(ref) count to one so that each individual
489     // facet is not destroyed when the locale (and thus locale::_Impl) is
490     // destroyed.
491     _M_init_facet(new (&ctype_c) std::ctype<char>(0, false, 1));
492     _M_init_facet(new (&codecvt_c) codecvt<char, char, mbstate_t>(1));
493 
494     typedef __numpunct_cache<char> num_cache_c;
495     num_cache_c* __npc = new (&numpunct_cache_c) num_cache_c(2);
496     _M_init_facet(new (&numpunct_c) numpunct<char>(__npc, 1));
497 
498     _M_init_facet(new (&num_get_c) num_get<char>(1));
499     _M_init_facet(new (&num_put_c) num_put<char>(1));
500     _M_init_facet(new (&collate_c) std::collate<char>(1));
501 
502     typedef __moneypunct_cache<char, false> money_cache_cf;
503     typedef __moneypunct_cache<char, true> money_cache_ct;
504     money_cache_cf* __mpcf = new (&moneypunct_cache_cf) money_cache_cf(2);
505     _M_init_facet(new (&moneypunct_cf) moneypunct<char, false>(__mpcf, 1));
506     money_cache_ct* __mpct = new (&moneypunct_cache_ct) money_cache_ct(2);
507     _M_init_facet(new (&moneypunct_ct) moneypunct<char, true>(__mpct, 1));
508 
509     _M_init_facet(new (&money_get_c) money_get<char>(1));
510     _M_init_facet(new (&money_put_c) money_put<char>(1));
511 
512     typedef __timepunct_cache<char> time_cache_c;
513     time_cache_c* __tpc = new (&timepunct_cache_c) time_cache_c(2);
514     _M_init_facet(new (&timepunct_c) __timepunct<char>(__tpc, 1));
515 
516     _M_init_facet(new (&time_get_c) time_get<char>(1));
517     _M_init_facet(new (&time_put_c) time_put<char>(1));
518     _M_init_facet(new (&messages_c) std::messages<char>(1));
519 
520 #ifdef  _GLIBCXX_USE_WCHAR_T
521     _M_init_facet(new (&ctype_w) std::ctype<wchar_t>(1));
522     _M_init_facet(new (&codecvt_w) codecvt<wchar_t, char, mbstate_t>(1));
523 
524     typedef __numpunct_cache<wchar_t> num_cache_w;
525     num_cache_w* __npw = new (&numpunct_cache_w) num_cache_w(2);
526     _M_init_facet(new (&numpunct_w) numpunct<wchar_t>(__npw, 1));
527 
528     _M_init_facet(new (&num_get_w) num_get<wchar_t>(1));
529     _M_init_facet(new (&num_put_w) num_put<wchar_t>(1));
530     _M_init_facet(new (&collate_w) std::collate<wchar_t>(1));
531 
532     typedef __moneypunct_cache<wchar_t, false> money_cache_wf;
533     typedef __moneypunct_cache<wchar_t, true> money_cache_wt;
534     money_cache_wf* __mpwf = new (&moneypunct_cache_wf) money_cache_wf(2);
535     _M_init_facet(new (&moneypunct_wf) moneypunct<wchar_t, false>(__mpwf, 1));
536     money_cache_wt* __mpwt = new (&moneypunct_cache_wt) money_cache_wt(2);
537     _M_init_facet(new (&moneypunct_wt) moneypunct<wchar_t, true>(__mpwt, 1));
538 
539     _M_init_facet(new (&money_get_w) money_get<wchar_t>(1));
540     _M_init_facet(new (&money_put_w) money_put<wchar_t>(1));
541 
542     typedef __timepunct_cache<wchar_t> time_cache_w;
543     time_cache_w* __tpw = new (&timepunct_cache_w) time_cache_w(2);
544     _M_init_facet(new (&timepunct_w) __timepunct<wchar_t>(__tpw, 1));
545 
546     _M_init_facet(new (&time_get_w) time_get<wchar_t>(1));
547     _M_init_facet(new (&time_put_w) time_put<wchar_t>(1));
548     _M_init_facet(new (&messages_w) std::messages<wchar_t>(1));
549 #endif
550 
551 #if _GLIBCXX_NUM_UNICODE_FACETS != 0
552     _M_init_facet(new (&codecvt_c16) codecvt<char16_t, char, mbstate_t>(1));
553     _M_init_facet(new (&codecvt_c32) codecvt<char32_t, char, mbstate_t>(1));
554 
555 #ifdef _GLIBCXX_USE_CHAR8_T
556     _M_init_facet(new (&codecvt_c16_c8) codecvt<char16_t, char8_t, mbstate_t>(1));
557     _M_init_facet(new (&codecvt_c32_c8) codecvt<char32_t, char8_t, mbstate_t>(1));
558 #endif
559 
560 #endif
561 
562 #if _GLIBCXX_USE_DUAL_ABI
563     facet* extra[] = { __npc, __mpcf, __mpct
564 # ifdef  _GLIBCXX_USE_WCHAR_T
565         , __npw, __mpwf, __mpwt
566 # endif
567     };
568 
569     _M_init_extra(extra);
570 #endif
571 
572     // This locale is safe to pre-cache, after all the facets have
573     // been created and installed.
574     _M_caches[numpunct<char>::id._M_id()] = __npc;
575     _M_caches[moneypunct<char, false>::id._M_id()] = __mpcf;
576     _M_caches[moneypunct<char, true>::id._M_id()] = __mpct;
577     _M_caches[__timepunct<char>::id._M_id()] = __tpc;
578 #ifdef  _GLIBCXX_USE_WCHAR_T
579     _M_caches[numpunct<wchar_t>::id._M_id()] = __npw;
580     _M_caches[moneypunct<wchar_t, false>::id._M_id()] = __mpwf;
581     _M_caches[moneypunct<wchar_t, true>::id._M_id()] = __mpwt;
582     _M_caches[__timepunct<wchar_t>::id._M_id()] = __tpw;
583 #endif
584   }
585 
586 _GLIBCXX_END_NAMESPACE_VERSION
587 } // namespace
588