From 4792ac86164fcb5aac8029e5208546944228d7a2 Mon Sep 17 00:00:00 2001 From: Richard Stallman Date: Sun, 12 Jan 1992 03:30:32 +0000 Subject: [PATCH] Initial revision From-SVN: r179 --- gcc/config/m68k/sgs.h | 349 ++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 349 insertions(+) create mode 100644 gcc/config/m68k/sgs.h diff --git a/gcc/config/m68k/sgs.h b/gcc/config/m68k/sgs.h new file mode 100644 index 00000000000..59eb3703706 --- /dev/null +++ b/gcc/config/m68k/sgs.h @@ -0,0 +1,349 @@ +/* Definitions of target machine for GNU compiler for m68k targets using + assemblers derived from AT&T "SGS" releases. + + Copyright (C) 1991 Free Software Foundation, Inc. + + Written by Fred Fish (fnf@cygnus.com) + +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 1, 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, 675 Mass Ave, Cambridge, MA 02139, USA. */ + +/* Control assembler-syntax conditionals in m68k.md and conditionals in + m68k.h. Note that some systems may also require SGS_SWAP_W and/or + SGS_SWITCH_TABLES to be defined as well. */ + +#define MOTOROLA /* Use Motorola syntax rather than "MIT" */ +#define SGS /* Uses SGS assembler */ +#define SGS_CMP_ORDER /* Takes cmp operands in reverse order */ + +#include "m68k.h" + +/* SGS specific assembler pseudo ops. */ + +#define BYTE_ASM_OP "\t.byte" +#define WORD_ASM_OP "\t.short" +#define LONG_ASM_OP "\t.long" +#define SPACE_ASM_OP "\t.space" +#define ALIGN_ASM_OP "\t.align" +#define GLOBAL_ASM_OP "\t.global" +#define SWBEG_ASM_OP "\t.swbeg" +#define SET_ASM_OP "\t.set" + +#define UNALIGNED_SHORT_ASM_OP "\t.short" /* Used in dwarfout.c */ +#define UNALIGNED_INT_ASM_OP "\t.long" /* Used in dwarfout.c */ + +#define ASM_PN_FORMAT "%s_%d" /* Format for private names */ + +/* Here are four prefixes that are used by asm_fprintf to + facilitate customization for alternate assembler syntaxes. + Machines with no likelihood of an alternate syntax need not + define these and need not use asm_fprintf. */ + +/* The prefix for register names. Note that REGISTER_NAMES + is supposed to include this prefix. Also note that this is NOT an + fprintf format string, it is a literal string */ + +#undef REGISTER_PREFIX +#define REGISTER_PREFIX "%" + +/* The prefix for local (compiler generated) labels. + These labels will not appear in the symbol table. */ + +#undef LOCAL_LABEL_PREFIX +#define LOCAL_LABEL_PREFIX "." + +/* The prefix to add to user-visible assembler symbols. */ + +#undef USER_LABEL_PREFIX +#define USER_LABEL_PREFIX "" + +/* The prefix for immediate operands. */ + +#undef IMMEDIATE_PREFIX +#define IMMEDIATE_PREFIX "&" + +/* How to refer to registers in assembler output. + This sequence is indexed by compiler's hard-register-number. + Motorola format uses different register names than defined in m68k.h. + We also take this chance to convert 'a6' to 'fp' */ + +#undef REGISTER_NAMES + +#ifndef SUPPORT_SUN_FPA + +#define REGISTER_NAMES \ +{"%d0", "%d1", "%d2", "%d3", "%d4", "%d5", "%d6", "%d7", \ + "%a0", "%a1", "%a2", "%a3", "%a4", "%a5", "%fp", "%sp", \ + "%fp0", "%fp1", "%fp2", "%fp3", "%fp4", "%fp5", "%fp6", "%fp7" } + +#else /* SUPPORTED_SUN_FPA */ + +#define REGISTER_NAMES \ +{"%d0", "%d1", "%d2", "%d3", "%d4", "%d5", "%d6", "%d7", \ + "%a0", "%a1", "%a2", "%a3", "%a4", "%a5", "%fp", "%sp", \ + "%fp0", "%fp1", "%fp2", "%fp3", "%fp4", "%fp5", "%fp6", "%fp7", \ + "%fpa0", "%fpa1", "%fpa2", "%fpa3", "%fpa4", "%fpa5", "%fpa6","%fpa7", \ + "%fpa8", "%fpa9", "%fpa10","%fpa11","%fpa12","%fpa13","%fpa14","%fpa15", \ + "%fpa16","%fpa17","%fpa18","%fpa19","%fpa20","%fpa21","%fpa22","%fpa23", \ + "%fpa24","%fpa25","%fpa26","%fpa27","%fpa28","%fpa29","%fpa30","%fpa31" } + +#endif /* defined SUPPORT_SUN_FPA */ + +/* When using an SGS assembler, modify the name of the artificial label which + identifies this file as having been compiled with gcc, and the macro that + emits such a label in the assembly output, to use '%' rather than '.' */ + +#define ASM_IDENTIFY_GCC(FILE) \ + { fprintf ((FILE), "%s:\n", "gcc2_compiled%"); } + +/* This is how to output an assembler line defining an `int' constant. */ +/* The SGS assembler doesn't understand ".word". */ + +#undef ASM_OUTPUT_SHORT +#define ASM_OUTPUT_SHORT(FILE,VALUE) \ +( fprintf ((FILE), "%s ", WORD_ASM_OP), \ + output_addr_const ((FILE), (VALUE)), \ + fprintf ((FILE), "\n")) + +/* This is how to output an assembler line defining a `double' constant. */ + +#undef ASM_OUTPUT_DOUBLE +#define ASM_OUTPUT_DOUBLE(FILE,VALUE) \ +do { union { double d; long l[2]; } tem; \ + tem.d = (VALUE); \ + fprintf((FILE), "%s 0x%x,0x%x\n", LONG_ASM_OP, \ + tem.l[0], tem.l[1]); \ + } while (0) + +/* This is how to output an assembler line defining a `float' constant. */ + +#undef ASM_OUTPUT_FLOAT +#define ASM_OUTPUT_FLOAT(FILE,VALUE) \ +do { union { float f; long l;} tem; \ + tem.f = (VALUE); \ + fprintf ((FILE), "%s 0x%x\n", LONG_ASM_OP, tem.l); \ + } while (0) + +/* This is how to output an assembler line that says to advance the + location counter to a multiple of 2**LOG bytes. */ + +#undef ASM_OUTPUT_ALIGN +#define ASM_OUTPUT_ALIGN(FILE,LOG) \ + if ((LOG) > 0) \ + fprintf ((FILE), "%s \t%u\n", ALIGN_ASM_OP, 1 << (LOG)); \ + else if ((LOG) > 31) \ + abort (); + +/* The routine used to output null terminated string literals. We cannot + use the ".string" pseudo op, because it silently truncates strings to + 1023 bytes. There is no "partial string op" which works like ".string" + but doesn't append a null byte, so we can't chop the input string up + into small pieces and use that. Our only remaining alternative is to + output the string one byte at a time. */ + +#define ASM_OUTPUT_ASCII(FILE,PTR,LEN) \ +{ \ + register int sp = 0, lp = 0, ch; \ + fprintf ((FILE), "%s ", BYTE_ASM_OP); \ + do { \ + ch = (PTR)[sp]; \ + if (ch > ' ' && ! (ch & 0x80) && ch != '\\') \ + { \ + fprintf ((FILE), "'%c", ch); \ + } \ + else \ + { \ + fprintf ((FILE), "0x%x", ch); \ + } \ + if (++sp < (LEN)) \ + { \ + if ((sp % 10) == 0) \ + { \ + fprintf ((FILE), "\n%s ", BYTE_ASM_OP); \ + } \ + else \ + { \ + putc (',', (FILE)); \ + } \ + } \ + } while (sp < (LEN)); \ + putc ('\n', (FILE)); \ +} + + +/* SGS based assemblers don't understand #NO_APP and #APP, so just don't + bother emitting them. */ + +#undef ASM_APP_ON +#define ASM_APP_ON "" + +#undef ASM_APP_OFF +#define ASM_APP_OFF "" + +/* When using SGS derived assemblers, change the "MIT" or "MOTOROLA" + to "SGS/AT&T" */ + +#undef TARGET_VERSION +#define TARGET_VERSION fprintf (stderr, " (68k, SGS/AT&T syntax)"); + +/* This is how to output a command to make the user-level label named NAME + defined for reference from other files. */ + +#undef ASM_GLOBALIZE_LABEL +#define ASM_GLOBALIZE_LABEL(FILE,NAME) \ + do { \ + fprintf ((FILE), "%s ", GLOBAL_ASM_OP); \ + assemble_name ((FILE), NAME); \ + fputs ("\n", FILE); \ + } while (0) + +#undef PRINT_OPERAND_PRINT_FLOAT +#define PRINT_OPERAND_PRINT_FLOAT(CODE,FILE) \ + asm_fprintf ((FILE), "%I0x%x", u1.i); + +#undef ASM_OUTPUT_DOUBLE_OPERAND +#define ASM_OUTPUT_DOUBLE_OPERAND(FILE,VALUE) \ + asm_fprintf ((FILE),"%I0x%x%08x", u.i[0], u.i[1]); + +/* How to output a block of SIZE zero bytes. Note that the `space' pseudo, + when used in the text segment, causes SGS assemblers to output nop insns + rather than 0s, so we set ASM_NO_SKIP_IN_TEXT to prevent this. */ + +#define ASM_NO_SKIP_IN_TEXT 1 + +#undef ASM_OUTPUT_SKIP +#define ASM_OUTPUT_SKIP(FILE,SIZE) \ + fprintf (FILE, "%s %u\n", SPACE_ASM_OP, (SIZE)) + +/* Translate Motorola opcodes such as `jbeq' into SGS opcodes such + as `beq.w'. + Delete the `e' in `move...' and `fmove'. + Change `ftst' to `ftest'. + Change `fbne' to `fbneq' + Change `fsne' to `fsneq' + Change `divsl' to `tdivs' (32/32 -> 32r:32q) + Change `divul' to `tdivu' (32/32 -> 32r:32q) + */ + +#define ASM_OUTPUT_OPCODE(FILE, PTR) \ +{ \ + extern int flag_pic; \ + if (!strncmp ((PTR), "jbsr", 4)) { \ + if (flag_pic) \ + fprintf ((FILE), "bsr"); \ + else \ + fprintf ((FILE),"jsr"); \ + (PTR) += 4; \ + } else if ((PTR)[0] == 'j' && (PTR)[1] == 'b') \ + { ++(PTR); \ + while (*(PTR) != ' ') \ + { putc (*(PTR), (FILE)); ++(PTR); } \ + fprintf ((FILE), ".w"); } \ +/* FMOVE ==> FMOV, (and F%& F%$ translations) */ \ + else if ((PTR)[0] == 'f') \ + { \ + if (!strncmp ((PTR), "fmove", 5)) \ + { fprintf ((FILE), "fmov"); (PTR) += 5; } \ + else if (!strncmp ((PTR), "ftst", 4)) \ + { fprintf ((FILE), "ftest"); (PTR) += 4; } \ + else if (!strncmp ((PTR), "fbne", 4)) \ + { fprintf ((FILE), "fbneq"); (PTR) += 4; } \ + else if (!strncmp ((PTR), "fsne", 4)) \ + { fprintf ((FILE), "fsneq"); (PTR) += 4; } \ + else if (!strncmp ((PTR), "f%$move", 7)) \ + { (PTR) += 7; \ + if (TARGET_68040_ONLY) \ + fprintf ((FILE), "fsmov"); \ + else fprintf ((FILE), "fmov"); } \ + else if (!strncmp ((PTR), "f%&move", 7)) \ + { (PTR) += 7; \ + if (TARGET_68040_ONLY) \ + fprintf ((FILE), "fdmov"); \ + else fprintf ((FILE), "fmov"); } \ + } \ +/* MOVE, MOVEA, MOVEQ, MOVEC ==> MOV */ \ + else if ((PTR)[0] == 'm' && (PTR)[1] == 'o' \ + && (PTR)[2] == 'v' && (PTR)[3] == 'e') \ + { fprintf ((FILE), "mov"); (PTR) += 4; \ + if ((PTR)[0] == 'q' || (PTR)[0] == 'a' || \ + (PTR)[0] == 'c') (PTR)++; } \ +/* SUB, SUBQ, SUBA, SUBI ==> SUB */ \ + else if ((PTR)[0] == 's' && (PTR)[1] == 'u' \ + && (PTR)[2] == 'b') \ + { fprintf ((FILE), "sub"); (PTR) += 3; \ + if ((PTR)[0] == 'q' || (PTR)[0] == 'i' || \ + (PTR)[0] == 'a') (PTR)++; } \ +/* CMP, CMPA, CMPI, CMPM ==> CMP */ \ + else if ((PTR)[0] == 'c' && (PTR)[1] == 'm' \ + && (PTR)[2] == 'p') \ + { fprintf ((FILE), "cmp"); (PTR) += 3; \ + if ((PTR)[0] == 'a' || (PTR)[0] == 'i' || \ + (PTR)[0] == 'm') (PTR)++; } \ +/* DIVSL ==> TDIVS */ \ + else if ((PTR)[0] == 'd' && (PTR)[1] == 'i' \ + && (PTR)[2] == 'v' && (PTR)[3] == 's' \ + && (PTR)[4] == 'l') \ + { fprintf ((FILE), "tdivs"); (PTR) += 5; } \ +/* DIVUL ==> TDIVU */ \ + else if ((PTR)[0] == 'd' && (PTR)[1] == 'i' \ + && (PTR)[2] == 'v' && (PTR)[3] == 'u' \ + && (PTR)[4] == 'l') \ + { fprintf ((FILE), "tdivu"); (PTR) += 5; } \ +} + +/* This macro outputs the label at the start of a switch table. The + ".swbeg " is an assembler directive that causes the switch table + size to be inserted into the object code so that disassemblers, for + example, can identify that it is the start of a switch table. */ + +#define ASM_OUTPUT_CASE_LABEL(FILE,PREFIX,NUM,TABLE) \ + fprintf ((FILE), "%s &%d\n", SWBEG_ASM_OP, XVECLEN (PATTERN (TABLE), 1)); \ + ASM_OUTPUT_INTERNAL_LABEL((FILE),(PREFIX),(NUM)); + +/* At end of a switch table, define LDnnn iff the symbol LInnn was defined. + Some SGS assemblers have a bug such that "Lnnn-LInnn-2.b(pc,d0.l*2)" + fails to assemble. Luckily "Lnnn(pc,d0.l*2)" produces the results + we want. This difference can be accommodated by using an assembler + define such "LDnnn" to be either "Lnnn-LInnn-2.b", "Lnnn", or any other + string, as necessary. This is accomplished via the ASM_OUTPUT_CASE_END + macro. */ + +#undef ASM_OUTPUT_CASE_END +#define ASM_OUTPUT_CASE_END(FILE,NUM,TABLE) \ + if (RTX_INTEGRATED_P (TABLE)) \ + asm_fprintf (FILE, "%s %LLD%d,%LL%d-%LLI%d-2.b\n", \ + SET_ASM_OP, (NUM), (NUM), (NUM)) + +/* This is how to output an element of a case-vector that is relative. */ + +#undef ASM_OUTPUT_ADDR_DIFF_ELT +#define ASM_OUTPUT_ADDR_DIFF_ELT(FILE, VALUE, REL) \ + asm_fprintf (FILE, "%s %LL%d-%LL%d\n", WORD_ASM_OP, VALUE, REL) + +/* Currently, JUMP_TABLES_IN_TEXT_SECTION must be defined in order to + keep switch tables in the text section. */ + +#define JUMP_TABLES_IN_TEXT_SECTION 1 + +/* 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. */ + +#undef ASM_FORMAT_PRIVATE_NAME +#define ASM_FORMAT_PRIVATE_NAME(OUTPUT, NAME, LABELNO) \ +( (OUTPUT) = (char *) alloca (strlen ((NAME)) + 10), \ + sprintf ((OUTPUT), ASM_PN_FORMAT, (NAME), (LABELNO))) + -- 2.30.2