gcc/config/ia64/sysv4.h - gcc - Git at Google

 /* Override definitions in elfos.h/svr4.h to be correct for IA64.  */

 /* We want DWARF2 as specified by the IA64 ABI.  */
 #undef PREFERRED_DEBUGGING_TYPE
 #define PREFERRED_DEBUGGING_TYPE DWARF2_DEBUG

 /* Various pseudo-ops for which the Intel assembler uses non-standard
    definitions.  */

 #undef ASM_BYTE_OP
 #define ASM_BYTE_OP "\tdata1\t"

 #undef STRING_ASM_OP
 #define STRING_ASM_OP "\tstringz\t"

 #undef SKIP_ASM_OP
 #define SKIP_ASM_OP "\t.skip\t"

 #undef COMMON_ASM_OP
 #define COMMON_ASM_OP "\t.common\t"

 #undef ASCII_DATA_ASM_OP
 #define ASCII_DATA_ASM_OP "\tstring\t"

 /* ??? Unfortunately, .lcomm doesn't work, because it puts things in either
    .bss or .sbss, and we can't control the decision of which is used.  When
    I use .lcomm, I get a cryptic "Section group has no member" error from
    the Intel simulator.  So we must explicitly put variables in .bss
    instead.  This matters only if we care about the Intel assembler.  */

 /* This is asm_output_aligned_bss from varasm.c without the ASM_GLOBALIZE_LABEL
    call at the beginning.  */

 /* This is for final.c, because it is used by ASM_DECLARE_OBJECT_NAME.  */
 extern int size_directive_output;

 #undef ASM_OUTPUT_ALIGNED_LOCAL
 #define ASM_OUTPUT_ALIGNED_DECL_LOCAL(FILE, DECL, NAME, SIZE, ALIGN) \
 do {									\
   if ((DECL)								\
       && XSTR (XEXP (DECL_RTL (DECL), 0), 0)[0] == SDATA_NAME_FLAG_CHAR) \
     sbss_section ();							\
   else									\
     bss_section ();							\
   ASM_OUTPUT_ALIGN (FILE, floor_log2 ((ALIGN) / BITS_PER_UNIT));	\
   ASM_DECLARE_OBJECT_NAME (FILE, NAME, DECL);				\
   ASM_OUTPUT_SKIP (FILE, SIZE ? SIZE : 1);				\
 } while (0)

 /* ??? Intel assembler does not allow "." in section names, so turn off
    gnu.linkonce section support, but only when using the Intel assembler.  */
 #undef UNIQUE_SECTION_P
 #define UNIQUE_SECTION_P(DECL) (TARGET_GNU_AS ? DECL_ONE_ONLY (DECL) : 0)

 /* The # tells the Intel assembler that this is not a register name.
    However, we can't emit the # in a label definition, so we set a variable
    in ASM_OUTPUT_LABEL to control whether we want the postfix here or not.  */

 #undef ASM_OUTPUT_LABELREF
 #define ASM_OUTPUT_LABELREF(STREAM, NAME) \
 do									\
   {									\
     const char *real_name;						\
     STRIP_NAME_ENCODING (real_name, NAME);				\
     asm_fprintf (STREAM, "%U%s%s", real_name,				\
 		 (ia64_asm_output_label ? "" : "#"));			\
   }									\
 while (0)

 /* Intel assembler requires both flags and type if declaring a non-predefined
    section.  */
 #undef INIT_SECTION_ASM_OP
 #define INIT_SECTION_ASM_OP	"\t.section\t.init,\"ax\",\"progbits\""
 #undef FINI_SECTION_ASM_OP
 #define FINI_SECTION_ASM_OP	"\t.section\t.fini,\"ax\",\"progbits\""
 #undef CTORS_SECTION_ASM_OP
 #define CTORS_SECTION_ASM_OP	"\t.section\t.ctors,\"aw\",\"progbits\""
 #undef DTORS_SECTION_ASM_OP
 #define DTORS_SECTION_ASM_OP	"\t.section\t.dtors,\"aw\",\"progbits\""

 /* A C statement (sans semicolon) to output an element in the table of
    global constructors.  */
 /* Must override this to get @fptr relocation.  */
 #undef ASM_OUTPUT_CONSTRUCTOR
 #define ASM_OUTPUT_CONSTRUCTOR(FILE,NAME)				\
   do {									\
     ctors_section ();							\
     if (TARGET_NO_PIC || TARGET_AUTO_PIC)				\
       fputs ("\tdata8\t ", FILE);					\
     else								\
       fputs ("\tdata8\t @fptr(", FILE);					\
     assemble_name (FILE, NAME);						\
     if (TARGET_NO_PIC || TARGET_AUTO_PIC)				\
       fputs ("\n", FILE);						\
     else								\
       fputs (")\n", FILE);						\
   } while (0)

 /* A C statement (sans semicolon) to output an element in the table of
    global destructors.  */
 /* Must override this to get @fptr relocation.  */
 #undef ASM_OUTPUT_DESTRUCTOR
 #define ASM_OUTPUT_DESTRUCTOR(FILE,NAME)       				\
   do {									\
     dtors_section ();                   				\
     if (TARGET_NO_PIC || TARGET_AUTO_PIC)				\
       fputs ("\tdata8\t ", FILE);					\
     else								\
       fputs ("\tdata8\t @fptr(", FILE);					\
     assemble_name (FILE, NAME);              				\
     if (TARGET_NO_PIC || TARGET_AUTO_PIC)				\
       fputs ("\n", FILE);						\
     else								\
       fputs (")\n", FILE);						\
   } while (0)

 /* svr4.h undefines this, so we need to define it here.  */
 #define DBX_REGISTER_NUMBER(REGNO) \
   ia64_dbx_register_number(REGNO)

 /* Things that svr4.h defines to the wrong type, because it assumes 32 bit
    ints and 32 bit longs.  */

 #undef SIZE_TYPE
 #define SIZE_TYPE "long unsigned int"

 #undef PTRDIFF_TYPE
 #define PTRDIFF_TYPE "long int"

 #undef WCHAR_TYPE
 #define WCHAR_TYPE "int"

 #undef WCHAR_TYPE_SIZE
 #define WCHAR_TYPE_SIZE 32

 /* We don't want any symbol at the beginning of the file.  This is defined in
    dbxelf.h which is included from elfos.h, so we need to undef/define it
    here.  */

 #undef ASM_IDENTIFY_GCC
 #define ASM_IDENTIFY_GCC(FILE)

 /* We redefine this to use the ia64 .proc pseudo-op.  */

 #undef ASM_DECLARE_FUNCTION_NAME
 #define ASM_DECLARE_FUNCTION_NAME(FILE, NAME, DECL) \
 do {									\
   fputs ("\t.proc ", FILE);						\
   assemble_name (FILE, NAME);						\
   fputc ('\n', FILE);							\
   ASM_OUTPUT_LABEL (FILE, NAME);					\
 } while (0)

 /* We redefine this to use the ia64 .endp pseudo-op.  */

 #undef ASM_DECLARE_FUNCTION_SIZE
 #define ASM_DECLARE_FUNCTION_SIZE(FILE, NAME, DECL) \
 do {									\
   fputs ("\t.endp ", FILE);						\
   assemble_name (FILE, NAME);						\
   fputc ('\n', FILE);							\
 } while (0)

 /* A C expression which outputs to the stdio stream STREAM some appropriate
    text to go at the start of an assembler file.  */

 /* ??? Looks like almost every port, except for a few original ones, get this
    wrong.  Must emit #NO_APP as first line of file to turn of special assembler
    preprocessing of files.  */

 /* ??? Even worse, it doesn't work, because gas does not accept the tab chars
    that dwarf2out.c emits when #NO_APP.  */

 /* ??? Unrelated, but dwarf2out.c emits unnecessary newlines after strings,
    may as well fix at the same time.  */

 #undef ASM_FILE_START
 #define ASM_FILE_START(STREAM) \
 do {									\
   output_file_directive (STREAM, main_input_filename);			\
   emit_safe_across_calls (STREAM);					\
 } while (0)

 /* Case label alignment is handled by ADDR_VEC_ALIGN now.  */

 #undef ASM_OUTPUT_BEFORE_CASE_LABEL
 #define ASM_OUTPUT_BEFORE_CASE_LABEL(FILE,PREFIX,NUM,TABLE)

 /* We override svr4.h so that we can support the sdata section.  */

 #undef SELECT_SECTION
 #define SELECT_SECTION(DECL,RELOC)					\
 {									\
   if (TREE_CODE (DECL) == STRING_CST)					\
     {									\
       if (! flag_writable_strings)					\
 	const_section ();						\
       else								\
 	data_section ();						\
     }									\
   else if (TREE_CODE (DECL) == VAR_DECL)				\
     {									\
       if (XSTR (XEXP (DECL_RTL (DECL), 0), 0)[0]			\
 	  == SDATA_NAME_FLAG_CHAR)					\
         sdata_section ();						\
       /* ??? We need the extra ! RELOC check, because the default is to \
 	 only check RELOC if flag_pic is set, and we don't set flag_pic \
 	 (yet?).  */							\
       else if (DECL_READONLY_SECTION (DECL, RELOC) && ! (RELOC))	\
 	const_section ();						\
       else								\
 	data_section ();						\
     }									\
   /* This could be a CONSTRUCTOR containing ADDR_EXPR of a VAR_DECL,	\
      in which case we can't put it in a shared library rodata.  */	\
   else if (flag_pic && (RELOC))						\
     data_section ();							\
   else									\
     const_section ();							\
 }

 /* Similarly for constant pool data.  */

 extern unsigned int ia64_section_threshold;
 #undef SELECT_RTX_SECTION
 #define SELECT_RTX_SECTION(MODE, RTX)					\
 {									\
   if (GET_MODE_SIZE (MODE) > 0						\
       && GET_MODE_SIZE (MODE) <= ia64_section_threshold)		\
     sdata_section ();							\
   else if (flag_pic && symbolic_operand ((RTX), (MODE)))		\
     data_section ();							\
   else									\
     const_section ();							\
 }

 #undef EXTRA_SECTIONS
 #define EXTRA_SECTIONS in_const, in_ctors, in_dtors, in_sdata, in_sbss

 #undef EXTRA_SECTION_FUNCTIONS
 #define EXTRA_SECTION_FUNCTIONS						\
   CONST_SECTION_FUNCTION						\
   CTORS_SECTION_FUNCTION						\
   DTORS_SECTION_FUNCTION						\
   SDATA_SECTION_FUNCTION						\
   SBSS_SECTION_FUNCTION

 #define SDATA_SECTION_ASM_OP "\t.sdata"

 #define SDATA_SECTION_FUNCTION						\
 void									\
 sdata_section ()							\
 {									\
   if (in_section != in_sdata)						\
     {									\
       fprintf (asm_out_file, "%s\n", SDATA_SECTION_ASM_OP);		\
       in_section = in_sdata;						\
     }									\
 }

 #define SBSS_SECTION_ASM_OP "\t.sbss"

 #define SBSS_SECTION_FUNCTION						\
 void									\
 sbss_section ()								\
 {									\
   if (in_section != in_sbss)						\
     {									\
       fprintf (asm_out_file, "%s\n", SBSS_SECTION_ASM_OP);		\
       in_section = in_sbss;						\
     }									\
 }
	/* Override definitions in elfos.h/svr4.h to be correct for IA64. */

	/* We want DWARF2 as specified by the IA64 ABI. */
	#undef PREFERRED_DEBUGGING_TYPE
	#define PREFERRED_DEBUGGING_TYPE DWARF2_DEBUG

	/* Various pseudo-ops for which the Intel assembler uses non-standard
	definitions. */

	#undef ASM_BYTE_OP
	#define ASM_BYTE_OP "\tdata1\t"

	#undef STRING_ASM_OP
	#define STRING_ASM_OP "\tstringz\t"

	#undef SKIP_ASM_OP
	#define SKIP_ASM_OP "\t.skip\t"

	#undef COMMON_ASM_OP
	#define COMMON_ASM_OP "\t.common\t"

	#undef ASCII_DATA_ASM_OP
	#define ASCII_DATA_ASM_OP "\tstring\t"

	/* ??? Unfortunately, .lcomm doesn't work, because it puts things in either
	.bss or .sbss, and we can't control the decision of which is used. When
	I use .lcomm, I get a cryptic "Section group has no member" error from
	the Intel simulator. So we must explicitly put variables in .bss
	instead. This matters only if we care about the Intel assembler. */

	/* This is asm_output_aligned_bss from varasm.c without the ASM_GLOBALIZE_LABEL
	call at the beginning. */

	/* This is for final.c, because it is used by ASM_DECLARE_OBJECT_NAME. */
	extern int size_directive_output;

	#undef ASM_OUTPUT_ALIGNED_LOCAL
	#define ASM_OUTPUT_ALIGNED_DECL_LOCAL(FILE, DECL, NAME, SIZE, ALIGN) \
	do { \
	if ((DECL) \
	&& XSTR (XEXP (DECL_RTL (DECL), 0), 0)[0] == SDATA_NAME_FLAG_CHAR) \
	sbss_section (); \
	else \
	bss_section (); \
	ASM_OUTPUT_ALIGN (FILE, floor_log2 ((ALIGN) / BITS_PER_UNIT)); \
	ASM_DECLARE_OBJECT_NAME (FILE, NAME, DECL); \
	ASM_OUTPUT_SKIP (FILE, SIZE ? SIZE : 1); \
	} while (0)

	/* ??? Intel assembler does not allow "." in section names, so turn off
	gnu.linkonce section support, but only when using the Intel assembler. */
	#undef UNIQUE_SECTION_P
	#define UNIQUE_SECTION_P(DECL) (TARGET_GNU_AS ? DECL_ONE_ONLY (DECL) : 0)

	/* The # tells the Intel assembler that this is not a register name.
	However, we can't emit the # in a label definition, so we set a variable
	in ASM_OUTPUT_LABEL to control whether we want the postfix here or not. */

	#undef ASM_OUTPUT_LABELREF
	#define ASM_OUTPUT_LABELREF(STREAM, NAME) \
	do \
	{ \
	const char *real_name; \
	STRIP_NAME_ENCODING (real_name, NAME); \
	asm_fprintf (STREAM, "%U%s%s", real_name, \
	(ia64_asm_output_label ? "" : "#")); \
	} \
	while (0)

	/* Intel assembler requires both flags and type if declaring a non-predefined
	section. */
	#undef INIT_SECTION_ASM_OP
	#define INIT_SECTION_ASM_OP "\t.section\t.init,\"ax\",\"progbits\""
	#undef FINI_SECTION_ASM_OP
	#define FINI_SECTION_ASM_OP "\t.section\t.fini,\"ax\",\"progbits\""
	#undef CTORS_SECTION_ASM_OP
	#define CTORS_SECTION_ASM_OP "\t.section\t.ctors,\"aw\",\"progbits\""
	#undef DTORS_SECTION_ASM_OP
	#define DTORS_SECTION_ASM_OP "\t.section\t.dtors,\"aw\",\"progbits\""

	/* A C statement (sans semicolon) to output an element in the table of
	global constructors. */
	/* Must override this to get @fptr relocation. */
	#undef ASM_OUTPUT_CONSTRUCTOR
	#define ASM_OUTPUT_CONSTRUCTOR(FILE,NAME) \
	do { \
	ctors_section (); \
	if (TARGET_NO_PIC \|\| TARGET_AUTO_PIC) \
	fputs ("\tdata8\t ", FILE); \
	else \
	fputs ("\tdata8\t @fptr(", FILE); \
	assemble_name (FILE, NAME); \
	if (TARGET_NO_PIC \|\| TARGET_AUTO_PIC) \
	fputs ("\n", FILE); \
	else \
	fputs (")\n", FILE); \
	} while (0)

	/* A C statement (sans semicolon) to output an element in the table of
	global destructors. */
	/* Must override this to get @fptr relocation. */
	#undef ASM_OUTPUT_DESTRUCTOR
	#define ASM_OUTPUT_DESTRUCTOR(FILE,NAME) \
	do { \
	dtors_section (); \
	if (TARGET_NO_PIC \|\| TARGET_AUTO_PIC) \
	fputs ("\tdata8\t ", FILE); \
	else \
	fputs ("\tdata8\t @fptr(", FILE); \
	assemble_name (FILE, NAME); \
	if (TARGET_NO_PIC \|\| TARGET_AUTO_PIC) \
	fputs ("\n", FILE); \
	else \
	fputs (")\n", FILE); \
	} while (0)

	/* svr4.h undefines this, so we need to define it here. */
	#define DBX_REGISTER_NUMBER(REGNO) \
	ia64_dbx_register_number(REGNO)

	/* Things that svr4.h defines to the wrong type, because it assumes 32 bit
	ints and 32 bit longs. */

	#undef SIZE_TYPE
	#define SIZE_TYPE "long unsigned int"

	#undef PTRDIFF_TYPE
	#define PTRDIFF_TYPE "long int"

	#undef WCHAR_TYPE
	#define WCHAR_TYPE "int"

	#undef WCHAR_TYPE_SIZE
	#define WCHAR_TYPE_SIZE 32

	/* We don't want any symbol at the beginning of the file. This is defined in
	dbxelf.h which is included from elfos.h, so we need to undef/define it
	here. */

	#undef ASM_IDENTIFY_GCC
	#define ASM_IDENTIFY_GCC(FILE)

	/* We redefine this to use the ia64 .proc pseudo-op. */

	#undef ASM_DECLARE_FUNCTION_NAME
	#define ASM_DECLARE_FUNCTION_NAME(FILE, NAME, DECL) \
	do { \
	fputs ("\t.proc ", FILE); \
	assemble_name (FILE, NAME); \
	fputc ('\n', FILE); \
	ASM_OUTPUT_LABEL (FILE, NAME); \
	} while (0)

	/* We redefine this to use the ia64 .endp pseudo-op. */

	#undef ASM_DECLARE_FUNCTION_SIZE
	#define ASM_DECLARE_FUNCTION_SIZE(FILE, NAME, DECL) \
	do { \
	fputs ("\t.endp ", FILE); \
	assemble_name (FILE, NAME); \
	fputc ('\n', FILE); \
	} while (0)

	/* A C expression which outputs to the stdio stream STREAM some appropriate
	text to go at the start of an assembler file. */

	/* ??? Looks like almost every port, except for a few original ones, get this
	wrong. Must emit #NO_APP as first line of file to turn of special assembler
	preprocessing of files. */

	/* ??? Even worse, it doesn't work, because gas does not accept the tab chars
	that dwarf2out.c emits when #NO_APP. */

	/* ??? Unrelated, but dwarf2out.c emits unnecessary newlines after strings,
	may as well fix at the same time. */

	#undef ASM_FILE_START
	#define ASM_FILE_START(STREAM) \
	do { \
	output_file_directive (STREAM, main_input_filename); \
	emit_safe_across_calls (STREAM); \
	} while (0)

	/* Case label alignment is handled by ADDR_VEC_ALIGN now. */

	#undef ASM_OUTPUT_BEFORE_CASE_LABEL
	#define ASM_OUTPUT_BEFORE_CASE_LABEL(FILE,PREFIX,NUM,TABLE)

	/* We override svr4.h so that we can support the sdata section. */

	#undef SELECT_SECTION
	#define SELECT_SECTION(DECL,RELOC) \
	{ \
	if (TREE_CODE (DECL) == STRING_CST) \
	{ \
	if (! flag_writable_strings) \
	const_section (); \
	else \
	data_section (); \
	} \
	else if (TREE_CODE (DECL) == VAR_DECL) \
	{ \
	if (XSTR (XEXP (DECL_RTL (DECL), 0), 0)[0] \
	== SDATA_NAME_FLAG_CHAR) \
	sdata_section (); \
	/* ??? We need the extra ! RELOC check, because the default is to \
	only check RELOC if flag_pic is set, and we don't set flag_pic \
	(yet?). */ \
	else if (DECL_READONLY_SECTION (DECL, RELOC) && ! (RELOC)) \
	const_section (); \
	else \
	data_section (); \
	} \
	/* This could be a CONSTRUCTOR containing ADDR_EXPR of a VAR_DECL, \
	in which case we can't put it in a shared library rodata. */ \
	else if (flag_pic && (RELOC)) \
	data_section (); \
	else \
	const_section (); \
	}

	/* Similarly for constant pool data. */

	extern unsigned int ia64_section_threshold;
	#undef SELECT_RTX_SECTION
	#define SELECT_RTX_SECTION(MODE, RTX) \
	{ \
	if (GET_MODE_SIZE (MODE) > 0 \
	&& GET_MODE_SIZE (MODE) <= ia64_section_threshold) \
	sdata_section (); \
	else if (flag_pic && symbolic_operand ((RTX), (MODE))) \
	data_section (); \
	else \
	const_section (); \
	}

	#undef EXTRA_SECTIONS
	#define EXTRA_SECTIONS in_const, in_ctors, in_dtors, in_sdata, in_sbss

	#undef EXTRA_SECTION_FUNCTIONS
	#define EXTRA_SECTION_FUNCTIONS \
	CONST_SECTION_FUNCTION \
	CTORS_SECTION_FUNCTION \
	DTORS_SECTION_FUNCTION \
	SDATA_SECTION_FUNCTION \
	SBSS_SECTION_FUNCTION

	#define SDATA_SECTION_ASM_OP "\t.sdata"

	#define SDATA_SECTION_FUNCTION \
	void \
	sdata_section () \
	{ \
	if (in_section != in_sdata) \
	{ \
	fprintf (asm_out_file, "%s\n", SDATA_SECTION_ASM_OP); \
	in_section = in_sdata; \
	} \
	}

	#define SBSS_SECTION_ASM_OP "\t.sbss"

	#define SBSS_SECTION_FUNCTION \
	void \
	sbss_section () \
	{ \
	if (in_section != in_sbss) \
	{ \
	fprintf (asm_out_file, "%s\n", SBSS_SECTION_ASM_OP); \
	in_section = in_sbss; \
	} \
	}