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