123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358 |
- /* Definitions of target machine for GNU compiler. ISI 68000/68020 version.
- Copyright (C) 1987 Free Software Foundation, Inc.
- This file is part of GNU CC.
- GNU CC is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY. No author or distributor
- accepts responsibility to anyone for the consequences of using it
- or for whether it serves any particular purpose or works at all,
- unless he says so in writing. Refer to the GNU CC General Public
- License for full details.
- Everyone is granted permission to copy, modify and redistribute
- GNU CC, but only under the conditions described in the
- GNU CC General Public License. A copy of this license is
- supposed to have been given to you along with GNU CC so you
- can know your rights and responsibilities. It should be in a
- file named COPYING. Among other things, the copyright notice
- and this notice must be preserved on all copies. */
- #include "tm-m68k.h"
- /* Control conditionals in m68k.md. */
- #define ISI_OV
- /* See tm-m68k.h. 7 means 68020 with 68881.
- Use 017 if in addition the C library is compiled with 68881 insns;
- in that case, SFmode and DFmode values are returned in register f0. */
- #define TARGET_DEFAULT 7
- /* Names to predefine in the preprocessor for this target machine. */
- #define CPP_PREDEFINES "-Dmc68000 -Dis68k"
- /* Override parts of tm-m68k.h to fit the ISI 68k machine. */
- #undef TARGET_SWITCHES
- #undef FUNCTION_PROLOGUE
- #undef FUNCTION_EPILOGUE
- #undef REGISTER_NAMES
- #undef FUNCTION_VALUE
- #undef LIBCALL_VALUE
- #undef FUNCTION_VALUE_REGNO_P
- #undef ASM_FILE_START
- #undef ASM_APP_ON
- #undef ASM_APP_OFF
- #undef ASM_OUTPUT_DOUBLE
- #undef ASM_OUTPUT_FLOAT
- #undef ASM_OUTPUT_ALIGN
- #undef ASM_OUTPUT_SKIP
- #undef PRINT_OPERAND
- #undef PRINT_OPERAND_ADDRESS
- #define TARGET_LIBC_68881 (target_flags & 8)
- #define TARGET_SWITCHES \
- { { "68020", 5}, \
- { "68881", 2}, \
- { "bitfield", 4}, \
- { "68000", -5}, \
- { "soft-float", -2}, \
- { "nobitfield", -4}, \
- { "libc-68881", 8}, \
- { "libc-soft-float", -8}, \
- { "", TARGET_DEFAULT}}
- /* Difference from tm-m68k.h is in `fp' instead of `a6'
- and `f' instead of `fp' for the 68881 registers. */
- #define REGISTER_NAMES \
- {"d0", "d1", "d2", "d3", "d4", "d5", "d6", "d7", \
- "a0", "a1", "a2", "a3", "a4", "a5", "fp", "sp", \
- "f0", "f1", "f2", "f3", "f4", "f5", "f6", "f7"}
- /* If TARGET_LIBC_68881, return SF and DF values in f0 instead of d0. */
- #define FUNCTION_VALUE(VALTYPE,FUNC) LIBCALL_VALUE (TYPE_MODE (VALTYPE))
- #define LIBCALL_VALUE(MODE) \
- gen_rtx (REG, (MODE), ((TARGET_LIBC_68881 && ((MODE) == SFmode || (MODE) == DFmode)) ? 16 : 0))
- /* 1 if N is a possible register number for a function value.
- D0 may be used, and F0 as well if -mlibc-68881 is specified. */
- #define FUNCTION_VALUE_REGNO_P(N) \
- ((N) == 0 || (TARGET_LIBC_68881 && (N) == 16))
- /* These definitions of FUNCTION_PROLOGUE and FUNCTION_EPILOGUE
- are the same as in tm-m68k.h except for syntax of assembler code:
- It uses `fp' instead of `a6'. */
- #define FUNCTION_PROLOGUE(FILE, SIZE) \
- { register int regno; \
- register int mask = 0; \
- static char *reg_names[] = REGISTER_NAMES; \
- extern char call_used_regs[]; \
- int fsize = (SIZE); \
- if (frame_pointer_needed) \
- { if (TARGET_68020 || fsize < 0x10000) \
- fprintf (FILE, "\tlink fp,#%d\n", -fsize); \
- else \
- fprintf (FILE, "\tlink fp,#0\n\tsubl #%d,sp\n", fsize); } \
- for (regno = 16; regno < FIRST_PSEUDO_REGISTER; regno++) \
- if (regs_ever_live[regno] && ! call_used_regs[regno]) \
- mask |= 1 << (regno - 16); \
- if (mask != 0) \
- fprintf (FILE, "\tfmovem #0x%x,sp@-\n", mask & 0xff); \
- mask = 0; \
- for (regno = 0; regno < 16; regno++) \
- if (regs_ever_live[regno] && ! call_used_regs[regno]) \
- mask |= 1 << (15 - regno); \
- if (frame_pointer_needed) \
- mask &= ~ (1 << (15-FRAME_POINTER_REGNUM)); \
- if (exact_log2 (mask) >= 0) \
- fprintf (FILE, "\tmovl %s,sp@-\n", reg_names[15 - exact_log2 (mask)]); \
- else if (mask) fprintf (FILE, "\tmoveml #0x%x,sp@-\n", mask); }
- #define FUNCTION_EPILOGUE(FILE, SIZE) \
- { register int regno; \
- register int mask, fmask; \
- register int nregs; \
- int offset, foffset; \
- extern char call_used_regs[]; \
- static char *reg_names[] = REGISTER_NAMES; \
- extern int current_function_pops_args; \
- extern int current_function_args_size; \
- int fsize = (SIZE); \
- int big = 0; \
- nregs = 0; fmask = 0; \
- for (regno = 16; regno < FIRST_PSEUDO_REGISTER; regno++) \
- if (regs_ever_live[regno] && ! call_used_regs[regno]) \
- { nregs++; fmask |= 1 << (23 - regno); } \
- foffset = nregs * 12; \
- nregs = 0; mask = 0; \
- if (frame_pointer_needed) regs_ever_live[FRAME_POINTER_REGNUM] = 0; \
- for (regno = 0; regno < 16; regno++) \
- if (regs_ever_live[regno] && ! call_used_regs[regno]) \
- { nregs++; mask |= 1 << regno; } \
- offset = foffset + nregs * 4; \
- if (offset + fsize >= 0x8000 && frame_pointer_needed) \
- { fprintf (FILE, "\tmovel #%d,a0\n", -fsize); \
- fsize = 0, big = 1; } \
- if (exact_log2 (mask) >= 0) { \
- if (big) \
- fprintf (FILE, "\tmovel fp@(-%d,a0:l),%s\n", \
- offset + fsize, reg_names[exact_log2 (mask)]); \
- else if (! frame_pointer_needed) \
- fprintf (FILE, "\tmovel sp@+,%s\n", \
- reg_names[exact_log2 (mask)]); \
- else \
- fprintf (FILE, "\tmovel fp@(-%d),%s\n", \
- offset + fsize, reg_names[exact_log2 (mask)]); } \
- else if (mask) { \
- if (big) \
- fprintf (FILE, "\tmoveml fp@(-%d,a0:l),#0x%x\n", \
- offset + fsize, mask); \
- else if (! frame_pointer_needed) \
- fprintf (FILE, "\tmoveml sp@+,#0x%x\n", mask); \
- else \
- fprintf (FILE, "\tmoveml fp@(-%d),#0x%x\n", \
- offset + fsize, mask); } \
- if (fmask) { \
- if (big) \
- fprintf (FILE, "\tfmovem fp@(-%d,a0:l),#0x%x\n", \
- foffset + fsize, fmask); \
- else if (! frame_pointer_needed) \
- fprintf (FILE, "\tfmovem sp@+,#0x%x\n", fmask); \
- else \
- fprintf (FILE, "\tfmovem fp@(-%d),#0x%x\n", \
- foffset + fsize, fmask); } \
- if (frame_pointer_needed) \
- fprintf (FILE, "\tunlk fp\n"); \
- if (current_function_pops_args && current_function_args_size) \
- fprintf (FILE, "\trtd #%d\n", current_function_args_size); \
- else fprintf (FILE, "\trts\n"); }
- /* Do NOT output the usual #NO_APP, because the ISI assembler
- doesn't accept # as a comment starter.
- And DO output something to cause the correct _doprnt to be loaded. */
- #define ASM_FILE_START ".globl fltused\n"
- /* There is no need to turn on and off app processing
- since this output is not for the GNU assembler. */
- #define ASM_APP_ON ""
- #define ASM_APP_OFF ""
- #define ASM_OUTPUT_DOUBLE(FILE,VALUE) \
- fprintf (FILE, "\t.double 0d%.20g\n", (VALUE))
- #define ASM_OUTPUT_FLOAT(FILE,VALUE) \
- fprintf (FILE, "\t.float 0f%.10g\n", (VALUE))
- #define ASM_OUTPUT_ALIGN(FILE,LOG) \
- if ((LOG) != 0) fprintf (FILE, "\t.align %d\n", (LOG));
- #define ASM_OUTPUT_SKIP(FILE,SIZE) \
- fprintf (FILE, "\t.space %d\n", (SIZE))
- #define PRINT_OPERAND(FILE, X, CODE) \
- { if (CODE == '.') ; \
- else if (GET_CODE (X) == REG) \
- fprintf (FILE, "%s", reg_name [REGNO (X)]); \
- 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] = XINT (X, 0); u.i[1] = XINT (X, 1); \
- u1.f = u.d; \
- if (CODE == 'f') \
- fprintf (FILE, "#0f%.9g", u1.f); \
- else \
- fprintf (FILE, "#0x%x", u1.i); } \
- else if (GET_CODE (X) == CONST_DOUBLE) \
- { union { double d; int i[2]; } u; \
- u.i[0] = XINT (X, 0); u.i[1] = XINT (X, 1); \
- fprintf (FILE, "#0d%.20g", u.d); } \
- else if (CODE == 'b') output_addr_const (FILE, X); \
- else { putc ('#', FILE); output_addr_const (FILE, X); }}
- /* Note that this contains a kludge that knows that the only reason
- we have an address (plus (label_ref...) (reg...))
- is in the insn before a tablejump, and the displacement must be 6. */
- #define PRINT_OPERAND_ADDRESS(FILE, ADDR) \
- { register rtx reg1, reg2, breg, ireg; \
- register rtx addr = ADDR; \
- rtx offset; \
- switch (GET_CODE (addr)) \
- { \
- case REG: \
- fprintf (FILE, "%s@", reg_name [REGNO (addr)]); \
- break; \
- case PRE_DEC: \
- fprintf (FILE, "%s@-", reg_name [REGNO (XEXP (addr, 0))]); \
- break; \
- case POST_INC: \
- fprintf (FILE, "%s@+", reg_name [REGNO (XEXP (addr, 0))]); \
- break; \
- case PLUS: \
- reg1 = 0; reg2 = 0; \
- ireg = 0; breg = 0; \
- offset = 0; \
- if (CONSTANT_ADDRESS_P (XEXP (addr, 0))) \
- { \
- offset = XEXP (addr, 0); \
- addr = XEXP (addr, 1); \
- } \
- else if (CONSTANT_ADDRESS_P (XEXP (addr, 1))) \
- { \
- offset = XEXP (addr, 1); \
- addr = XEXP (addr, 0); \
- } \
- if (GET_CODE (addr) != PLUS) ; \
- else if (GET_CODE (XEXP (addr, 0)) == SIGN_EXTEND) \
- { \
- reg1 = XEXP (addr, 0); \
- addr = XEXP (addr, 1); \
- } \
- else if (GET_CODE (XEXP (addr, 1)) == SIGN_EXTEND) \
- { \
- reg1 = XEXP (addr, 1); \
- addr = XEXP (addr, 0); \
- } \
- 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 \
- || GET_CODE (addr) == SIGN_EXTEND) \
- { if (reg1 == 0) reg1 = addr; else reg2 = addr; addr = 0; } \
- /* for OLD_INDEXING \
- else if (GET_CODE (addr) == PLUS) \
- { \
- if (GET_CODE (XEXP (addr, 0)) == REG) \
- { \
- reg2 = XEXP (addr, 0); \
- addr = XEXP (addr, 1); \
- } \
- else if (GET_CODE (XEXP (addr, 1)) == REG) \
- { \
- reg2 = XEXP (addr, 1); \
- addr = XEXP (addr, 0); \
- } \
- } \
- */ \
- if (offset != 0) { if (addr != 0) abort (); addr = offset; } \
- if ((reg1 && (GET_CODE (reg1) == SIGN_EXTEND \
- || GET_CODE (reg1) == MULT)) \
- || (reg2 != 0 && REGNO_OK_FOR_BASE_P (REGNO (reg2)))) \
- { breg = reg2; ireg = reg1; } \
- else if (reg1 != 0 && REGNO_OK_FOR_BASE_P (REGNO (reg1))) \
- { breg = reg1; ireg = reg2; } \
- if (ireg != 0 && breg == 0 && GET_CODE (addr) == LABEL_REF) \
- { int scale = 1; \
- if (GET_CODE (ireg) == MULT) \
- { scale = INTVAL (XEXP (ireg, 1)); \
- ireg = XEXP (ireg, 0); } \
- if (GET_CODE (ireg) == SIGN_EXTEND) \
- fprintf (FILE, "pc@(L%d-LI%d-2:b,%s:w", \
- CODE_LABEL_NUMBER (XEXP (addr, 0)), \
- CODE_LABEL_NUMBER (XEXP (addr, 0)), \
- reg_name[REGNO (XEXP (ireg, 0))]); \
- else \
- fprintf (FILE, "pc@(L%d-LI%d-2:b,%s:l", \
- CODE_LABEL_NUMBER (XEXP (addr, 0)), \
- CODE_LABEL_NUMBER (XEXP (addr, 0)), \
- reg_name[REGNO (ireg)]); \
- if (scale != 1) fprintf (FILE, "*%d", scale); \
- putc (')', FILE); \
- break; } \
- if (ireg != 0 || breg != 0) \
- { int scale = 1; \
- if (breg == 0) \
- abort (); \
- fprintf (FILE, "%s@(", reg_name[REGNO (breg)]); \
- if (addr != 0) \
- output_addr_const (FILE, addr); \
- else putc ('0', FILE); \
- if (ireg != 0 && GET_CODE (ireg) == MULT) \
- { scale = INTVAL (XEXP (ireg, 1)); \
- ireg = XEXP (ireg, 0); } \
- if (ireg != 0 && GET_CODE (ireg) == SIGN_EXTEND) \
- fprintf (FILE, ",%s:w", reg_name[REGNO (XEXP (ireg, 0))]); \
- else if (ireg != 0) \
- fprintf (FILE, ",%s:l", reg_name[REGNO (ireg)]); \
- if (scale != 1) fprintf (FILE, "*%d", scale); \
- putc (')', FILE); \
- break; \
- } \
- else if (reg1 != 0 && GET_CODE (addr) == LABEL_REF) \
- { fprintf (FILE, "pc@(L%d-LI%d-2:b,%s:l)", \
- CODE_LABEL_NUMBER (XEXP (addr, 0)), \
- CODE_LABEL_NUMBER (XEXP (addr, 0)), \
- reg_name[REGNO (reg1)]); \
- break; } \
- default: \
- if (GET_CODE (addr) == CONST_INT \
- && INTVAL (addr) < 0x8000 \
- && INTVAL (addr) >= -0x8000) \
- fprintf (FILE, "%d:w", INTVAL (addr)); \
- else \
- output_addr_const (FILE, addr); \
- }}
|