pyr.h

gcc-2.95.3 Linux下最常用的C编译器

/* How to refer to registers in assembler output.
   This sequence is indexed by compiler's hard-register-number (see above).  */

#define REGISTER_NAMES \
{"gr0", "gr1", "gr2", "gr3", "gr4", "gr5", "gr6", "gr7", "gr8", \
 "gr9", "gr10", "gr11", "logpsw", "cfp", "sp", "pc", \
 "pr0", "pr1", "pr2", "pr3", "pr4", "pr5", "pr6", "pr7", \
 "pr8", "pr9", "pr10", "pr11", "pr12", "pr13", "pr14", "pr15", \
 "lr0", "lr1", "lr2", "lr3", "lr4", "lr5", "lr6", "lr7", \
 "lr8", "lr9", "lr10", "lr11", "lr12", "lr13", "lr14", "lr15", \
 "tr0", "tr1", "tr2", "tr3", "tr4", "tr5", "tr6", "tr7", \
 "tr8", "tr9", "tr10", "tr11", "tr12", "tr13", "tr14", "tr15"}

/* How to renumber registers for dbx and gdb.  */

#define DBX_REGISTER_NUMBER(REGNO) (REGNO)

/* Our preference is for dbx rather than sdb.
   Yours may be different. */
#define DBX_DEBUGGING_INFO
/* #define SDB_DEBUGGING_INFO */

/* Don't use the `xsfoo;' construct in DBX output; this system
   doesn't support it.  */

#define DBX_NO_XREFS 1

/* Do not break .stabs pseudos into continuations.  */

#define DBX_CONTIN_LENGTH 0

/* This is the char to use for continuation (in case we need to turn
   continuation back on).  */

#define DBX_CONTIN_CHAR '?'

/* This is how to output the definition of a user-level label named NAME,
   such as the label on a static function or variable NAME.  */

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

/* This is how to output a command to make the user-level label named NAME
   defined for reference from other files.  */

#define ASM_GLOBALIZE_LABEL(FILE,NAME)	\
  do { fputs (".globl ", FILE); assemble_name (FILE, NAME); fputs ("\n", FILE);} while (0)

/* The prefix to add to user-visible assembler symbols. */

#define USER_LABEL_PREFIX "_"

/* This is how to output an internal numbered label where
   PREFIX is the class of label and NUM is the number within the class.  */

#define ASM_OUTPUT_INTERNAL_LABEL(FILE,PREFIX,NUM)	\
  fprintf (FILE, "%s%d:\n", PREFIX, NUM)

/* This is how to store into the string LABEL
   the symbol_ref name of an internal numbered label where
   PREFIX is the class of label and NUM is the number within the class.
   This is suitable for output with `assemble_name'.  */

#define ASM_GENERATE_INTERNAL_LABEL(LABEL,PREFIX,NUM)	\
  sprintf (LABEL, "*%s%d", PREFIX, NUM)

/* This is how to output an assembler line defining a `double' constant.  */

#define ASM_OUTPUT_DOUBLE(FILE,VALUE)  \
  fprintf (FILE, "\t.double 0d%.20e\n", (VALUE))

/* This is how to output an assembler line defining a `float' constant.  */

#define ASM_OUTPUT_FLOAT(FILE,VALUE)  \
  fprintf (FILE, "\t.float 0f%.20e\n", (VALUE))

/* This is how to output an assembler line defining an `int' constant.  */

#define ASM_OUTPUT_INT(FILE,VALUE)  \
( fprintf (FILE, "\t.word "),			\
  output_addr_const (FILE, (VALUE)),		\
  fprintf (FILE, "\n"))

/* Likewise for `char' and `short' constants.  */

#define ASM_OUTPUT_SHORT(FILE,VALUE)  \
( fprintf (FILE, "\t.half "),			\
  output_addr_const (FILE, (VALUE)),		\
  fprintf (FILE, "\n"))

#define ASM_OUTPUT_CHAR(FILE,VALUE)  \
( fprintf (FILE, "\t.byte "),			\
  output_addr_const (FILE, (VALUE)),		\
  fprintf (FILE, "\n"))

/* This is how to output an assembler line for a numeric constant byte.  */

#define ASM_OUTPUT_BYTE(FILE,VALUE)  \
  fprintf (FILE, "\t.byte 0x%x\n", (VALUE))

/* This is how to output an insn to push a register on the stack.
   It need not be very fast code.  */

#define ASM_OUTPUT_REG_PUSH(FILE,REGNO)  \
  fprintf (FILE, "\tsubw $4,sp\n\tmovw %s,(sp)\n", reg_names[REGNO])

/* This is how to output an insn to pop a register from the stack.
   It need not be very fast code.  */

#define ASM_OUTPUT_REG_POP(FILE,REGNO)  \
  fprintf (FILE, "\tmovw (sp),%s\n\taddw $4,sp\n", reg_names[REGNO])

/* Store in OUTPUT a string (made with alloca) containing
   an assembler-name for a local static variable named NAME.
   LABELNO is an integer which is different for each call.  */

#define ASM_FORMAT_PRIVATE_NAME(OUTPUT, NAME, LABELNO)	\
( (OUTPUT) = (char *) alloca (strlen ((NAME)) + 10),	\
  sprintf ((OUTPUT), "%s.%d", (NAME), (LABELNO)))

/* This is how to output an element of a case-vector that is absolute.  */

#define ASM_OUTPUT_ADDR_VEC_ELT(FILE, VALUE)  \
  fprintf (FILE, "\t.word L%d\n", VALUE)

/* This is how to output an element of a case-vector that is relative.  */


#define ASM_OUTPUT_ADDR_DIFF_ELT(FILE, BODY, VALUE, REL)  \
  fprintf (FILE, "\t.word L%d-L%d\n", VALUE, REL)

/* This is how to output an assembler line
   that says to advance the location counter
   to a multiple of 2**LOG bytes.

   On Pyramids, the text segment must always be word aligned.
   On Pyramids, .align takes only args between 2 and 5.
  */

#define ASM_OUTPUT_ALIGN(FILE,LOG)  \
  fprintf (FILE, "\t.align %d\n", (LOG) < 2 ? 2 : (LOG))

#define ASM_OUTPUT_SKIP(FILE,SIZE)  \
  fprintf (FILE, "\t.space %u\n", (SIZE))

/* This says how to output an assembler line
   to define a global common symbol.  */

#define ASM_OUTPUT_COMMON(FILE, NAME, SIZE, ROUNDED)  \
( fputs (".comm ", (FILE)),			\
  assemble_name ((FILE), (NAME)),		\
  fprintf ((FILE), ",%u\n", (ROUNDED)))

/* This says how to output an assembler line
   to define a local common symbol.  */

#define ASM_OUTPUT_LOCAL(FILE, NAME, SIZE, ROUNDED)  \
( fputs (".lcomm ", (FILE)),			\
  assemble_name ((FILE), (NAME)),		\
  fprintf ((FILE), ",%u\n", (ROUNDED)))

/* Define the parentheses used to group arithmetic operations
   in assembler code.  */

#define ASM_OPEN_PAREN "("
#define ASM_CLOSE_PAREN ")"

/* Define results of standard character escape sequences.  */
#define TARGET_BELL 007
#define TARGET_BS 010
#define TARGET_TAB 011
#define TARGET_NEWLINE 012
#define TARGET_VT 013
#define TARGET_FF 014
#define TARGET_CR 015

/* Print operand X (an rtx) in assembler syntax to file FILE.
   CODE is a letter or dot (`z' in `%z0') or 0 if no letter was specified.
   For `%' followed by punctuation, CODE is the punctuation and X is null.
   On the Pyr, we support the conventional CODE characters:

   'f' for float insn (print a CONST_DOUBLE as a float rather than in hex)
   which are never used. */

/* FIXME : should be more robust with CONST_DOUBLE. */

#define PRINT_OPERAND(FILE, X, CODE)  \
{ if (GET_CODE (X) == REG)						\
    fprintf (FILE, "%s", reg_names [REGNO (X) + ((CODE) == 'R')]);	\
									\
  else if (GET_CODE (X) == MEM)						\
    output_address (XEXP (X, 0));					\
									\
  else if (GET_CODE (X) == CONST_DOUBLE && GET_MODE (X) == SFmode)	\
    { union { double d; int i[2]; } u;					\
      union { float f; int i; } u1;					\
      u.i[0] = CONST_DOUBLE_LOW (X); u.i[1] = CONST_DOUBLE_HIGH (X);	\
      u1.f = u.d;							\
      if (CODE == 'f')							\
        fprintf (FILE, "$0f%.0e", u1.f);				\
      else								\
        fprintf (FILE, "$0x%x", u1.i); }				\
									\
  else if (GET_CODE (X) == CONST_DOUBLE && GET_MODE (X) != VOIDmode)	\
    { union { double d; int i[2]; } u;					\
      u.i[0] = CONST_DOUBLE_LOW (X); u.i[1] = CONST_DOUBLE_HIGH (X);	\
      fprintf (FILE, "$0d%.20e", u.d); }				\
									\
  else if (CODE == 'N')							\
    switch (GET_CODE (X))						\
      {									\
      case EQ:	fputs ("eq", FILE);	break;				\
      case NE:	fputs ("ne", FILE);	break;				\
      case GT:								\
      case GTU:	fputs ("gt", FILE);	break;				\
      case LT:								\
      case LTU:	fputs ("lt", FILE);	break;				\
      case GE:								\
      case GEU:	fputs ("ge", FILE);	break;				\
      case LE:								\
      case LEU:	fputs ("le", FILE);	break;				\
      }									\
									\
  else if (CODE == 'C')							\
    switch (GET_CODE (X))						\
      {									\
      case EQ:	fputs ("ne", FILE);	break;				\
      case NE:	fputs ("eq", FILE);	break;				\
      case GT:								\
      case GTU:	fputs ("le", FILE);	break;				\
      case LT:								\
      case LTU:	fputs ("ge", FILE);	break;				\
      case GE:								\
      case GEU:	fputs ("lt", FILE);	break;				\
      case LE:								\
      case LEU:	fputs ("gt", FILE);	break;				\
      }									\
									\
  else if (CODE == 'R')							\
    switch (GET_CODE (X))						\
      {									\
      case EQ:	fputs ("eq", FILE);	break;				\
      case NE:	fputs ("ne", FILE);	break;				\
      case GT:								\
      case GTU:	fputs ("lt", FILE);	break;				\
      case LT:								\
      case LTU:	fputs ("gt", FILE);	break;				\
      case GE:								\
      case GEU:	fputs ("le", FILE);	break;				\
      case LE:								\
      case LEU:	fputs ("ge", FILE);	break;				\
      }									\
									\
  else { putc ('$', FILE); output_addr_const (FILE, X); }		\
}

/* Print a memory operand whose address is ADDR, on file FILE.  */
/* This is horrendously complicated.  */
#define PRINT_OPERAND_ADDRESS(FILE, ADDR)  \
{									\
  register rtx reg1, reg2, breg, ireg;					\
  register rtx addr = ADDR;						\
  rtx offset, scale;							\
 retry:									\
  switch (GET_CODE (addr))						\
    {									\
    case MEM:								\
      fprintf (stderr, "bad Mem "); debug_rtx (addr);			\
      addr = XEXP (addr, 0);						\
      abort ();								\
    case REG:								\
      fprintf (FILE, "(%s)", reg_names [REGNO (addr)]);			\
      break;								\
    case PLUS:								\
      reg1 = 0;	reg2 = 0;						\
      ireg = 0;	breg = 0;						\
      offset = 0;							\
      if (CONSTANT_ADDRESS_P (XEXP (addr, 0))				\
	  || GET_CODE (XEXP (addr, 0)) == MEM)				\
	{								\
	  offset = XEXP (addr, 0);					\
	  addr = XEXP (addr, 1);					\
	}								\
      else if (CONSTANT_ADDRESS_P (XEXP (addr, 1))			\
	       || GET_CODE (XEXP (addr, 1)) == MEM)			\
	{								\
	  offset = XEXP (addr, 1);					\
	  addr = XEXP (addr, 0);					\
	}								\
      if (GET_CODE (addr) != PLUS) ;					\
      else if (GET_CODE (XEXP (addr, 0)) == MULT)			\
	{								\
	  reg1 = XEXP (addr, 0);					\
	  addr = XEXP (addr, 1);					\
	}								\
      else if (GET_CODE (XEXP (addr, 1)) == MULT)			\
	{								\
	  reg1 = XEXP (addr, 1);					\
	  addr = XEXP (addr, 0);					\
	}								\
      else if (GET_CODE (XEXP (addr, 0)) == REG)			\
	{								\
	  reg1 = XEXP (addr, 0);					\
	  addr = XEXP (addr, 1);					\
	}								\
      else if (GET_CODE (XEXP (addr, 1)) == REG)			\
	{								\
	  reg1 = XEXP (addr, 1);					\
	  addr = XEXP (addr, 0);					\
	}								\
      if (GET_CODE (addr) == REG || GET_CODE (addr) == MULT)		\
	{								\
	  if (reg1 == 0)						\
	    reg1 = addr;						\
          else								\
	    reg2 = addr;						\
	  addr = 0;							\
	}								\
      if (offset != 0) 							\
	{								\
	  if (addr != 0) {						\
	    fprintf (stderr, "\nBad addr "); debug_rtx (addr);		\
	    abort ();}							\
	  addr = offset;						\
	}								\
      if (reg1 != 0 && GET_CODE (reg1) == MULT)				\
	{ breg = reg2; ireg = reg1; }					\
      else if (reg2 != 0 && GET_CODE (reg2) == MULT)			\
	{ breg = reg1; ireg = reg2; }					\
      else if (reg2 != 0 || GET_CODE (addr) == MEM)			\
	{ breg = reg2; ireg = reg1; }					\
      else								\
	{ breg = reg1; ireg = reg2; }					\
      if (addr != 0)							\
	output_address (offset);					\
      if (breg != 0)							\
	{ if (GET_CODE (breg) != REG)					\
	    {								\
	      fprintf (stderr, "bad Breg"); debug_rtx (addr);		\
	      abort ();							\
	    }								\
	  fprintf (FILE, "(%s)", reg_names[REGNO (breg)]); }		\
      if (ireg != 0)							\
	{								\
	  if (GET_CODE (ireg) == MULT)					\
	    {								\
	      scale = XEXP (ireg, 1);					\
	      ireg = XEXP (ireg, 0);					\
	      if (GET_CODE (ireg) != REG)				\
	        { register rtx tem;					\
		  tem = ireg; ireg = scale; scale = tem;		\
	        }							\
 	      if (GET_CODE (ireg) != REG) {				\
		      fprintf (stderr, "bad idx "); debug_rtx (addr);	\
		abort (); }						\
	      if ((GET_CODE (scale) == CONST_INT) && (INTVAL(scale) >= 1))\
		fprintf (FILE, "[%s*0x%x]", reg_names[REGNO (ireg)],	\
			 INTVAL(scale));				\
	      else							\
		fprintf (FILE, "[%s*1]", reg_names[REGNO (ireg)]);	\
 	    } 								\
	  else if (GET_CODE (ireg) == REG)				\
	      fprintf (FILE, "[%s*1]", reg_names[REGNO (ireg)]);	\
	  else								\
	    {								\
	      fprintf (stderr, "Not indexed at all!"); debug_rtx (addr);\
	      abort ();							\
	    }								\
	 }								\
       break;								\
    default:								\
      output_addr_const (FILE, addr);					\
   }									\
}