gcc/config/arm/aout.h - gcc - Git at Google

 /* Definitions of target machine for GNU compiler, for ARM with a.out
    Copyright (C) 1995, 1996, 1997 Free Software Foundation, Inc.
    Contributed by Richard Earnshaw (rearnsha@armltd.co.uk).

 This file is part of GNU CC.

 GNU CC is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
 the Free Software Foundation; either version 2, or (at your option)
 any later version.

 GNU CC is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 GNU General Public License for more details.

 You should have received a copy of the GNU General Public License
 along with GNU CC; see the file COPYING.  If not, write to
 the Free Software Foundation, 59 Temple Place - Suite 330,
 Boston, MA 02111-1307, USA.  */

 #ifndef ARM_OS_NAME
 #define ARM_OS_NAME "(generic)"
 #endif

 /* The text to go at the start of the assembler file */
 #define ASM_FILE_START(STREAM)						    \
 {									    \
   fprintf (STREAM,"%srfp\t.req\t%sr9\n", REGISTER_PREFIX, REGISTER_PREFIX); \
   fprintf (STREAM,"%ssl\t.req\t%sr10\n", REGISTER_PREFIX, REGISTER_PREFIX); \
   fprintf (STREAM,"%sfp\t.req\t%sr11\n", REGISTER_PREFIX, REGISTER_PREFIX); \
   fprintf (STREAM,"%sip\t.req\t%sr12\n", REGISTER_PREFIX, REGISTER_PREFIX); \
   fprintf (STREAM,"%ssp\t.req\t%sr13\n", REGISTER_PREFIX, REGISTER_PREFIX); \
   fprintf (STREAM,"%slr\t.req\t%sr14\n", REGISTER_PREFIX, REGISTER_PREFIX); \
   fprintf (STREAM,"%spc\t.req\t%sr15\n", REGISTER_PREFIX, REGISTER_PREFIX); \
 }

 #define ASM_APP_ON  ""
 #define ASM_APP_OFF  ""

 /* Switch to the text or data segment.  */
 #define TEXT_SECTION_ASM_OP  ".text"
 #define DATA_SECTION_ASM_OP  ".data"
 #define BSS_SECTION_ASM_OP   ".bss"

 #define REGISTER_PREFIX ""
 #define USER_LABEL_PREFIX "_"
 #define LOCAL_LABEL_PREFIX ""

 /* The assembler's names for the registers.  */
 #ifndef REGISTER_NAMES
 #define REGISTER_NAMES  \
 {				                   \
   "r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7",  \
   "r8", "r9", "sl", "fp", "ip", "sp", "lr", "pc",  \
   "f0", "f1", "f2", "f3", "f4", "f5", "f6", "f7",  \
   "cc", "sfp", "afp"				   \
 }
 #endif

 #ifndef ADDITIONAL_REGISTER_NAMES
 #define ADDITIONAL_REGISTER_NAMES		\
 {						\
   {"a1", 0},					\
   {"a2", 1},					\
   {"a3", 2},					\
   {"a4", 3},					\
   {"v1", 4},					\
   {"v2", 5},					\
   {"v3", 6},					\
   {"v4", 7},					\
   {"v5", 8},					\
   {"v6", 9},					\
   {"rfp", 9}, /* Gcc used to call it this */	\
   {"sb", 9},					\
   {"v7", 10},					\
   {"r10", 10},	/* sl */			\
   {"r11", 11},	/* fp */			\
   {"r12", 12},	/* ip */			\
   {"r13", 13},	/* sp */			\
   {"r14", 14},	/* lr */			\
   {"r15", 15}	/* pc */			\
 }
 #endif

 /* Arm Assembler barfs on dollars */
 #define DOLLARS_IN_IDENTIFIERS 0

 #define NO_DOLLAR_IN_LABEL

 /* DBX register number for a given compiler register number */
 #define DBX_REGISTER_NUMBER(REGNO)  (REGNO)

 /* Generate DBX debugging information.  riscix.h will undefine this because
    the native assembler does not support stabs. */
 #define DBX_DEBUGGING_INFO  1

 /* Acorn dbx moans about continuation chars, so don't use any.  */
 #ifndef DBX_CONTIN_LENGTH
 #define DBX_CONTIN_LENGTH  0
 #endif

 /* Output a source filename for the debugger. RISCiX dbx insists that the
    ``desc'' field is set to compiler version number >= 315 (sic).  */
 #define DBX_OUTPUT_MAIN_SOURCE_FILENAME(STREAM,NAME) 			\
 do {									\
   fprintf (STREAM, ".stabs \"%s\",%d,0,315,%s\n", (NAME), N_SO,		\
 	   &ltext_label_name[1]);					\
   text_section ();							\
   ASM_OUTPUT_INTERNAL_LABEL (STREAM, "Ltext", 0);			\
 } while (0)

 /* Output a function label definition.  */
 #define ASM_DECLARE_FUNCTION_NAME(STREAM,NAME,DECL) \
     ASM_OUTPUT_LABEL(STREAM, NAME)

 #define ARM_OUTPUT_LABEL(STREAM,NAME)	\
 do {					\
   assemble_name (STREAM,NAME);		\
   fputs (":\n", STREAM);		\
 } while (0)

 /* Output a globalising directive for a label.  */
 #define ASM_GLOBALIZE_LABEL(STREAM,NAME)  \
   (fprintf (STREAM, "\t.global\t"),	  \
    assemble_name (STREAM, NAME),	  \
    fputc ('\n',STREAM))                   \

 /* Make an internal label into a string.  */
 #define ASM_GENERATE_INTERNAL_LABEL(STRING, PREFIX, NUM)  \
   sprintf (STRING, "*%s%s%d", LOCAL_LABEL_PREFIX, PREFIX, NUM)

 /* Nothing special is done about jump tables */
 /* #define ASM_OUTPUT_CASE_LABEL(STREAM,PREFIX,NUM,TABLE)   */
 /* #define ASM_OUTPUT_CASE_END(STREAM,NUM,TABLE)	    */

 /* Construct a private name.  */
 #define ASM_FORMAT_PRIVATE_NAME(OUTVAR,NAME,NUMBER)  \
   ((OUTVAR) = (char *) alloca (strlen (NAME) + 10),  \
    sprintf ((OUTVAR), "%s.%d", (NAME), (NUMBER)))

 /* Output an element of a dispatch table.  */
 #define ASM_OUTPUT_ADDR_VEC_ELT(STREAM,VALUE)  \
    fprintf (STREAM, "\t.word\t%sL%d\n", LOCAL_LABEL_PREFIX, VALUE)

 #define ASM_OUTPUT_ADDR_DIFF_ELT(STREAM,VALUE,REL)  \
    fprintf (STREAM, "\tb\t%sL%d\n", LOCAL_LABEL_PREFIX, (VALUE))

 /* Output various types of constants.  For real numbers we output hex, with
    a comment containing the "human" value, this allows us to pass NaN's which
    the riscix assembler doesn't understand (it also makes cross-assembling
    less likely to fail). */

 #define ASM_OUTPUT_LONG_DOUBLE(STREAM,VALUE)				\
 do { char dstr[30];							\
      long l[3];								\
      REAL_VALUE_TO_TARGET_LONG_DOUBLE (VALUE, l);			\
      REAL_VALUE_TO_DECIMAL (VALUE, "%.20g", dstr);			\
      fprintf (STREAM, "\t.long 0x%lx,0x%lx,0x%lx\t%s long double %s\n", \
 	      l[0], l[1], l[2], ASM_COMMENT_START, dstr);		\
    } while (0)


 #define ASM_OUTPUT_DOUBLE(STREAM, VALUE)  				\
 do { char dstr[30];							\
      long l[2];								\
      REAL_VALUE_TO_TARGET_DOUBLE (VALUE, l);				\
      REAL_VALUE_TO_DECIMAL (VALUE, "%.14g", dstr);			\
      fprintf (STREAM, "\t.long 0x%lx, 0x%lx\t%s double %s\n", l[0],	\
 	      l[1], ASM_COMMENT_START, dstr);				\
    } while (0)

 #define ASM_OUTPUT_FLOAT(STREAM, VALUE)					\
 do { char dstr[30];							\
      long l;								\
      REAL_VALUE_TO_TARGET_SINGLE (VALUE, l);				\
      REAL_VALUE_TO_DECIMAL (VALUE, "%.7g", dstr);			\
      fprintf (STREAM, "\t.word 0x%lx\t%s float %s\n", l,		\
 	      ASM_COMMENT_START, dstr);					\
    } while (0);

 #define ASM_OUTPUT_INT(STREAM, EXP)		\
   {						\
     fprintf (STREAM, "\t.word\t");		\
     OUTPUT_INT_ADDR_CONST (STREAM, (EXP));	\
     fputc ('\n', STREAM);			\
   }

 #define ASM_OUTPUT_SHORT(STREAM, EXP)  \
   (fprintf (STREAM, "\t.short\t"),     \
    output_addr_const (STREAM, (EXP)),  \
    fputc ('\n', STREAM))

 #define ASM_OUTPUT_CHAR(STREAM, EXP)  \
   (fprintf (STREAM, "\t.byte\t"),      \
    output_addr_const (STREAM, (EXP)),  \
    fputc ('\n', STREAM))

 #define ASM_OUTPUT_BYTE(STREAM, VALUE)  \
   fprintf (STREAM, "\t.byte\t%d\n", VALUE)

 #define ASM_OUTPUT_ASCII(STREAM, PTR, LEN)  \
   output_ascii_pseudo_op ((STREAM), (unsigned char *)(PTR), (LEN))

 /* Output a gap.  In fact we fill it with nulls.  */
 #define ASM_OUTPUT_SKIP(STREAM, NBYTES)  \
    fprintf (STREAM, "\t.space\t%d\n", NBYTES)

 /* Align output to a power of two.  Horrible /bin/as.  */
 #define ASM_OUTPUT_ALIGN(STREAM, POWER)  \
   do                                                           \
     {                                                          \
       register int amount = 1 << (POWER);                      \
                                                                \
       if (amount == 2)                                         \
 	fprintf (STREAM, "\t.even\n");                         \
       else if (amount != 1)                                    \
 	fprintf (STREAM, "\t.align\t%d\n", amount - 4);        \
     } while (0)

 /* Output a common block */
 #define ASM_OUTPUT_COMMON(STREAM, NAME, SIZE, ROUNDED)  		\
   (fprintf (STREAM, "\t.comm\t"), 		     			\
    assemble_name ((STREAM), (NAME)),		     			\
    fprintf(STREAM, ", %d\t%s %d\n", ROUNDED, ASM_COMMENT_START, SIZE))

 /* Output a local common block.  /bin/as can't do this, so hack a `.space' into
    the bss segment.  Note that this is *bad* practice.  */
 #define ASM_OUTPUT_ALIGNED_LOCAL(STREAM,NAME,SIZE,ALIGN)  \
   output_lcomm_directive (STREAM, NAME, SIZE, ALIGN)

 /* Output a zero-initialized block.  */
 #define ASM_OUTPUT_ALIGNED_BSS(STREAM,DECL,NAME,SIZE,ALIGN) \
   asm_output_aligned_bss(STREAM, DECL, NAME, SIZE, ALIGN)

 /* Output a source line for the debugger.  */
 /* #define ASM_OUTPUT_SOURCE_LINE(STREAM,LINE) */

 /* Output a #ident directive.  */
 #define ASM_OUTPUT_IDENT(STREAM,STRING)  \
   fprintf (STREAM,"- - - ident %s\n",STRING)

 /* The assembler's parentheses characters.  */
 #define ASM_OPEN_PAREN "("
 #define ASM_CLOSE_PAREN ")"

 #ifndef ASM_COMMENT_START
 #define ASM_COMMENT_START "@"
 #endif

 /* This works for GAS and some other assemblers.  */
 #define SET_ASM_OP	".set"

 #include "arm/arm.h"
	/* Definitions of target machine for GNU compiler, for ARM with a.out
	Copyright (C) 1995, 1996, 1997 Free Software Foundation, Inc.
	Contributed by Richard Earnshaw (rearnsha@armltd.co.uk).

	This file is part of GNU CC.

	GNU CC is free software; you can redistribute it and/or modify
	it under the terms of the GNU General Public License as published by
	the Free Software Foundation; either version 2, or (at your option)
	any later version.

	GNU CC is distributed in the hope that it will be useful,
	but WITHOUT ANY WARRANTY; without even the implied warranty of
	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	GNU General Public License for more details.

	You should have received a copy of the GNU General Public License
	along with GNU CC; see the file COPYING. If not, write to
	the Free Software Foundation, 59 Temple Place - Suite 330,
	Boston, MA 02111-1307, USA. */

	#ifndef ARM_OS_NAME
	#define ARM_OS_NAME "(generic)"
	#endif

	/* The text to go at the start of the assembler file */
	#define ASM_FILE_START(STREAM) \
	{ \
	fprintf (STREAM,"%srfp\t.req\t%sr9\n", REGISTER_PREFIX, REGISTER_PREFIX); \
	fprintf (STREAM,"%ssl\t.req\t%sr10\n", REGISTER_PREFIX, REGISTER_PREFIX); \
	fprintf (STREAM,"%sfp\t.req\t%sr11\n", REGISTER_PREFIX, REGISTER_PREFIX); \
	fprintf (STREAM,"%sip\t.req\t%sr12\n", REGISTER_PREFIX, REGISTER_PREFIX); \
	fprintf (STREAM,"%ssp\t.req\t%sr13\n", REGISTER_PREFIX, REGISTER_PREFIX); \
	fprintf (STREAM,"%slr\t.req\t%sr14\n", REGISTER_PREFIX, REGISTER_PREFIX); \
	fprintf (STREAM,"%spc\t.req\t%sr15\n", REGISTER_PREFIX, REGISTER_PREFIX); \
	}

	#define ASM_APP_ON ""
	#define ASM_APP_OFF ""

	/* Switch to the text or data segment. */
	#define TEXT_SECTION_ASM_OP ".text"
	#define DATA_SECTION_ASM_OP ".data"
	#define BSS_SECTION_ASM_OP ".bss"

	#define REGISTER_PREFIX ""
	#define USER_LABEL_PREFIX "_"
	#define LOCAL_LABEL_PREFIX ""

	/* The assembler's names for the registers. */
	#ifndef REGISTER_NAMES
	#define REGISTER_NAMES \
	{ \
	"r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7", \
	"r8", "r9", "sl", "fp", "ip", "sp", "lr", "pc", \
	"f0", "f1", "f2", "f3", "f4", "f5", "f6", "f7", \
	"cc", "sfp", "afp" \
	}
	#endif

	#ifndef ADDITIONAL_REGISTER_NAMES
	#define ADDITIONAL_REGISTER_NAMES \
	{ \
	{"a1", 0}, \
	{"a2", 1}, \
	{"a3", 2}, \
	{"a4", 3}, \
	{"v1", 4}, \
	{"v2", 5}, \
	{"v3", 6}, \
	{"v4", 7}, \
	{"v5", 8}, \
	{"v6", 9}, \
	{"rfp", 9}, /* Gcc used to call it this */ \
	{"sb", 9}, \
	{"v7", 10}, \
	{"r10", 10}, /* sl */ \
	{"r11", 11}, /* fp */ \
	{"r12", 12}, /* ip */ \
	{"r13", 13}, /* sp */ \
	{"r14", 14}, /* lr */ \
	{"r15", 15} /* pc */ \
	}
	#endif

	/* Arm Assembler barfs on dollars */
	#define DOLLARS_IN_IDENTIFIERS 0

	#define NO_DOLLAR_IN_LABEL

	/* DBX register number for a given compiler register number */
	#define DBX_REGISTER_NUMBER(REGNO) (REGNO)

	/* Generate DBX debugging information. riscix.h will undefine this because
	the native assembler does not support stabs. */
	#define DBX_DEBUGGING_INFO 1

	/* Acorn dbx moans about continuation chars, so don't use any. */
	#ifndef DBX_CONTIN_LENGTH
	#define DBX_CONTIN_LENGTH 0
	#endif

	/* Output a source filename for the debugger. RISCiX dbx insists that the
	``desc'' field is set to compiler version number >= 315 (sic). */
	#define DBX_OUTPUT_MAIN_SOURCE_FILENAME(STREAM,NAME) \
	do { \
	fprintf (STREAM, ".stabs \"%s\",%d,0,315,%s\n", (NAME), N_SO, \
	&ltext_label_name[1]); \
	text_section (); \
	ASM_OUTPUT_INTERNAL_LABEL (STREAM, "Ltext", 0); \
	} while (0)

	/* Output a function label definition. */
	#define ASM_DECLARE_FUNCTION_NAME(STREAM,NAME,DECL) \
	ASM_OUTPUT_LABEL(STREAM, NAME)

	#define ARM_OUTPUT_LABEL(STREAM,NAME) \
	do { \
	assemble_name (STREAM,NAME); \
	fputs (":\n", STREAM); \
	} while (0)

	/* Output a globalising directive for a label. */
	#define ASM_GLOBALIZE_LABEL(STREAM,NAME) \
	(fprintf (STREAM, "\t.global\t"), \
	assemble_name (STREAM, NAME), \
	fputc ('\n',STREAM)) \

	/* Make an internal label into a string. */
	#define ASM_GENERATE_INTERNAL_LABEL(STRING, PREFIX, NUM) \
	sprintf (STRING, "*%s%s%d", LOCAL_LABEL_PREFIX, PREFIX, NUM)

	/* Nothing special is done about jump tables */
	/* #define ASM_OUTPUT_CASE_LABEL(STREAM,PREFIX,NUM,TABLE) */
	/* #define ASM_OUTPUT_CASE_END(STREAM,NUM,TABLE) */

	/* Construct a private name. */
	#define ASM_FORMAT_PRIVATE_NAME(OUTVAR,NAME,NUMBER) \
	((OUTVAR) = (char *) alloca (strlen (NAME) + 10), \
	sprintf ((OUTVAR), "%s.%d", (NAME), (NUMBER)))

	/* Output an element of a dispatch table. */
	#define ASM_OUTPUT_ADDR_VEC_ELT(STREAM,VALUE) \
	fprintf (STREAM, "\t.word\t%sL%d\n", LOCAL_LABEL_PREFIX, VALUE)

	#define ASM_OUTPUT_ADDR_DIFF_ELT(STREAM,VALUE,REL) \
	fprintf (STREAM, "\tb\t%sL%d\n", LOCAL_LABEL_PREFIX, (VALUE))

	/* Output various types of constants. For real numbers we output hex, with
	a comment containing the "human" value, this allows us to pass NaN's which
	the riscix assembler doesn't understand (it also makes cross-assembling
	less likely to fail). */

	#define ASM_OUTPUT_LONG_DOUBLE(STREAM,VALUE) \
	do { char dstr[30]; \
	long l[3]; \
	REAL_VALUE_TO_TARGET_LONG_DOUBLE (VALUE, l); \
	REAL_VALUE_TO_DECIMAL (VALUE, "%.20g", dstr); \
	fprintf (STREAM, "\t.long 0x%lx,0x%lx,0x%lx\t%s long double %s\n", \
	l[0], l[1], l[2], ASM_COMMENT_START, dstr); \
	} while (0)


	#define ASM_OUTPUT_DOUBLE(STREAM, VALUE) \
	do { char dstr[30]; \
	long l[2]; \
	REAL_VALUE_TO_TARGET_DOUBLE (VALUE, l); \
	REAL_VALUE_TO_DECIMAL (VALUE, "%.14g", dstr); \
	fprintf (STREAM, "\t.long 0x%lx, 0x%lx\t%s double %s\n", l[0], \
	l[1], ASM_COMMENT_START, dstr); \
	} while (0)

	#define ASM_OUTPUT_FLOAT(STREAM, VALUE) \
	do { char dstr[30]; \
	long l; \
	REAL_VALUE_TO_TARGET_SINGLE (VALUE, l); \
	REAL_VALUE_TO_DECIMAL (VALUE, "%.7g", dstr); \
	fprintf (STREAM, "\t.word 0x%lx\t%s float %s\n", l, \
	ASM_COMMENT_START, dstr); \
	} while (0);

	#define ASM_OUTPUT_INT(STREAM, EXP) \
	{ \
	fprintf (STREAM, "\t.word\t"); \
	OUTPUT_INT_ADDR_CONST (STREAM, (EXP)); \
	fputc ('\n', STREAM); \
	}

	#define ASM_OUTPUT_SHORT(STREAM, EXP) \
	(fprintf (STREAM, "\t.short\t"), \
	output_addr_const (STREAM, (EXP)), \
	fputc ('\n', STREAM))

	#define ASM_OUTPUT_CHAR(STREAM, EXP) \
	(fprintf (STREAM, "\t.byte\t"), \
	output_addr_const (STREAM, (EXP)), \
	fputc ('\n', STREAM))

	#define ASM_OUTPUT_BYTE(STREAM, VALUE) \
	fprintf (STREAM, "\t.byte\t%d\n", VALUE)

	#define ASM_OUTPUT_ASCII(STREAM, PTR, LEN) \
	output_ascii_pseudo_op ((STREAM), (unsigned char *)(PTR), (LEN))

	/* Output a gap. In fact we fill it with nulls. */
	#define ASM_OUTPUT_SKIP(STREAM, NBYTES) \
	fprintf (STREAM, "\t.space\t%d\n", NBYTES)

	/* Align output to a power of two. Horrible /bin/as. */
	#define ASM_OUTPUT_ALIGN(STREAM, POWER) \
	do \
	{ \
	register int amount = 1 << (POWER); \
	\
	if (amount == 2) \
	fprintf (STREAM, "\t.even\n"); \
	else if (amount != 1) \
	fprintf (STREAM, "\t.align\t%d\n", amount - 4); \
	} while (0)

	/* Output a common block */
	#define ASM_OUTPUT_COMMON(STREAM, NAME, SIZE, ROUNDED) \
	(fprintf (STREAM, "\t.comm\t"), \
	assemble_name ((STREAM), (NAME)), \
	fprintf(STREAM, ", %d\t%s %d\n", ROUNDED, ASM_COMMENT_START, SIZE))

	/* Output a local common block. /bin/as can't do this, so hack a `.space' into
	the bss segment. Note that this is bad practice. */
	#define ASM_OUTPUT_ALIGNED_LOCAL(STREAM,NAME,SIZE,ALIGN) \
	output_lcomm_directive (STREAM, NAME, SIZE, ALIGN)

	/* Output a zero-initialized block. */
	#define ASM_OUTPUT_ALIGNED_BSS(STREAM,DECL,NAME,SIZE,ALIGN) \
	asm_output_aligned_bss(STREAM, DECL, NAME, SIZE, ALIGN)

	/* Output a source line for the debugger. */
	/* #define ASM_OUTPUT_SOURCE_LINE(STREAM,LINE) */

	/* Output a #ident directive. */
	#define ASM_OUTPUT_IDENT(STREAM,STRING) \
	fprintf (STREAM,"- - - ident %s\n",STRING)

	/* The assembler's parentheses characters. */
	#define ASM_OPEN_PAREN "("
	#define ASM_CLOSE_PAREN ")"

	#ifndef ASM_COMMENT_START
	#define ASM_COMMENT_START "@"
	#endif

	/* This works for GAS and some other assemblers. */
	#define SET_ASM_OP ".set"

	#include "arm/arm.h"