#define CHECK_FLOAT_VALUE(mode, d) \  if ((mode) == SFmode) \    { \      if ((d) > 1.7014117331926443e+38) \	{ error ("magnitude of constant too large for `float'"); \	  (d) = 1.7014117331926443e+38; } \      else if ((d) < -1.7014117331926443e+38) \	{ error ("magnitude of constant too large for `float'"); \	  (d) = -1.7014117331926443e+38; } \      else if (((d) > 0) && ((d) < 2.9387358770557188e-39)) \	{ warning ("`float' constant truncated to zero"); \	  (d) = 0.0; } \      else if (((d) < 0) && ((d) > -2.9387358770557188e-39)) \	{ warning ("`float' constant truncated to zero"); \	  (d) = 0.0; } \    }/* Tell final.c how to eliminate redundant test instructions.  *//* Here we define machine-dependent flags and fields in cc_status   (see `conditions.h').  No extra ones are needed for convex.  *//* Store in cc_status the expressions   that the condition codes will describe   after execution of an instruction whose pattern is EXP.   Do not alter them if the instruction would not alter the cc's.  */#define NOTICE_UPDATE_CC(EXP,INSN)  {CC_STATUS_INIT;}/* Control the assembler format that we output.  *//* Output at beginning of assembler file.  */#define ASM_FILE_START(FILE) fprintf (FILE, ";NO_APP\n")/* Output to assembler file text saying following lines   may contain character constants, extra white space, comments, etc.  */#define ASM_APP_ON ";APP\n"/* Output to assembler file text saying following lines   no longer contain unusual constructs.  */#define ASM_APP_OFF ";NO_APP\n"/* Alignment with Convex's assembler goes like this:   .text can be .aligned up to a halfword.   .data and .bss can be .aligned up to a longword.   .lcomm is not supported, explicit declarations in .bss must be used instead.   We get alignment for word and longword .text data by conventionally   using .text 2 for word-aligned data and .text 3 for longword-aligned   data.  This requires that this data's size be a multiple of its alignment,   which seems to be always true.  */   /* Boolean to keep track of whether the current section is .text or not.  */extern int current_section_is_text;/* Output before read-only data.  */#define TEXT_SECTION_ASM_OP (current_section_is_text = 1, ".text")/* Output before writable data.  */#define DATA_SECTION_ASM_OP (current_section_is_text = 0, ".data") /* Output before uninitialized data.  */#define BSS_SECTION_ASM_OP (current_section_is_text = 0, ".bss") #define EXTRA_SECTIONS in_bss#define EXTRA_SECTION_FUNCTIONS						\void									\bss_section ()								\{									\  if (in_section != in_bss)						\    {									\      fprintf (asm_out_file, "%s\n", BSS_SECTION_ASM_OP);		\      in_section = in_bss;						\    }									\}/* This is how to output an assembler line   that says to advance the location counter   to a multiple of 2**LOG bytes.  */#define ASM_OUTPUT_ALIGN(FILE,LOG)  \  if (current_section_is_text && (LOG) > 1)				\    fprintf (FILE, ".text %d\n", LOG);					\  else if (current_section_is_text)					\    fprintf (FILE, ".text\n.align %d\n", 1 << (LOG));			\  else									\    fprintf (FILE, ".align %d\n", 1 << (LOG))/* How to refer to registers in assembler output.   This sequence is indexed by compiler's hard-register-number (see above).  */#define REGISTER_NAMES \{"s0", "s1", "s2", "s3", "s4", "s5", "s6", "s7", \ "sp", "a1", "a2", "a3", "a4", "a5", "ap", "fp"}/* This is BSD, so it wants DBX format.  */#define DBX_DEBUGGING_INFO/* How to renumber registers for dbx and gdb. */#define DBX_REGISTER_NUMBER(REGNO) (REGNO)/* 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 '?'/* Don't use the `xsfoo;' construct in DBX output; this system   doesn't support it.  */#define DBX_NO_XREFS/* 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)/* This is how to output a reference to a user-level label named NAME.  */#define ASM_OUTPUT_LABELREF(FILE,NAME)	\  fprintf (FILE, "_%s", NAME)/* 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)/* Put case tables in .text 2, where they will be word-aligned */#define ASM_OUTPUT_CASE_LABEL(FILE,PREFIX,NUM,TABLE) \  ASM_OUTPUT_ALIGN (FILE, 2); \  ASM_OUTPUT_INTERNAL_LABEL (FILE, PREFIX, NUM)#define ASM_OUTPUT_CASE_END(FILE,NUM,TABLE) \  ASM_OUTPUT_ALIGN (FILE, 1)/* 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, "\tds.d %.17e\n", (VALUE))/* This is how to output an assembler line defining a `float' constant.  */#define ASM_OUTPUT_FLOAT(FILE,VALUE)  \  fprintf (FILE, "\tds.s %.9e\n", (VALUE))/* This is how to output an assembler line defining an `int' constant.  */#define ASM_OUTPUT_INT(FILE,VALUE)  \( fprintf (FILE, "\tds.w "),			\  output_addr_const (FILE, (VALUE)),		\  fprintf (FILE, "\n"))/* Likewise for `char' and `short' constants.  */#define ASM_OUTPUT_SHORT(FILE,VALUE)  \( fprintf (FILE, "\tds.h "),			\  output_addr_const (FILE, (VALUE)),		\  fprintf (FILE, "\n"))#define ASM_OUTPUT_CHAR(FILE,VALUE)  \( fprintf (FILE, "\tds.b "),			\  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, "\tds.b %#x\n", (VALUE))/* This is how to output a string */#define ASM_OUTPUT_ASCII(FILE,STR,SIZE) do {				\  int i;								\  fprintf (FILE, "\tds.b \"");						\  for (i = 0; i < (SIZE); i++) {					\      register int c = (STR)[i] & 0377;					\      if (c >= ' ' && c < 0177 && c != '\\' && c != '"')		\	  putc (c, FILE);						\      else								\	  fprintf (FILE, "\\%03o", c);}					\  fprintf (FILE, "\"\n");} while (0)/* 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, "\tpsh.%c %s\n",		\	    S_REGNO_P (REGNO) ? 'l' : 'w',	\	    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, "\tpop.%c %s\n",		\	    S_REGNO_P (REGNO) ? 'l' : 'w',	\	    reg_names[REGNO])/* This is how to output an element of a case-vector that is absolute. */#define ASM_OUTPUT_ADDR_VEC_ELT(FILE, VALUE)  \  fprintf (FILE, "\tds.w L%d\n", VALUE)/* This is how to output an element of a case-vector that is relative.     (not used on Convex) */#define ASM_OUTPUT_ADDR_DIFF_ELT(FILE, VALUE, REL)  \  fprintf (FILE, "\tds.w L%d-L%d\n", VALUE, REL)/* This is how to output an assembler line   that says to advance the location counter by SIZE bytes.  */#define ASM_OUTPUT_SKIP(FILE,SIZE)  \  fprintf (FILE, "\tds.b %u(0)\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)  \( bss_section (),				\  assemble_name ((FILE), (NAME)),		\  fprintf ((FILE), ":\tbs.b %u\n", (ROUNDED)))/* 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)))/* 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 an instruction operand X on file FILE.   CODE is the code from the %-spec that requested printing this operand;   if `%z3' was used to print operand 3, then CODE is 'z'. */#define PRINT_OPERAND(FILE, X, CODE)  \{ if (GET_CODE (X) == REG)						\    fprintf (FILE, "%s", reg_names[REGNO (X)]);				\  else if (GET_CODE (X) == MEM)						\    output_address (XEXP (X, 0));					\  else if (GET_CODE (X) == CONST_DOUBLE && GET_MODE (X) != DImode)	\    { union { double d; int i[2]; } u;					\      u.i[0] = CONST_DOUBLE_LOW (X); u.i[1] = CONST_DOUBLE_HIGH (X);	\      fprintf (FILE, "#%.9e", u.d); }			 		\  else { putc ('#', FILE); output_addr_const (FILE, X); }}/* Print a memory operand whose address is X, on file FILE. */#define PRINT_OPERAND_ADDRESS(FILE, ADDR)				\{ 									\  register rtx addr = ADDR;						\  register rtx index = 0;						\  register rtx offset = 0;						\									\  if (GET_CODE (addr) == MEM)						\    {  									\      fprintf (FILE, "@");						\      addr = XEXP (addr, 0);						\    }									\									\  switch (GET_CODE (addr))						\    {									\    case REG:								\      index = addr;							\      break;								\									\    case PLUS:								\      index = XEXP (addr, 0);						\      if (REG_P (index))						\	offset = XEXP (addr, 1);					\      else								\	{								\	  offset = XEXP (addr, 0);					\	  index = XEXP (addr, 1);					\	  if (! REG_P (index)) abort ();				\        }								\      break;								\									\    default:								\      offset = addr;							\      break;								\    }									\									\  if (offset)								\    output_addr_const (FILE, offset);					\									\  if (index) 								\    fprintf (FILE, "(%s)", reg_names[REGNO (index)]);			\}