1/* Definitions of target machine for GNU compiler.  Iris version 6.
2   Copyright (C) 1994, 1995, 1996, 1997, 1998, 2000, 2001, 2002, 2003
3   Free Software Foundation, Inc.
4
5This file is part of GNU CC.
6
7GNU CC is free software; you can redistribute it and/or modify
8it under the terms of the GNU General Public License as published by
9the Free Software Foundation; either version 2, or (at your option)
10any later version.
11
12GNU CC is distributed in the hope that it will be useful,
13but WITHOUT ANY WARRANTY; without even the implied warranty of
14MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15GNU General Public License for more details.
16
17You should have received a copy of the GNU General Public License
18along with GNU CC; see the file COPYING.  If not, write to
19the Free Software Foundation, 59 Temple Place - Suite 330,
20Boston, MA 02111-1307, USA.  */
21
22/* Let mips.c know we need the Irix6 functions.  */
23#define TARGET_IRIX6 1
24
25/* Default to -mabi=n32 and -mips3.  */
26#define MIPS_ISA_DEFAULT 3
27#define MIPS_ABI_DEFAULT ABI_N32
28#define MULTILIB_DEFAULTS { "mabi=n32" }
29
30#ifndef TARGET_DEFAULT
31#define TARGET_DEFAULT (MASK_ABICALLS|MASK_FLOAT64|MASK_64BIT)
32#endif
33
34#include "mips/iris5.h"
35
36/* Irix6 assembler does handle DWARF2 directives.  Override setting in
37   irix5.h file.  */
38#undef DWARF2_UNWIND_INFO
39
40/* The Irix6 assembler will sometimes assign labels to the wrong
41   section unless the labels are within .ent/.end blocks.  Therefore,
42   we avoid creating such labels.  */
43#define DWARF2_GENERATE_TEXT_SECTION_LABEL 0
44
45/* wchar_t is defined differently with and without -mabi=64.  */
46
47#undef WCHAR_TYPE
48#define WCHAR_TYPE (Pmode == DImode ? "int" : "long int")
49
50#undef WCHAR_TYPE_SIZE
51#define WCHAR_TYPE_SIZE 32
52
53/* Same for wint_t.  */
54
55#undef WINT_TYPE
56#define WINT_TYPE (Pmode == DImode ? "int" : "long int")
57
58#undef WINT_TYPE_SIZE
59#define WINT_TYPE_SIZE 32
60
61/* For Irix 6, -mabi=64 implies TARGET_LONG64.  */
62/* This is handled in override_options.  */
63
64#undef SUBTARGET_CC1_SPEC
65#define SUBTARGET_CC1_SPEC ""
66
67/* We must pass -D_LONGLONG always, even when -ansi is used, because irix6
68   system header files require it.  This is OK, because gcc never warns
69   when long long is used in system header files.  Alternatively, we can
70   add support for the SGI builtin type __long_long.  */
71
72/* The GNU C++ standard library requires that __EXTENSIONS__ and
73   _SGI_SOURCE be defined on at least irix6.2 and probably all IRIX 6
74   prior to 6.5.  They normally get defined if !ansi, for g++ we want
75   them regardless.  We don't need this on IRIX 6.5 itself, but it
76   shouldn't hurt other than the namespace pollution.  */
77
78/* Undefine because this includes iris5.h.  */
79#undef  TARGET_OS_CPP_BUILTINS
80#define TARGET_OS_CPP_BUILTINS()			\
81    do {						\
82	builtin_define_std ("host_mips");		\
83	builtin_define ("_LONGLONG");			\
84	builtin_define ("_MODERN_C");			\
85	builtin_define ("_SVR4_SOURCE");		\
86	builtin_define_std ("SYSTYPE_SVR4");		\
87	builtin_define ("__DSO__");			\
88	builtin_define_std ("unix");			\
89	builtin_define_std ("sgi");			\
90	builtin_assert ("system=svr4");			\
91	builtin_assert ("system=unix");			\
92	builtin_assert ("machine=sgi");			\
93							\
94     if (mips_abi == ABI_32)				\
95      {							\
96	builtin_define ("_MIPS_SIM=_MIPS_SIM_ABI32");	\
97	builtin_define ("_MIPS_SZLONG=32");		\
98	builtin_define ("_MIPS_SZPTR=32");		\
99      }							\
100     else if (mips_abi == ABI_64)			\
101      {							\
102	builtin_define ("_ABI64=3");			\
103	builtin_define ("_MIPS_SIM=_ABI64");		\
104	builtin_define ("_MIPS_SZLONG=64");		\
105	builtin_define ("_MIPS_SZPTR=64");		\
106      }							\
107     else						\
108      {							\
109	builtin_define ("_ABIN32=2");			\
110	builtin_define ("_MIPS_SIM=_ABIN32");		\
111	builtin_define ("_MIPS_SZLONG=32");		\
112	builtin_define ("_MIPS_SZPTR=32");		\
113      }							\
114							\
115     if (!TARGET_FLOAT64)				\
116	builtin_define ("_MIPS_FPSET=16");		\
117     else						\
118	builtin_define ("_MIPS_FPSET=32");		\
119							\
120     if (!TARGET_INT64)					\
121	builtin_define ("_MIPS_SZINT=32");		\
122     else						\
123	builtin_define ("_MIPS_SZINT=64");		\
124							\
125     if (!ISA_MIPS1 && !ISA_MIPS2)			\
126	builtin_define ("_COMPILER_VERSION=601");	\
127							\
128     /* IRIX 6.5.18 and above provide many ISO C99	\
129	features protected by the __c99 macro.		\
130	libstdc++ v3 needs them as well.  */		\
131     if ((c_language == clk_c && flag_isoc99)		\
132	 || c_language == clk_cplusplus)		\
133	builtin_define ("__c99");			\
134							\
135     if (c_language == clk_cplusplus)			\
136      {							\
137	builtin_define ("__EXTENSIONS__");		\
138	builtin_define ("_SGI_SOURCE");			\
139      }							\
140							\
141     if (!flag_iso)					\
142       {						\
143	 builtin_define ("__EXTENSIONS__");		\
144	 builtin_define ("_SGI_SOURCE");		\
145       }						\
146} while (0)
147
148/* Irix 6 uses DWARF-2.  */
149#define DWARF2_DEBUGGING_INFO 1
150#define MIPS_DEBUGGING_INFO 1
151#undef PREFERRED_DEBUGGING_TYPE
152#define PREFERRED_DEBUGGING_TYPE DWARF2_DEBUG
153
154/* Force the generation of dwarf .debug_frame sections even if not
155   compiling -g.  This guarantees that we can unwind the stack.  */
156#define DWARF2_FRAME_INFO 1
157
158/* The size in bytes of a DWARF field indicating an offset or length
159   relative to a debug info section, specified to be 4 bytes in the DWARF-2
160   specification.  The SGI/MIPS ABI defines it to be the same as PTR_SIZE.  */
161#define DWARF_OFFSET_SIZE PTR_SIZE
162
163/* There is no GNU as port for Irix6 yet, so we set MD_EXEC_PREFIX so that
164   gcc will automatically find SGI as instead of searching the user's path.
165   The latter can fail when building a cross compiler if the user has . in
166   the path before /usr/bin, since then gcc will find and try to use the link
167   to the cross assembler which can't possibly work.  */
168
169#undef MD_EXEC_PREFIX
170#define MD_EXEC_PREFIX "/usr/bin/"
171
172/* We have no need for MD_STARTFILE_PREFIX.  */
173#undef MD_STARTFILE_PREFIX
174
175#undef MACHINE_TYPE
176#define MACHINE_TYPE "SGI running IRIX 6.x"
177
178/* Irix 5 stuff that we don't need for Irix 6.  */
179/* ??? We do need this for the -mabi=32 switch though.  */
180#undef ASM_OUTPUT_UNDEF_FUNCTION
181#undef ASM_OUTPUT_EXTERNAL_LIBCALL
182#undef ASM_DECLARE_FUNCTION_SIZE
183
184/* Stuff we need for Irix 6 that isn't in Irix 5.  */
185
186/* The SGI assembler doesn't like labels before the .ent, so we must output
187   the .ent and function name here, which is the normal place for it.  */
188
189#undef ASM_DECLARE_FUNCTION_NAME
190#define ASM_DECLARE_FUNCTION_NAME(STREAM, NAME, DECL)			\
191  do {									\
192    fputs ("\t.ent\t", STREAM);						\
193    assemble_name (STREAM, NAME);					\
194    fputs ("\n", STREAM);						\
195    assemble_name (STREAM, NAME);					\
196    fputs (":\n", STREAM);						\
197  } while (0)
198
199/* Likewise, the SGI assembler doesn't like labels after the .end, so we
200   must output the .end here.  */
201#define ASM_DECLARE_FUNCTION_SIZE(STREAM, NAME, DECL)			\
202  do {									\
203    fputs ("\t.end\t", STREAM);						\
204    assemble_name (STREAM, NAME);					\
205    fputs ("\n", STREAM);						\
206  } while (0)
207
208/* Tell function_prologue in mips.c that we have already output the .ent/.end
209   pseudo-ops.  */
210#define FUNCTION_NAME_ALREADY_DECLARED
211
212#undef SET_ASM_OP	/* Has no equivalent.  See ASM_OUTPUT_DEF below.  */
213
214#if 0
215/* This is *NOT* how to equate one symbol to another symbol.  The assembler
216   '=' syntax just equates a name to a constant expression.
217   See ASM_OUTPUT_WEAK_ALIAS.  */
218
219#define ASM_OUTPUT_DEF(FILE,LABEL1,LABEL2)				\
220 do {	fprintf ((FILE), "\t");						\
221	assemble_name (FILE, LABEL1);					\
222	fprintf (FILE, " = ");						\
223	assemble_name (FILE, LABEL2);					\
224	fprintf (FILE, "\n");						\
225  } while (0)
226#endif
227
228/* Define the strings used for the special svr4 .type and .size directives.  */
229
230#define TYPE_ASM_OP	"\t.type\t"
231#define SIZE_ASM_OP	"\t.size\t"
232
233/* Irix assembler does not support the init_priority C++ attribute.  */
234#undef SUPPORTS_INIT_PRIORITY
235#define SUPPORTS_INIT_PRIORITY 0
236
237/* A linker error can empirically be avoided by removing duplicate
238   library search directories.  */
239#define LINK_ELIMINATE_DUPLICATE_LDIRECTORIES 1
240
241#define POPSECTION_ASM_OP	"\t.popsection"
242
243/* ??? If no mabi=X option give, but a mipsX option is, then should depend
244   on the mipsX option.  */
245/* If no mips[3,4] option given, give the appropriate default for mabi=X */
246#undef SUBTARGET_ASM_SPEC
247#define SUBTARGET_ASM_SPEC "%{!mabi*:-n32} %{!mips*: %{!mabi*:-mips3} %{mabi=n32|mabi=64:-mips3}}"
248
249/* Must pass -g0 to the assembler, otherwise it may overwrite our
250   debug info with its own debug info.  */
251/* Must pass -show instead of -v.  */
252/* Must pass -G 0 to the assembler, otherwise we may get warnings about
253   GOT overflow.  */
254/* ??? We pass -w to disable all assembler warnings.  The `label should be
255   inside .ent/.end block' warning that we get for DWARF II debug info labels
256   is particularly annoying.  */
257#undef SUBTARGET_MIPS_AS_ASM_SPEC
258#define SUBTARGET_MIPS_AS_ASM_SPEC "%{v:-show} -G 0 -w"
259
260#undef SUBTARGET_ASM_DEBUGGING_SPEC
261#define SUBTARGET_ASM_DEBUGGING_SPEC "-g0"
262
263/* The MIPS assembler occasionally misoptimizes.  Since GCC should be
264   doing scheduling anyhow, just turn off optimization in the assembler.  */
265#undef SUBTARGET_ASM_OPTIMIZING_SPEC
266#define SUBTARGET_ASM_OPTIMIZING_SPEC "-O0"
267
268/* The assembler now accepts .section pseudo-ops, but it does not allow
269   one to change the section in the middle of a function, so we can't use
270   the INIT_SECTION_ASM_OP code in crtstuff.  But we can build up the ctor
271   and dtor lists this way, so we use -init and -fini to invoke the
272   do_global_* functions instead of running collect2.  */
273
274#define BSS_SECTION_ASM_OP	"\t.section\t.bss"
275
276#undef READONLY_DATA_SECTION_ASM_OP
277#define READONLY_DATA_SECTION_ASM_OP_32	"\t.rdata"
278#define READONLY_DATA_SECTION_ASM_OP_64	"\t.section\t.rodata"
279#define READONLY_DATA_SECTION_ASM_OP		\
280  (mips_abi != ABI_32 && mips_abi != ABI_O64	\
281   ? READONLY_DATA_SECTION_ASM_OP_64		\
282   : READONLY_DATA_SECTION_ASM_OP_32)
283
284/* A default list of other sections which we might be "in" at any given
285   time.  For targets that use additional sections (e.g. .tdesc) you
286   should override this definition in the target-specific file which
287   includes this file.  */
288
289#undef EXTRA_SECTIONS
290#define EXTRA_SECTIONS in_sdata
291
292/* A default list of extra section function definitions.  For targets
293   that use additional sections (e.g. .tdesc) you should override this
294   definition in the target-specific file which includes this file.  */
295
296#undef EXTRA_SECTION_FUNCTIONS
297#define EXTRA_SECTION_FUNCTIONS						\
298void									\
299sdata_section ()							\
300{									\
301  if (in_section != in_sdata)						\
302    {									\
303      fprintf (asm_out_file, "%s\n", SDATA_SECTION_ASM_OP);		\
304      in_section = in_sdata;						\
305    }									\
306}									\
307									\
308const char *								\
309current_section_name ()							\
310{									\
311  switch (in_section)							\
312    {									\
313    case no_section:	return NULL;					\
314    case in_text:	return ".text";					\
315    case in_data:	return ".data";					\
316    case in_sdata:	return ".sdata";				\
317    case in_bss:	return ".bss";					\
318    case in_readonly_data:						\
319      if (mips_abi != ABI_32 && mips_abi != ABI_O64)			\
320	return ".rodata";						\
321      else								\
322	return ".rdata";						\
323    case in_named:							\
324      return in_named_name;						\
325    }									\
326  abort ();								\
327}									\
328									\
329unsigned int								\
330current_section_flags ()						\
331{									\
332  switch (in_section)							\
333    {									\
334    case no_section:	return 0;					\
335    case in_text:	return SECTION_CODE;				\
336    case in_data:	return SECTION_WRITE;				\
337    case in_sdata:	return SECTION_WRITE | SECTION_SMALL;		\
338    case in_bss:	return SECTION_WRITE | SECTION_BSS;		\
339    case in_readonly_data: return 0;					\
340    case in_named:	return get_named_section_flags (in_named_name);	\
341    }									\
342  abort ();								\
343}
344
345/* Switch into a generic section.  */
346#undef TARGET_ASM_NAMED_SECTION
347#define TARGET_ASM_NAMED_SECTION  iris6_asm_named_section
348
349/* SGI assembler needs all sorts of extra help to do alignment properly.  */
350#undef ASM_OUTPUT_ALIGN
351#define ASM_OUTPUT_ALIGN iris6_asm_output_align
352#undef ASM_FILE_START
353#define ASM_FILE_START  iris6_asm_file_start
354#undef ASM_FILE_END
355#define ASM_FILE_END	iris6_asm_file_end
356
357#undef MAX_OFILE_ALIGNMENT
358#define MAX_OFILE_ALIGNMENT (32768*8)
359
360/* ??? SGI assembler may core dump when compiling with -g.
361   Sometimes as succeeds, but then we get a linker error. (cmds.c in 072.sc)
362   Getting rid of .file solves both problems.  */
363#undef ASM_OUTPUT_FILENAME
364#define ASM_OUTPUT_FILENAME(STREAM, NUM_SOURCE_FILENAMES, NAME) \
365do								\
366  {								\
367    fprintf (STREAM, "\t#.file\t%d ", NUM_SOURCE_FILENAMES);	\
368    output_quoted_string (STREAM, NAME);			\
369    fputs ("\n", STREAM);					\
370  }								\
371while (0)
372
373/* ??? SGI assembler gives warning whenever .lcomm is used.  */
374#undef ASM_OUTPUT_LOCAL
375#define ASM_OUTPUT_ALIGNED_LOCAL(STREAM, NAME, SIZE, ALIGN)		   \
376do									   \
377  {									   \
378    if (mips_abi != ABI_32 && mips_abi != ABI_O64)			   \
379      {									   \
380	bss_section ();							   \
381	mips_declare_object (STREAM, NAME, "", ":\n", 0);		   \
382	ASM_OUTPUT_ALIGN (STREAM, floor_log2 (ALIGN / BITS_PER_UNIT));	   \
383	ASM_OUTPUT_SKIP (STREAM, SIZE);					   \
384      }									   \
385    else								   \
386      mips_declare_object (STREAM, NAME, "\n\t.lcomm\t", ",%u\n", (SIZE)); \
387  }									   \
388while (0)
389
390/* A C statement (sans semicolon) to output to the stdio stream
391   FILE the assembler definition of uninitialized global DECL named
392   NAME whose size is SIZE bytes and alignment is ALIGN bytes.
393   Try to use asm_output_aligned_bss to implement this macro.  */
394
395#define ASM_OUTPUT_ALIGNED_BSS(FILE, DECL, NAME, SIZE, ALIGN) \
396  asm_output_aligned_bss (FILE, DECL, NAME, SIZE, ALIGN)
397
398/* Write the extra assembler code needed to declare an object properly.  */
399
400#undef ASM_DECLARE_OBJECT_NAME
401#define ASM_DECLARE_OBJECT_NAME(STREAM, NAME, DECL)			\
402do									\
403 {									\
404   HOST_WIDE_INT size;							\
405   size_directive_output = 0;						\
406   if (!flag_inhibit_size_directive && DECL_SIZE (DECL))		\
407     {									\
408       size_directive_output = 1;					\
409       size = int_size_in_bytes (TREE_TYPE (DECL));			\
410       ASM_OUTPUT_SIZE_DIRECTIVE (STREAM, NAME, size);			\
411     }									\
412   mips_declare_object (STREAM, NAME, "", ":\n", 0);			\
413 }									\
414while (0)
415
416/* Define the `__builtin_va_list' type for the ABI.  On Irix6, this
417   type is `char *'.  */
418#undef BUILD_VA_LIST_TYPE
419#define BUILD_VA_LIST_TYPE(VALIST) \
420  (VALIST) = build_pointer_type (char_type_node)
421
422/* Output the size directive for a decl in rest_of_decl_compilation
423   in the case where we did not do so before the initializer.
424   Once we find the error_mark_node, we know that the value of
425   size_directive_output was set
426   by ASM_DECLARE_OBJECT_NAME when it was run for the same decl.  */
427
428#define ASM_FINISH_DECLARE_OBJECT(FILE, DECL, TOP_LEVEL, AT_END)	 \
429do {									 \
430     const char *name = XSTR (XEXP (DECL_RTL (DECL), 0), 0);		 \
431     HOST_WIDE_INT size;						 \
432     if (!flag_inhibit_size_directive && DECL_SIZE (DECL)		 \
433         && ! AT_END && TOP_LEVEL					 \
434	 && DECL_INITIAL (DECL) == error_mark_node			 \
435	 && !size_directive_output)					 \
436       {								 \
437	 size_directive_output = 1;					 \
438	 size = int_size_in_bytes (TREE_TYPE (DECL));			 \
439	 ASM_OUTPUT_SIZE_DIRECTIVE (FILE, name, size);			 \
440       }								 \
441   } while (0)
442
443#undef LOCAL_LABEL_PREFIX
444#define LOCAL_LABEL_PREFIX ((mips_abi == ABI_32 || mips_abi == ABI_O64) \
445			    ? "$" : ".")
446
447/* Profiling is supported via libprof1.a not -lc_p as in Irix 3.  */
448/* ??? If no mabi=X option give, but a mipsX option is, then should depend
449   on the mipsX option.  */
450#undef STARTFILE_SPEC
451#define STARTFILE_SPEC \
452  "%{!shared: \
453     %{mabi=32:%{pg:gcrt1.o%s} \
454       %{!pg:%{p:mcrt1.o%s libprof1.a%s}%{!p:crt1.o%s}}} \
455     %{mabi=n32: \
456       %{mips4:%{pg:/usr/lib32/mips4/gcrt1.o%s} \
457         %{!pg:%{p:/usr/lib32/mips4/mcrt1.o%s /usr/lib32/mips4/libprof1.a%s} \
458           %{!p:/usr/lib32/mips4/crt1.o%s}}} \
459       %{!mips4:%{pg:/usr/lib32/mips3/gcrt1.o%s} \
460         %{!pg:%{p:/usr/lib32/mips3/mcrt1.o%s /usr/lib32/mips3/libprof1.a%s} \
461           %{!p:/usr/lib32/mips3/crt1.o%s}}}} \
462     %{mabi=64: \
463       %{mips4:%{pg:/usr/lib64/mips4/gcrt1.o} \
464         %{!pg:%{p:/usr/lib64/mips4/mcrt1.o /usr/lib64/mips4/libprof1.a} \
465           %{!p:/usr/lib64/mips4/crt1.o}}} \
466       %{!mips4:%{pg:/usr/lib64/mips3/gcrt1.o} \
467         %{!pg:%{p:/usr/lib64/mips3/mcrt1.o /usr/lib64/mips3/libprof1.a} \
468           %{!p:/usr/lib64/mips3/crt1.o}}}} \
469     %{!mabi*: \
470       %{mips4:%{pg:/usr/lib32/mips4/gcrt1.o%s} \
471         %{!pg:%{p:/usr/lib32/mips4/mcrt1.o%s /usr/lib32/mips4/libprof1.a%s} \
472           %{!p:/usr/lib32/mips4/crt1.o%s}}} \
473       %{!mips4:%{pg:/usr/lib32/mips3/gcrt1.o%s} \
474         %{!pg:%{p:/usr/lib32/mips3/mcrt1.o%s /usr/lib32/mips3/libprof1.a%s} \
475           %{!p:/usr/lib32/mips3/crt1.o%s}}}}} \
476   crtbegin.o%s"
477
478#undef LIB_SPEC
479#define LIB_SPEC \
480  "%{mabi=n32: %{mips4:-L/usr/lib32/mips4} %{!mips4:-L/usr/lib32/mips3} \
481     -L/usr/lib32} \
482   %{mabi=64: %{mips4:-L/usr/lib64/mips4} %{!mips4:-L/usr/lib64/mips3} \
483     -L/usr/lib64} \
484   %{!mabi*: %{mips4:-L/usr/lib32/mips4} %{!mips4:-L/usr/lib32/mips3} \
485     -L/usr/lib32} \
486   %{!shared: \
487     -dont_warn_unused %{p:libprof1.a%s}%{pg:libprof1.a%s} -lc -warn_unused}"
488
489/* Avoid getting two warnings for libgcc.a everytime we link.  */
490#undef LIBGCC_SPEC
491#define LIBGCC_SPEC "-dont_warn_unused -lgcc -warn_unused"
492
493/* ??? If no mabi=X option give, but a mipsX option is, then should depend
494   on the mipsX option.  */
495#undef ENDFILE_SPEC
496#define ENDFILE_SPEC \
497  "crtend.o%s \
498   %{!shared: \
499     %{mabi=32:crtn.o%s}\
500     %{mabi=n32:%{mips4:/usr/lib32/mips4/crtn.o%s}\
501       %{!mips4:/usr/lib32/mips3/crtn.o%s}}\
502     %{mabi=64:%{mips4:/usr/lib64/mips4/crtn.o%s}\
503       %{!mips4:/usr/lib64/mips3/crtn.o%s}}\
504     %{!mabi*:%{mips4:/usr/lib32/mips4/crtn.o%s}\
505       %{!mips4:/usr/lib32/mips3/crtn.o%s}}}"
506
507/* ??? If no mabi=X option give, but a mipsX option is, then should depend
508   on the mipsX option.  */
509#undef LINK_SPEC
510#define LINK_SPEC "\
511%{G*} %{EB} %{EL} %{mips1} %{mips2} %{mips3} %{mips4} \
512%{bestGnum} %{shared} %{non_shared} \
513%{call_shared} %{no_archive} %{exact_version} %{w} \
514%{!shared: %{!non_shared: %{!call_shared: -call_shared -no_unresolved}}} \
515%{rpath} -init __do_global_ctors -fini __do_global_dtors \
516%{shared:-hidden_symbol __do_global_ctors,__do_global_ctors_1,__do_global_dtors} \
517-_SYSTYPE_SVR4 -woff 131 \
518%{mabi=32: -32}%{mabi=n32: -n32}%{mabi=64: -64}%{!mabi*: -n32}"
519
520#define MIPS_TFMODE_FORMAT ibm_extended_format
521