gcc/config/m68k/sgs.h

   1 /* Definitions of target machine for GNU compiler for m68k targets using
   2    assemblers derived from AT&T "SGS" releases.
   3    Copyright (C) 1991, 1993, 1996, 2000, 2003 Free Software Foundation, Inc.
   4    Written by Fred Fish (fnf@cygnus.com)
   5
   6 This file is part of GCC.
   7
   8 GCC is free software; you can redistribute it and/or modify
   9 it under the terms of the GNU General Public License as published by
  10 the Free Software Foundation; either version 2, or (at your option)
  11 any later version.
  12
  13 GCC is distributed in the hope that it will be useful,
  14 but WITHOUT ANY WARRANTY; without even the implied warranty of
  15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16 GNU General Public License for more details.
  17
  18 You should have received a copy of the GNU General Public License
  19 along with GCC; see the file COPYING.  If not, write to
  20 the Free Software Foundation, 59 Temple Place - Suite 330,
  21 Boston, MA 02111-1307, USA.  */
  22
  23 #undef INT_OP_GROUP
  24 #define INT_OP_GROUP INT_OP_STANDARD
  25
  26 /* SGS specific assembler pseudo ops.  */
  27
  28 #define SPACE_ASM_OP            "\t.space "
  29 #define ALIGN_ASM_OP            "\t.align "
  30 #undef GLOBAL_ASM_OP
  31 #define GLOBAL_ASM_OP           "\t.global "
  32 #define SWBEG_ASM_OP            "\t.swbeg "
  33 #define SET_ASM_OP              "\t.set "
  34
  35 #define ASM_PN_FORMAT           "%s_%lu"        /* Format for private names */
  36
  37 /* Here are four prefixes that are used by asm_fprintf to
  38    facilitate customization for alternate assembler syntaxes.
  39    Machines with no likelihood of an alternate syntax need not
  40    define these and need not use asm_fprintf.  */
  41
  42 /* The prefix for register names.  Note that REGISTER_NAMES
  43    is supposed to include this prefix. Also note that this is NOT an
  44    fprintf format string, it is a literal string */
  45
  46 #undef REGISTER_PREFIX
  47 #define REGISTER_PREFIX "%"
  48
  49 /* The prefix for local (compiler generated) labels.
  50    These labels will not appear in the symbol table.  */
  51
  52 #undef LOCAL_LABEL_PREFIX
  53 #define LOCAL_LABEL_PREFIX "."
  54
  55 /* The prefix to add to user-visible assembler symbols.  */
  56
  57 #undef USER_LABEL_PREFIX
  58 #define USER_LABEL_PREFIX ""
  59
  60 /* The prefix for immediate operands.  */
  61
  62 #undef IMMEDIATE_PREFIX
  63 #define IMMEDIATE_PREFIX "&"
  64
  65 /* How to refer to registers in assembler output.
  66    This sequence is indexed by compiler's hard-register-number.
  67    Motorola format uses different register names than defined in m68k.h.
  68    We also take this chance to convert 'a6' to 'fp' */
  69
  70 #undef REGISTER_NAMES
  71
  72 #define REGISTER_NAMES \
  73 {"%d0",   "%d1",   "%d2",   "%d3",   "%d4",   "%d5",   "%d6",   "%d7",       \
  74  "%a0",   "%a1",   "%a2",   "%a3",   "%a4",   "%a5",   "%fp",   "%sp",       \
  75  "%fp0",  "%fp1",  "%fp2",  "%fp3",  "%fp4",  "%fp5",  "%fp6",  "%fp7", "argptr" }
  76
  77 /* This is how to output an assembler line that says to advance the
  78    location counter to a multiple of 2**LOG bytes.  */
  79
  80 #undef ASM_OUTPUT_ALIGN
  81 #define ASM_OUTPUT_ALIGN(FILE,LOG)                              \
  82 do {                                                            \
  83   if ((LOG) > 0)                                                \
  84     fprintf ((FILE), "%s%u\n", ALIGN_ASM_OP, 1 << (LOG));       \
  85   else if ((LOG) > 31)                                          \
  86     abort ();                                                   \
  87 } while (0)
  88
  89 /* The routine used to output null terminated string literals.  We cannot
  90    use the ".string" pseudo op, because it silently truncates strings to
  91    1023 bytes.  There is no "partial string op" which works like ".string"
  92    but doesn't append a null byte, so we can't chop the input string up
  93    into small pieces and use that.  Our only remaining alternative is to
  94    output the string one byte at a time.  */
  95
  96 #define ASM_OUTPUT_ASCII(FILE,PTR,LEN)                          \
  97 do {                                                            \
  98   register size_t sp = 0, limit = (LEN);                        \
  99   fputs (integer_asm_op (1, TRUE), (FILE));                     \
 100   do {                                                          \
 101     int ch = (PTR)[sp];                                         \
 102     if (ch > ' ' && ! (ch & 0x80) && ch != '\\')                \
 103       {                                                         \
 104         fprintf ((FILE), "'%c", ch);                            \
 105       }                                                         \
 106     else                                                        \
 107       {                                                         \
 108         fprintf ((FILE), "0x%x", ch);                           \
 109       }                                                         \
 110     if (++sp < limit)                                           \
 111       {                                                         \
 112         if ((sp % 10) == 0)                                     \
 113           {                                                     \
 114             fprintf ((FILE), "\n%s", integer_asm_op (1, TRUE)); \
 115           }                                                     \
 116         else                                                    \
 117           {                                                     \
 118             putc (',', (FILE));                                 \
 119           }                                                     \
 120       }                                                         \
 121   } while (sp < limit);                                         \
 122   putc ('\n', (FILE));                                          \
 123 } while (0)
 124
 125
 126 /* SGS based assemblers don't understand #NO_APP and #APP, so just don't
 127    bother emitting them.  */
 128
 129 #undef ASM_APP_ON
 130 #define ASM_APP_ON ""
 131
 132 #undef ASM_APP_OFF
 133 #define ASM_APP_OFF ""
 134
 135 /* When using SGS derived assemblers, change the "MIT" or "MOTOROLA"
 136    to "SGS/AT&T"  */
 137
 138 #undef TARGET_VERSION
 139 #define TARGET_VERSION fprintf (stderr, " (68k, SGS/AT&T syntax)");
 140
 141 /* Use proper assembler syntax for these macros.  */
 142 #undef ASM_OUTPUT_REG_PUSH
 143 #define ASM_OUTPUT_REG_PUSH(FILE,REGNO)  \
 144   asm_fprintf (FILE, "\t%Omove.l %s,-(%Rsp)\n", reg_names[REGNO])
 145
 146 #undef ASM_OUTPUT_REG_POP
 147 #define ASM_OUTPUT_REG_POP(FILE,REGNO)  \
 148   asm_fprintf (FILE, "\t%Omove.l (%Rsp)+,%s\n", reg_names[REGNO])
 149
 150 #undef ASM_OUTPUT_FLOAT_OPERAND
 151 #define ASM_OUTPUT_FLOAT_OPERAND(CODE,FILE,VALUE)       \
 152   do { long l;                                          \
 153        REAL_VALUE_TO_TARGET_SINGLE (VALUE, l);          \
 154        asm_fprintf ((FILE), "%I0x%lx", l);              \
 155      } while (0)
 156
 157 #undef ASM_OUTPUT_DOUBLE_OPERAND
 158 #define ASM_OUTPUT_DOUBLE_OPERAND(FILE,VALUE)           \
 159   do { long l[2];                                       \
 160        REAL_VALUE_TO_TARGET_DOUBLE (VALUE, l);          \
 161        asm_fprintf ((FILE), "%I0x%lx%08lx", l[0], l[1]);\
 162      } while (0)
 163
 164 /* How to output a block of SIZE zero bytes.  Note that the `space' pseudo,
 165    when used in the text segment, causes SGS assemblers to output nop insns
 166    rather than 0s, so we set ASM_NO_SKIP_IN_TEXT to prevent this.  */
 167
 168 #define ASM_NO_SKIP_IN_TEXT 1
 169
 170 #undef ASM_OUTPUT_SKIP
 171 #define ASM_OUTPUT_SKIP(FILE,SIZE)  \
 172   fprintf (FILE, "%s%u\n", SPACE_ASM_OP, (int)(SIZE))
 173 \f
 174 /* Translate Motorola opcodes such as `jbeq' into SGS opcodes such
 175    as `beq.w'.
 176    Delete the `e' in `move...' and `fmove'.
 177    Change `ftst' to `ftest'.
 178    Change `fbne' to `fbneq'
 179    Change `fsne' to `fsneq'
 180    Change `divsl' to `tdivs' (32/32 -> 32r:32q)
 181    Change `divul' to `tdivu' (32/32 -> 32r:32q)
 182    Optionally change swap to swap.w.
 183    */
 184
 185 #ifdef SGS_SWAP_W
 186 #define ASM_OUTPUT_OPCODE(FILE, PTR)                    \
 187 {                                                       \
 188   extern int flag_pic;                                  \
 189   if (!strncmp ((PTR), "jbsr", 4))                      \
 190     { if (flag_pic)                                     \
 191         fprintf ((FILE), "bsr");                        \
 192       else                                              \
 193         fprintf ((FILE), "jsr");                        \
 194     (PTR) += 4; }                                       \
 195   else if ((PTR)[0] == 'j' && (PTR)[1] == 'b')          \
 196     { ++(PTR);                                          \
 197       while (*(PTR) != ' ')                             \
 198         { putc (*(PTR), (FILE)); ++(PTR); }             \
 199       fprintf ((FILE), ".w"); }                         \
 200   else if ((PTR)[0] == 's')                             \
 201     {                                                   \
 202       if (!strncmp ((PTR), "swap", 4))                  \
 203         { fprintf ((FILE), "swap.w"); (PTR) += 4; }     \
 204     }                                                   \
 205 /* FMOVE ==> FMOV, (and F%& F%$ translations) */        \
 206   else if ((PTR)[0] == 'f')                             \
 207     {                                                   \
 208       if (!strncmp ((PTR), "fmove", 5))                 \
 209         { fprintf ((FILE), "fmov"); (PTR) += 5; }       \
 210       else if (!strncmp ((PTR), "ftst", 4))             \
 211         { fprintf ((FILE), "ftest"); (PTR) += 4; }      \
 212       else if (!strncmp ((PTR), "fbne", 4))             \
 213         { fprintf ((FILE), "fbneq"); (PTR) += 4; }      \
 214       else if (!strncmp ((PTR), "fsne", 4))             \
 215         { fprintf ((FILE), "fsneq"); (PTR) += 4; }      \
 216       else if (!strncmp ((PTR), "f%$move", 7))          \
 217         { (PTR) += 7;                                   \
 218           if (TARGET_68040_ONLY)                        \
 219             fprintf ((FILE), "fsmov");                  \
 220           else fprintf ((FILE), "fmov"); }              \
 221       else if (!strncmp ((PTR), "f%&move", 7))          \
 222         { (PTR) += 7;                                   \
 223           if (TARGET_68040_ONLY)                        \
 224             fprintf ((FILE), "fdmov");                  \
 225           else fprintf ((FILE), "fmov"); }              \
 226     }                                                   \
 227 /* MOVE, MOVEA, MOVEQ, MOVEC ==> MOV    */              \
 228   else if ((PTR)[0] == 'm' && (PTR)[1] == 'o'           \
 229            && (PTR)[2] == 'v' && (PTR)[3] == 'e')       \
 230     { fprintf ((FILE), "mov"); (PTR) += 4;              \
 231        if ((PTR)[0] == 'q' || (PTR)[0] == 'a'           \
 232            || (PTR)[0] == 'c') (PTR)++; }               \
 233 /* SUB, SUBQ, SUBA, SUBI ==> SUB */                     \
 234   else if ((PTR)[0] == 's' && (PTR)[1] == 'u'           \
 235            && (PTR)[2] == 'b')                          \
 236     { fprintf ((FILE), "sub"); (PTR) += 3;              \
 237        if ((PTR)[0] == 'q' || (PTR)[0] == 'i'           \
 238            || (PTR)[0] == 'a') (PTR)++; }               \
 239 /* CMP, CMPA, CMPI, CMPM ==> CMP        */              \
 240   else if ((PTR)[0] == 'c' && (PTR)[1] == 'm'           \
 241            && (PTR)[2] == 'p')                          \
 242     { fprintf ((FILE), "cmp"); (PTR) += 3;              \
 243        if ((PTR)[0] == 'a' || (PTR)[0] == 'i'           \
 244            || (PTR)[0] == 'm') (PTR)++; }               \
 245 /* DIVSL ==> TDIVS */                                   \
 246   else if ((PTR)[0] == 'd' && (PTR)[1] == 'i'           \
 247            && (PTR)[2] == 'v' && (PTR)[3] == 's'        \
 248            && (PTR)[4] == 'l')                          \
 249     { fprintf ((FILE), "tdivs"); (PTR) += 5; }          \
 250 /* DIVUL ==> TDIVU */                                   \
 251   else if ((PTR)[0] == 'd' && (PTR)[1] == 'i'           \
 252            && (PTR)[2] == 'v' && (PTR)[3] == 'u'        \
 253            && (PTR)[4] == 'l')                          \
 254     { fprintf ((FILE), "tdivu"); (PTR) += 5; }          \
 255 }
 256
 257 #else /* not SGS_SWAP_W */
 258
 259 #define ASM_OUTPUT_OPCODE(FILE, PTR)                    \
 260 {                                                       \
 261   extern int flag_pic;                                  \
 262   if (!strncmp ((PTR), "jbsr", 4))                      \
 263     { if (flag_pic)                                     \
 264         fprintf ((FILE), "bsr");                        \
 265       else                                              \
 266         fprintf ((FILE), "jsr");                        \
 267     (PTR) += 4; }                                       \
 268   else if ((PTR)[0] == 'j' && (PTR)[1] == 'b')          \
 269     { ++(PTR);                                          \
 270       while (*(PTR) != ' ')                             \
 271         { putc (*(PTR), (FILE)); ++(PTR); }             \
 272       fprintf ((FILE), ".w"); }                         \
 273 /* FMOVE ==> FMOV, (and F%& F%$ translations) */        \
 274   else if ((PTR)[0] == 'f')                             \
 275     {                                                   \
 276       if (!strncmp ((PTR), "fmove", 5))                 \
 277         { fprintf ((FILE), "fmov"); (PTR) += 5; }       \
 278       else if (!strncmp ((PTR), "ftst", 4))             \
 279         { fprintf ((FILE), "ftest"); (PTR) += 4; }      \
 280       else if (!strncmp ((PTR), "fbne", 4))             \
 281         { fprintf ((FILE), "fbneq"); (PTR) += 4; }      \
 282       else if (!strncmp ((PTR), "fsne", 4))             \
 283         { fprintf ((FILE), "fsneq"); (PTR) += 4; }      \
 284       else if (!strncmp ((PTR), "f%$move", 7))          \
 285         { (PTR) += 7;                                   \
 286           if (TARGET_68040_ONLY)                        \
 287             fprintf ((FILE), "fsmov");                  \
 288           else fprintf ((FILE), "fmov"); }              \
 289       else if (!strncmp ((PTR), "f%&move", 7))          \
 290         { (PTR) += 7;                                   \
 291           if (TARGET_68040_ONLY)                        \
 292             fprintf ((FILE), "fdmov");                  \
 293           else fprintf ((FILE), "fmov"); }              \
 294     }                                                   \
 295 /* MOVE, MOVEA, MOVEQ, MOVEC ==> MOV    */              \
 296   else if ((PTR)[0] == 'm' && (PTR)[1] == 'o'           \
 297            && (PTR)[2] == 'v' && (PTR)[3] == 'e')       \
 298     { fprintf ((FILE), "mov"); (PTR) += 4;              \
 299        if ((PTR)[0] == 'q' || (PTR)[0] == 'a'           \
 300            || (PTR)[0] == 'c') (PTR)++; }               \
 301 /* SUB, SUBQ, SUBA, SUBI ==> SUB */                     \
 302   else if ((PTR)[0] == 's' && (PTR)[1] == 'u'           \
 303            && (PTR)[2] == 'b')                          \
 304     { fprintf ((FILE), "sub"); (PTR) += 3;              \
 305        if ((PTR)[0] == 'q' || (PTR)[0] == 'i'           \
 306            || (PTR)[0] == 'a') (PTR)++; }               \
 307 /* CMP, CMPA, CMPI, CMPM ==> CMP        */              \
 308   else if ((PTR)[0] == 'c' && (PTR)[1] == 'm'           \
 309            && (PTR)[2] == 'p')                          \
 310     { fprintf ((FILE), "cmp"); (PTR) += 3;              \
 311        if ((PTR)[0] == 'a' || (PTR)[0] == 'i'           \
 312            || (PTR)[0] == 'm') (PTR)++; }               \
 313 /* DIVSL ==> TDIVS */                                   \
 314   else if ((PTR)[0] == 'd' && (PTR)[1] == 'i'           \
 315            && (PTR)[2] == 'v' && (PTR)[3] == 's'        \
 316            && (PTR)[4] == 'l')                          \
 317     { fprintf ((FILE), "tdivs"); (PTR) += 5; }          \
 318 /* DIVUL ==> TDIVU */                                   \
 319   else if ((PTR)[0] == 'd' && (PTR)[1] == 'i'           \
 320            && (PTR)[2] == 'v' && (PTR)[3] == 'u'        \
 321            && (PTR)[4] == 'l')                          \
 322     { fprintf ((FILE), "tdivu"); (PTR) += 5; }          \
 323 }
 324
 325 #endif /* not SGS_SWAP_W */
 326 \f
 327 /* This macro outputs the label at the start of a switch table.  The
 328    ".swbeg <N>" is an assembler directive that causes the switch table
 329    size to be inserted into the object code so that disassemblers, for
 330    example, can identify that it is the start of a switch table.  */
 331
 332 #define ASM_OUTPUT_BEFORE_CASE_LABEL(FILE,PREFIX,NUM,TABLE)             \
 333   fprintf ((FILE), "%s&%d\n", SWBEG_ASM_OP, XVECLEN (PATTERN (TABLE), 1));
 334
 335 #define ASM_OUTPUT_CASE_LABEL(FILE,PREFIX,NUM,TABLE)                    \
 336   do {                                                                  \
 337     ASM_OUTPUT_BEFORE_CASE_LABEL((FILE),(PREFIX),(NUM),(TABLE));        \
 338     (*targetm.asm_out.internal_label)((FILE),(PREFIX),(NUM));                   \
 339   } while (0)
 340
 341 /* At end of a switch table, define LDnnn iff the symbol LInnn was defined.
 342    Some SGS assemblers have a bug such that "Lnnn-LInnn-2.b(pc,d0.l*2)"
 343    fails to assemble.  Luckily "LDnnn(pc,d0.l*2)" produces the results
 344    we want.  This difference can be accommodated by making the assembler
 345    define such "LDnnn" to be either "Lnnn-LInnn-2.b", "Lnnn", or any other
 346    string, as necessary.  This is accomplished via the ASM_OUTPUT_CASE_END
 347    macro.  */
 348
 349 #undef ASM_OUTPUT_CASE_END
 350 #define ASM_OUTPUT_CASE_END(FILE,NUM,TABLE)             \
 351 { if (switch_table_difference_label_flag)               \
 352     asm_fprintf (FILE, "%s%LLD%d,%LL%d-%LLI%d-2.b\n",\
 353                  SET_ASM_OP, (NUM), (NUM), (NUM));      \
 354   switch_table_difference_label_flag = 0; }
 355
 356 extern int switch_table_difference_label_flag;
 357
 358 /* This is how to output an element of a case-vector that is relative.  */
 359
 360 #undef ASM_OUTPUT_ADDR_DIFF_ELT
 361 #define ASM_OUTPUT_ADDR_DIFF_ELT(FILE, BODY, VALUE, REL)        \
 362   asm_fprintf (FILE, "%s%LL%d-%LL%d\n", integer_asm_op (2, TRUE), VALUE, REL)
 363
 364 /* Currently, JUMP_TABLES_IN_TEXT_SECTION must be defined in order to
 365    keep switch tables in the text section.  */
 366
 367 #define JUMP_TABLES_IN_TEXT_SECTION 1