/* Definitions of target machine for GNU compiler. MERLIN NS32000 version. Copyright (C) 1990, 1994 Free Software Foundation, Inc. By Mark Mason (mason@reed.bitnet, pyramid!unify!mason@uunet.uu.net). 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. */ /* Two flags to control how addresses are printed in assembler insns. */ #define SEQUENT_ADDRESS_BUG 1 #define SEQUENT_BASE_REGS #include "ns32k/ns32k.h" /* This is BSD, so it wants DBX format. */ #define DBX_DEBUGGING_INFO /* Sequent has some changes in the format of DBX symbols. */ #define DBX_NO_XREFS 1 /* Don't split DBX symbols into continuations. */ #define DBX_CONTIN_LENGTH 0 #define TARGET_DEFAULT 1 /* Print subsidiary information on the compiler version in use. */ #undef TARGET_VERSION #define TARGET_VERSION fprintf (stderr, " (32000, UTek syntax)"); /* These control the C++ compiler somehow. */ #define FASCIST_ASSEMBLER #define USE_COLLECT #undef CPP_PREDEFINES #define CPP_PREDEFINES \ "-Dns32000 -Dns32k -Dns16000 -Dmerlin -Dunix -DUtek -Dbsd \ -Asystem(unix) -Asystem(bsd) -Acpu(ns32k) -Amachine(ns32k)" /* This is how to align the code that follows an unconditional branch. Don't define it, since it confuses the assembler (we hear). */ #undef LABEL_ALIGN_AFTER_BARRIER /* Assembler pseudo-op for shared data segment. */ #define SHARED_SECTION_ASM_OP ".shdata" /* %$ means print the prefix for an immediate operand. */ #ifdef UTEK_ASM #undef PRINT_OPERAND #define PRINT_OPERAND(FILE, X, CODE) \ { if (CODE == '$') putc('$', FILE); \ else if (CODE == '?'); \ else if (GET_CODE (X) == CONST_INT) \ fprintf(FILE, "$%d", INTVAL(X)); \ else if (GET_CODE (X) == REG) \ fprintf (FILE, "%s", reg_names[REGNO (X)]); \ else if (GET_CODE (X) == MEM) \ { \ rtx xfoo; \ xfoo = XEXP (X, 0); \ switch (GET_CODE (xfoo)) \ { \ case MEM: \ if (GET_CODE (XEXP (xfoo, 0)) == REG) \ if (REGNO (XEXP (xfoo, 0)) == STACK_POINTER_REGNUM) \ fprintf (FILE, "0(0(sp))"); \ else fprintf (FILE, "0(0(%s))", \ reg_names[REGNO (XEXP (xfoo, 0))]); \ else \ { \ if (GET_CODE (XEXP (xfoo, 0)) == SYMBOL_REF \ || GET_CODE (XEXP (xfoo, 0)) == CONST) \ { \ fprintf(FILE, "0("); \ output_address(xfoo); \ fprintf(FILE, "(sb))"); \ } \ else \ { \ fprintf (FILE, "0("); \ output_address (xfoo); \ putc (')', FILE); \ } \ } \ break; \ case REG: \ fprintf (FILE, "0(%s)", reg_names[REGNO (xfoo)]); \ break; \ case PRE_DEC: \ case POST_INC: \ fprintf (FILE, "tos"); \ break; \ case CONST_INT: \ fprintf (FILE, "$%d", INTVAL (xfoo)); \ break; \ default: \ output_address (xfoo); \ break; \ } \ } \ else if (GET_CODE (X) == CONST_DOUBLE && GET_MODE (X) != VOIDmode) \ if (GET_MODE (X) == DFmode) \ { 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 { union { double d; int i[2]; } u; \ u.i[0] = CONST_DOUBLE_LOW (X); u.i[1] = CONST_DOUBLE_HIGH (X); \ fprintf (FILE, "$0f%.20e", u.d); } \ else output_addr_const (FILE, X); } #undef FUNCTION_PROLOGUE /* This differs from the one in ns32k.h in printing a bitmask rather than a register list in the enter or save instruction. */ #define FUNCTION_PROLOGUE(FILE, SIZE) \ { register int regno, g_regs_used = 0; \ int used_regs_buf[8], *bufp = used_regs_buf; \ int used_fregs_buf[8], *fbufp = used_fregs_buf; \ extern char call_used_regs[]; \ MAIN_FUNCTION_PROLOGUE; \ for (regno = 0; regno < 8; regno++) \ if (regs_ever_live[regno] \ && ! call_used_regs[regno]) \ { \ *bufp++ = regno; g_regs_used++; \ } \ *bufp = -1; \ for (; regno < 16; regno++) \ if (regs_ever_live[regno] && !call_used_regs[regno]) { \ *fbufp++ = regno; \ } \ *fbufp = -1; \ bufp = used_regs_buf; \ if (frame_pointer_needed) \ fprintf (FILE, "\tenter "); \ else if (g_regs_used) \ fprintf (FILE, "\tsave "); \ if (frame_pointer_needed || g_regs_used) \ { \ char mask = 0; \ while (*bufp >= 0) \ mask |= 1 << *bufp++; \ fprintf (FILE, "$0x%x", (int) mask & 0xff); \ } \ if (frame_pointer_needed) \ fprintf (FILE, ",%d\n", SIZE); \ else if (g_regs_used) \ fprintf (FILE, "\n"); \ fbufp = used_fregs_buf; \ while (*fbufp >= 0) \ { \ if ((*fbufp & 1) || (fbufp[0] != fbufp[1] - 1)) \ fprintf (FILE, "\tmovf f%d,tos\n", *fbufp++ - 8); \ else \ { \ fprintf (FILE, "\tmovl f%d,tos\n", fbufp[0] - 8); \ fbufp += 2; \ } \ } \ } #undef FUNCTION_EPILOGUE /* This differs from the one in ns32k.h in printing a bitmask rather than a register list in the exit or restore instruction. */ #define FUNCTION_EPILOGUE(FILE, SIZE) \ { register int regno, g_regs_used = 0, f_regs_used = 0; \ int used_regs_buf[8], *bufp = used_regs_buf; \ int used_fregs_buf[8], *fbufp = used_fregs_buf; \ extern char call_used_regs[]; \ *fbufp++ = -2; \ for (regno = 8; regno < 16; regno++) \ if (regs_ever_live[regno] && !call_used_regs[regno]) { \ *fbufp++ = regno; f_regs_used++; \ } \ fbufp--; \ for (regno = 0; regno < 8; regno++) \ if (regs_ever_live[regno] \ && ! call_used_regs[regno]) \ { \ *bufp++ = regno; g_regs_used++; \ } \ while (fbufp > used_fregs_buf) \ { \ if ((*fbufp & 1) && fbufp[0] == fbufp[-1] + 1) \ { \ fprintf (FILE, "\tmovl tos,f%d\n", fbufp[-1] - 8); \ fbufp -= 2; \ } \ else fprintf (FILE, "\tmovf tos,f%d\n", *fbufp-- - 8); \ } \ if (frame_pointer_needed) \ fprintf (FILE, "\texit "); \ else if (g_regs_used) \ fprintf (FILE, "\trestore "); \ if (g_regs_used || frame_pointer_needed) \ { \ char mask = 0; \ \ while (bufp > used_regs_buf) \ { \ /* Utek assembler takes care of reversing this */ \ mask |= 1 << *--bufp; \ } \ fprintf (FILE, "$0x%x\n", (int) mask & 0xff); \ } \ if (current_function_pops_args) \ fprintf (FILE, "\tret %d\n", current_function_pops_args); \ else fprintf (FILE, "\tret 0\n"); } #endif /* UTEK_ASM */ #undef PRINT_OPERAND_ADDRESS #define PRINT_OPERAND_ADDRESS(FILE, ADDR) print_operand_address(FILE, ADDR)