gcc/config/m68k/mot3300.h

   1 /* Definitions of target machine for GNU compiler,
   2    SysV68 Motorola 3300 Delta Series.
   3    Copyright (C) 1987, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000
   4    Free Software Foundation, Inc.
   5    Contributed by Abramo and Roberto Bagnara (bagnara@dipisa.di.unipi.it)
   6    based on Alex Crain's 3B1 definitions.
   7    Maintained by Philippe De Muyter (phdm@info.ucl.ac.be).
   8    Support for GAS added by merging mot3300g.h into this file by
   9    Manfred Hollstein (manfred@lts.sel.alcatel.de).
  10
  11 This file is part of GNU CC.
  12
  13 GNU CC is free software; you can redistribute it and/or modify
  14 it under the terms of the GNU General Public License as published by
  15 the Free Software Foundation; either version 2, or (at your option)
  16 any later version.
  17
  18 GNU CC is distributed in the hope that it will be useful,
  19 but WITHOUT ANY WARRANTY; without even the implied warranty of
  20 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21 GNU General Public License for more details.
  22
  23 You should have received a copy of the GNU General Public License
  24 along with GNU CC; see the file COPYING.  If not, write to
  25 the Free Software Foundation, 59 Temple Place - Suite 330,
  26 Boston, MA 02111-1307, USA.  */
  27
  28 #ifndef USE_GAS
  29 #define MOTOROLA                /* Use Motorola syntax rather than "MIT" */
  30 #define MOTOROLA_BSR            /* Use Span-dependent optimized bsr */
  31 #define SGS                     /* Uses SGS assembler */
  32 #define SGS_CMP_ORDER           /* Takes cmp operands in reverse order */
  33 #define SGS_SWAP_W              /* Use swap.w rather than just plain swap */
  34 #endif /* USE_GAS */
  35
  36 #define NO_DOLLAR_IN_LABEL
  37 #define NO_DOT_IN_LABEL
  38
  39 #include "m68k/m68k.h"
  40
  41 /* GDB expects a slightly different marker on this target.  */
  42 #define STABS_GCC_MARKER "gcc2_compiled%"
  43
  44 /* See m68k.h.  0407 means 68020-68040.  */
  45
  46 #ifndef TARGET_DEFAULT
  47 #define TARGET_DEFAULT (MASK_68040|MASK_BITFIELD|MASK_68881|MASK_68020)
  48 #endif
  49
  50 /* -m[c]6800 requires special flag to the assembler.  */
  51
  52 #undef ASM_SPEC
  53 #ifndef USE_GAS
  54 #define ASM_SPEC "%{m68000:-p 000}%{mc68000:-p 000}"
  55 #else /* USE_GAS */
  56 #define ASM_SPEC \
  57   "%{v:-v} %{m68000:-mc68000}%{mc68000:-mc68000}%{!mc68000:%{!m68000:-mc68020}}"
  58 #endif /* USE_GAS */
  59
  60 /* NYI: FP= is equivalent to -msoft-float  */
  61
  62 /* We use /lib/libp/lib* when profiling.  */
  63
  64 /* NYI: if FP=M68881U library is -lc881u  */
  65 /* NYI: if FP= library is -lc.  */
  66 /* Default for us: FP=M68881 library is -lc881  */
  67 #undef LIB_SPEC
  68 #define LIB_SPEC "%{!shlib:%{!msoft-float:-lc881}%{msoft-float:-lc}}"
  69 #ifdef CROSS_COMPILE
  70 #ifndef USE_GLD
  71 #define DEFAULT_A_OUT_NAME "m68ka.out"
  72 #endif
  73 #endif
  74
  75 #ifdef USE_GLD
  76 #undef LINK_SPEC
  77 #define LINK_SPEC "%{v:-v}"
  78 #endif /* defined (USE_GLD) */
  79
  80 #define CPP_SPEC "%{!msoft-float:-D__HAVE_68881__}\
  81 %{!mc68000:%{!m68000: -D__mc68020__}}"
  82
  83 /* Shared libraries need to use crt0s.o  */
  84
  85 #undef STARTFILE_SPEC
  86 #ifdef CROSS_COMPILE
  87 #define STARTFILE_SPEC \
  88   "%{!shlib:%{pg:mcrt0.o%s}%{!pg:%{p:mcrt0.o%s}%{!p:crt0.o%s}}}\
  89    %{shlib:crt0s.o%s shlib.ifile%s} %{p:-L"TOOLDIR_BASE_PREFIX DEFAULT_TARGET_MACHINE"/lib/libp} %{pg:-L"TOOLDIR_BASE_PREFIX DEFAULT_TARGET_MACHINE"/lib/libp} "
  90 #else /* CROSS_COMPILE */
  91 #define STARTFILE_SPEC \
  92   "%{!shlib:%{pg:mcrt0.o%s}%{!pg:%{p:mcrt0.o%s}%{!p:crt0.o%s}}}\
  93    %{shlib:crt0s.o%s shlib.ifile%s} %{p:-L/usr/lib/libp} %{pg:-L/usr/lib/libp} "
  94 #endif /* CROSS_COMPILE */
  95
  96 /* Generate calls to memcpy, memcmp and memset.  */
  97
  98 #define TARGET_MEM_FUNCTIONS
  99
 100 /* size_t is unsigned int.  */
 101
 102 #define SIZE_TYPE "unsigned int"
 103
 104 /* We need POSIX/XOPEN symbols; otherwise building libio will fail.  */
 105 #define ADD_MISSING_POSIX 1
 106 #define ADD_MISSING_XOPEN 1
 107
 108 /* Every structure or union's size must be a multiple of 2 bytes.  */
 109
 110 #define STRUCTURE_SIZE_BOUNDARY 16
 111
 112 /* Follow sysV68 cc regarding alignment imposed by char:0; */
 113
 114 #define PCC_BITFIELD_TYPE_MATTERS 1
 115
 116 /* Allocation boundary (in *bits*) for storing arguments in argument list.  */
 117 /* Be compatible with native compiler.  */
 118 #undef PARM_BOUNDARY
 119 #define PARM_BOUNDARY 16
 120
 121 /* cpp has to support a #sccs directive for the /usr/include files */
 122
 123 #define SCCS_DIRECTIVE
 124
 125 /* Make output for SDB.  */
 126
 127 #define SDB_DEBUGGING_INFO
 128
 129 #undef REGISTER_PREFIX
 130 #define REGISTER_PREFIX "%"
 131
 132 #undef LOCAL_LABEL_PREFIX
 133 #ifdef USE_GAS
 134 #define LOCAL_LABEL_PREFIX ".L"
 135 #else
 136 #define LOCAL_LABEL_PREFIX "L%"
 137 #endif
 138
 139 #undef USER_LABEL_PREFIX
 140
 141 #undef IMMEDIATE_PREFIX
 142 #define IMMEDIATE_PREFIX "&"
 143
 144 #undef REGISTER_NAMES
 145 #define REGISTER_NAMES \
 146 {"%d0", "%d1", "%d2", "%d3", "%d4", "%d5", "%d6", "%d7",        \
 147  "%a0", "%a1", "%a2", "%a3", "%a4", "%a5", "%fp", "%sp",        \
 148  "%fp0", "%fp1", "%fp2", "%fp3", "%fp4", "%fp5", "%fp6", "%fp7"}
 149
 150 #undef FUNCTION_EXTRA_EPILOGUE
 151 #define FUNCTION_EXTRA_EPILOGUE(FILE, SIZE)                             \
 152 { if (current_function_returns_pointer                                  \
 153       && ! find_equiv_reg (0, get_last_insn (), 0, 0, 0, 8, Pmode))     \
 154     asm_fprintf (FILE, "\tmov.l %Ra0,%Rd0\n"); }
 155
 156 #undef FUNCTION_PROFILER
 157 #define FUNCTION_PROFILER(FILE, LABEL_NO)       \
 158     asm_fprintf (FILE, "\tmov.l %I%LLP%d,%Ra0\n\tjsr mcount%%\n", (LABEL_NO))
 159
 160 /* This is how to output an insn to push a register on the stack.
 161    It need not be very fast code.  */
 162
 163 #undef ASM_OUTPUT_REG_PUSH
 164 #define ASM_OUTPUT_REG_PUSH(FILE,REGNO)  \
 165   fprintf (FILE, "\tmov.l %s,-(%%sp)\n", reg_names[REGNO])
 166
 167 /* This is how to output an insn to pop a register from the stack.
 168    It need not be very fast code.  */
 169
 170 #undef ASM_OUTPUT_REG_POP
 171 #define ASM_OUTPUT_REG_POP(FILE,REGNO)  \
 172   fprintf (FILE, "\tmov.l (%%sp)+,%s\n", reg_names[REGNO])
 173
 174 #ifndef USE_GAS
 175
 176 #undef ASM_APP_ON
 177 #define ASM_APP_ON ""
 178
 179 #undef ASM_APP_OFF
 180 #define ASM_APP_OFF ""
 181
 182 #undef TEXT_SECTION_ASM_OP
 183 #define TEXT_SECTION_ASM_OP "\ttext"
 184 #undef DATA_SECTION_ASM_OP
 185 #define DATA_SECTION_ASM_OP "\tdata"
 186 #undef ASCII_DATA_ASM_OP
 187 #define ASCII_DATA_ASM_OP "\tbyte\t"
 188
 189 #undef SET_ASM_OP
 190 #define SET_ASM_OP "\tset\t"
 191
 192 #endif /* USE_GAS */
 193
 194 #ifdef USE_GLD
 195 /* Support the ctors and dtors sections for g++.  */
 196
 197 #define CTORS_SECTION_ASM_OP    "\t.section\t.ctors,\"x\""
 198 #define DTORS_SECTION_ASM_OP    "\t.section\t.dtors,\"x\""
 199 #endif /* defined (USE_GLD) */
 200
 201 /* The file command should always begin the output.  */
 202
 203 #undef ASM_FILE_START
 204 #ifndef USE_GAS
 205 #define ASM_FILE_START(FILE) \
 206   output_file_directive ((FILE), main_input_filename)
 207 #else /* USE_GAS */
 208 #define ASM_FILE_START(FILE) \
 209     { \
 210        fprintf (FILE, "%s", ASM_APP_OFF); \
 211        output_file_directive ((FILE), main_input_filename); \
 212     }
 213 #endif /* USE_GAS */
 214
 215 /* Names to predefine in the preprocessor for this target machine.  */
 216 /* ihnp4!lmayk!lgm@eddie.mit.edu says mc68000 and m68k should not be here,
 217    on the other hand I don't care what he says.  */
 218
 219 #undef CPP_PREDEFINES
 220 #define CPP_PREDEFINES "-Dm68k -Dunix -DsysV68 -D__motorola__ -Asystem=unix -Asystem=svr3 -Acpu=m68k -Amachine=m68k"
 221
 222 #undef TARGET_VERSION
 223 #ifndef USE_GAS
 224 #define TARGET_VERSION fprintf (stderr, " (68k, SGS/AT&T sysV68 syntax)");
 225 #endif /* USE_GAS */
 226
 227 /* This will return small structs in d0.  */
 228 #define RETURN_IN_MEMORY(type) \
 229   ((TYPE_MODE (type) == BLKmode) \
 230    || (AGGREGATE_TYPE_P (type) \
 231        && GET_MODE_SIZE (TYPE_MODE (type)) > UNITS_PER_WORD))
 232
 233 /* Don't default to pcc-struct-return, because we have already specified
 234    exactly how to return structures in the RETURN_IN_MEMORY macro.  */
 235 #define DEFAULT_PCC_STRUCT_RETURN 0
 236
 237 /* If TARGET_68881, return SF and DF values in fp0 instead of d0.  */
 238 /* NYI: If FP=M68881U return SF and DF values in d0.  */
 239 /* NYI: If -mold return pointer in a0 and d0 */
 240
 241 #undef FUNCTION_VALUE
 242 /* sysV68 (brain damaged) cc convention support.  */
 243 #define FUNCTION_VALUE(VALTYPE,FUNC) \
 244   (TREE_CODE (VALTYPE) == REAL_TYPE && TARGET_68881     \
 245    ? gen_rtx_REG (TYPE_MODE (VALTYPE), 16)              \
 246    : (POINTER_TYPE_P (VALTYPE)                          \
 247       ? gen_rtx_REG (TYPE_MODE (VALTYPE), 8)            \
 248       : gen_rtx_REG (TYPE_MODE (VALTYPE), 0)))
 249
 250 /* If TARGET_68881, SF and DF values are returned in fp0 instead of d0.  */
 251
 252 /* Is LIBCALL_VALUE never called with a pointer ? */
 253 #undef LIBCALL_VALUE
 254 #define LIBCALL_VALUE(MODE)                                     \
 255  gen_rtx_REG ((MODE),                                           \
 256               ((TARGET_68881                                    \
 257                 && ((MODE) == SFmode || (MODE) == DFmode        \
 258                     || (MODE) == XFmode))                       \
 259                ? 16 : 0))
 260
 261 /* 1 if N is a possible register number for a function value.
 262    d0 may be used, and fp0 as well if -msoft-float is not specified.  */
 263
 264 #undef FUNCTION_VALUE_REGNO_P
 265 /* sysV68 (brain damaged) cc convention support.  */
 266 #define FUNCTION_VALUE_REGNO_P(N) \
 267  ((N) == 0 || (N) == 8 || (TARGET_68881 && (N) == 16))
 268
 269 /* Define this to be true when FUNCTION_VALUE_REGNO_P is true for
 270    more than one register.  */
 271
 272 #undef NEEDS_UNTYPED_CALL
 273 #define NEEDS_UNTYPED_CALL 1
 274
 275 #ifndef USE_GAS
 276 /* This is the command to make the user-level label named NAME
 277    defined for reference from other files.  */
 278
 279 #undef GLOBAL_ASM_OP
 280 #define GLOBAL_ASM_OP "\tglobal\t"
 281 #endif /* USE_GAS */
 282
 283 /* Store in OUTPUT a string (made with alloca) containing
 284    an assembler-name for a local static variable named NAME.
 285    LABELNO is an integer which is different for each call.  */
 286
 287 #undef ASM_FORMAT_PRIVATE_NAME
 288 #define ASM_FORMAT_PRIVATE_NAME(OUTPUT, NAME, LABELNO)  \
 289 ( (OUTPUT) = (char *) alloca (strlen ((NAME)) + 12),    \
 290   sprintf ((OUTPUT), "%s_%%%d", (NAME), (LABELNO)))
 291
 292 #undef INT_OP_GROUP
 293 #ifdef USE_GAS
 294 #define INT_OP_GROUP INT_OP_STANDARD
 295 #else
 296 #define INT_OP_GROUP INT_OP_NO_DOT
 297 #endif
 298
 299 /* This is how to output an assembler line
 300    that says to advance the location counter
 301    to a multiple of 2**LOG bytes.  */
 302
 303 #ifndef USE_GAS
 304 #define ALIGN_ASM_OP    "\teven"
 305 #else /* USE_GAS */
 306 #define ALIGN_ASM_OP    "\t.even"
 307 #endif /* USE_GAS */
 308
 309 #undef ASM_OUTPUT_ALIGN
 310 #define ASM_OUTPUT_ALIGN(FILE,LOG)      \
 311   if ((LOG) >= 1)                       \
 312     fprintf (FILE, "%s\n", ALIGN_ASM_OP);
 313
 314 #ifndef USE_GAS
 315 #define SKIP_ASM_OP     "\tspace\t"
 316 #else /* USE_GAS */
 317 #define SKIP_ASM_OP     "\t.skip\t"
 318 #endif /* USE_GAS */
 319
 320 #undef ASM_OUTPUT_SKIP
 321 #define ASM_OUTPUT_SKIP(FILE,SIZE)  \
 322   fprintf (FILE, "%s%u\n", SKIP_ASM_OP, (SIZE))
 323
 324 /* Can't use ASM_OUTPUT_SKIP in text section.  */
 325
 326 #define ASM_NO_SKIP_IN_TEXT 1
 327
 328 /* The beginnings of sdb support...  */
 329
 330 /* Undefining these will allow `output_file_directive' (in toplev.c)
 331    to default to the right thing.  */
 332 #undef ASM_OUTPUT_MAIN_SOURCE_FILENAME
 333 #ifndef USE_GAS
 334 #define ASM_OUTPUT_SOURCE_FILENAME(FILE, FILENAME) \
 335   do {  fprintf (FILE, "\tfile\t");             \
 336         output_quoted_string (FILE, FILENAME);  \
 337         fprintf (FILE, "\n");                   \
 338   } while (0)
 339
 340 #undef ASM_OUTPUT_SOURCE_LINE
 341 #define ASM_OUTPUT_SOURCE_LINE(FILE, LINENO)    \
 342   fprintf (FILE, "\tln\t%d\n",                  \
 343            (sdb_begin_function_line             \
 344             ? (LINENO) - sdb_begin_function_line : 1))
 345
 346 /* Yet another null terminated string format.  */
 347
 348 #undef ASM_OUTPUT_ASCII
 349 #define ASM_OUTPUT_ASCII(FILE,PTR,LEN) \
 350   do { register size_t sp = 0, lp = 0, limit = (LEN);           \
 351     fputs (integer_asm_op (1, TRUE), (FILE));                   \
 352   loop:                                                         \
 353     if ((PTR)[sp] > ' ' && ! ((PTR)[sp] & 0x80) && (PTR)[sp] != '\\')   \
 354       { lp += 3;                                                \
 355         fprintf ((FILE), "'%c", (PTR)[sp]); }                   \
 356     else                                                        \
 357       { lp += 5;                                                \
 358         fprintf ((FILE), "0x%x", (PTR)[sp]); }                  \
 359     if (++sp < limit)                                           \
 360       { if (lp > 60)                                            \
 361           { lp = 0;                                             \
 362             fprintf ((FILE), "\n%s", ASCII_DATA_ASM_OP); }      \
 363         else                                                    \
 364           putc (',', (FILE));                                   \
 365         goto loop; }                                            \
 366     putc ('\n', (FILE)); } while (0)
 367 #endif /* USE_GAS */
 368
 369 #ifndef USE_GAS
 370 /* Output a float value (represented as a C double) as an immediate operand.
 371    This macro is a 68k-specific macro.  */
 372
 373 #undef ASM_OUTPUT_FLOAT_OPERAND
 374 #define ASM_OUTPUT_FLOAT_OPERAND(CODE,FILE,VALUE)                       \
 375  do { long l;                                                           \
 376       REAL_VALUE_TO_TARGET_SINGLE (r, l);                               \
 377       /* Use hex representation even if CODE is f.  as needs it.  */    \
 378       fprintf ((FILE), "&0x%lx", l);                                    \
 379     } while (0)
 380
 381 /* Output a double value (represented as a C double) as an immediate operand.
 382    This macro is a 68k-specific macro.  */
 383 #undef ASM_OUTPUT_DOUBLE_OPERAND
 384 #define ASM_OUTPUT_DOUBLE_OPERAND(FILE,VALUE)                           \
 385  do { long l[2];                                                        \
 386       REAL_VALUE_TO_TARGET_DOUBLE (VALUE, l);                           \
 387       fprintf ((FILE), "&0x%lx%08lx", l[0], l[1]);                      \
 388     } while (0)
 389 #endif /* USE_GAS */
 390
 391 /* This is how to store into the string LABEL
 392    the symbol_ref name of an internal numbered label where
 393    PREFIX is the class of label and NUM is the number within the class.
 394    This is suitable for output with `assemble_name'.  */
 395
 396 #undef ASM_GENERATE_INTERNAL_LABEL
 397 #define ASM_GENERATE_INTERNAL_LABEL(LABEL, PREFIX, NUM) \
 398   sprintf ((LABEL), "%s%s%ld", LOCAL_LABEL_PREFIX, (PREFIX), (long)(NUM))
 399
 400 /* This is how to output an internal numbered label where
 401    PREFIX is the class of label and NUM is the number within the class.  */
 402
 403 #undef ASM_OUTPUT_INTERNAL_LABEL
 404 #define ASM_OUTPUT_INTERNAL_LABEL(FILE,PREFIX,NUM)      \
 405     asm_fprintf (FILE, "%L%s%d:\n", PREFIX, NUM)
 406
 407 /* The prefix to add to user-visible assembler symbols.  */
 408
 409 #undef USER_LABEL_PREFIX
 410 #define USER_LABEL_PREFIX ""
 411
 412 /* This is how to output an element of a case-vector that is absolute.
 413    (The 68000 does not use such vectors,
 414    but we must define this macro anyway.)  */
 415 /* The L after the local prefix is the "L" prefix for the normal labels
 416    generated by gcc; why are ASM_OUTPUT_ADDR_VEC_ELT and
 417    ASM_OUTPUT_ADDR_DIFF_ELT not called with a PREFIX parameter, like
 418    ASM_OUTPUT_INTERNAL_LABEL ? */
 419
 420 #undef ASM_OUTPUT_ADDR_VEC_ELT
 421 #define ASM_OUTPUT_ADDR_VEC_ELT(FILE, VALUE)    \
 422     asm_fprintf (FILE, "%s%LL%d\n", integer_asm_op (4, TRUE), (VALUE))
 423
 424 /* This is how to output an element of a case-vector that is relative.  */
 425
 426 #undef ASM_OUTPUT_ADDR_DIFF_ELT
 427 #define ASM_OUTPUT_ADDR_DIFF_ELT(FILE, BODY, VALUE, REL)        \
 428     asm_fprintf (FILE, "\t%s %LL%d-%LL%d\n",                    \
 429                  integer_asm_op (2, TRUE), (VALUE), (REL))
 430
 431 #ifndef USE_GAS
 432
 433 #define ASM_OUTPUT_CASE_LABEL(FILE,PREFIX,NUM,TABLE)                    \
 434     asm_fprintf (FILE, "\tswbeg &%d\n%L%s%d:\n",                        \
 435              XVECLEN (PATTERN (TABLE), 1), (PREFIX), (NUM))
 436
 437 /* sysV68 as cannot handle LD%n(%pc,%reg) */
 438 #define SGS_NO_LI
 439
 440 /* labelno is not used here */
 441 #define ASM_OUTPUT_CASE_FETCH(file, labelno, regname)\
 442         asm_fprintf (file, "12(%Rpc,%s.", regname)
 443
 444 #define ASM_RETURN_CASE_JUMP \
 445   do {                                          \
 446     if (TARGET_5200)                            \
 447       return "ext%.l %0\n\tjmp 8(%%pc,%0.l)";   \
 448     else                                        \
 449       return "jmp 8(%%pc,%0.w)";                \
 450   } while (0)
 451
 452 #else /* USE_GAS */
 453
 454 /* labelno is not used here */
 455 #define ASM_OUTPUT_CASE_FETCH(file, labelno, regname)\
 456         asm_fprintf (file, "%Rpc@(6,%s:", regname)
 457
 458 #define ASM_RETURN_CASE_JUMP return "jmp %%pc@(2,%0:w)"
 459
 460 #endif /* USE_GAS */
 461
 462 #ifndef USE_GAS
 463
 464 /* Translate some opcodes to fit the sysV68 assembler syntax.  */
 465 /* The opcodes fdmov and fsmov are guesses.  */
 466
 467 /* cliffm@netcom.com says no need for .w suffix on jumps.  */
 468 #undef ASM_OUTPUT_OPCODE
 469 #define ASM_OUTPUT_OPCODE(FILE, PTR)                    \
 470 { if ((PTR)[0] == 'j' && (PTR)[1] == 'b')               \
 471     { ++(PTR);                                          \
 472       while (*(PTR) != ' ')                             \
 473         { putc (*(PTR), (FILE)); ++(PTR); }             \
 474     }                                                   \
 475   else if ((PTR)[0] == 's')                             \
 476     {                                                   \
 477       if (!strncmp ((PTR), "swap", 4))                  \
 478         { fprintf ((FILE), "swap.w"); (PTR) += 4; }     \
 479     }                                                   \
 480   else if ((PTR)[0] == 'f')                             \
 481     {                                                   \
 482       if (!strncmp ((PTR), "fmove", 5))                 \
 483         { fprintf ((FILE), "fmov"); (PTR) += 5; }       \
 484       else if (!strncmp ((PTR), "f%$move", 7))          \
 485         { if (TARGET_68040_ONLY)                        \
 486             { fprintf ((FILE), "fsmov"); (PTR) += 7; }  \
 487           else                                          \
 488             { fprintf ((FILE), "fmov"); (PTR) += 7; } } \
 489       else if (!strncmp ((PTR), "f%&move", 7))          \
 490         { if (TARGET_68040_ONLY)                        \
 491             { fprintf ((FILE), "fdmov"); (PTR) += 7; }  \
 492           else                                          \
 493             { fprintf ((FILE), "fmov"); (PTR) += 7; } } \
 494       else if (!strncmp ((PTR), "ftst", 4))             \
 495         { fprintf ((FILE), "ftest"); (PTR) += 4; }      \
 496       else if (!strncmp ((PTR), "fbne", 4))             \
 497         { fprintf ((FILE), "fbneq"); (PTR) += 4; }      \
 498       else if (!strncmp ((PTR), "fsne", 4))             \
 499         { fprintf ((FILE), "fsneq"); (PTR) += 4; }      \
 500     }                                                   \
 501 /* MOVE, MOVEA, MOVEQ, MOVEC ==> MOV    */              \
 502   else if ((PTR)[0] == 'm' && (PTR)[1] == 'o'           \
 503            && (PTR)[2] == 'v' && (PTR)[3] == 'e')       \
 504     { fprintf ((FILE), "mov"); (PTR) += 4;              \
 505        if ((PTR)[0] == 'q' || (PTR)[0] == 'a'           \
 506            || (PTR)[0] == 'c') (PTR)++; }               \
 507 /* SUB, SUBQ, SUBA, SUBI ==> SUB */                     \
 508   else if ((PTR)[0] == 's' && (PTR)[1] == 'u'           \
 509            && (PTR)[2] == 'b')                          \
 510     { fprintf ((FILE), "sub"); (PTR) += 3;              \
 511        if ((PTR)[0] == 'q' || (PTR)[0] == 'i'           \
 512            || (PTR)[0] == 'a') (PTR)++; }               \
 513 /* CMP, CMPA, CMPI, CMPM ==> CMP        */              \
 514   else if ((PTR)[0] == 'c' && (PTR)[1] == 'm'           \
 515            && (PTR)[2] == 'p')                          \
 516     { fprintf ((FILE), "cmp"); (PTR) += 3;              \
 517        if ((PTR)[0] == 'a' || (PTR)[0] == 'i'           \
 518            || (PTR)[0] == 'm') (PTR)++; }               \
 519 }
 520 #endif /* USE_GAS */
 521
 522 /* phdm@info.ucl.ac.be says to pass SIZE, not ROUNDED.  */
 523
 524 /* This says how to output an assembler line
 525    to define a global common symbol.  */
 526
 527 #undef ASM_OUTPUT_COMMON
 528 #ifndef USE_GAS
 529 #define ASM_OUTPUT_COMMON(FILE, NAME, SIZE, ROUNDED)  \
 530 ( fputs ("\tcomm ", (FILE)),                    \
 531   assemble_name ((FILE), (NAME)),               \
 532   fprintf ((FILE), ",%u\n", (SIZE)))
 533 #else /* USE_GAS */
 534 #define ASM_OUTPUT_COMMON(FILE, NAME, SIZE, ROUNDED)  \
 535 ( fputs ("\t.comm ", (FILE)),                   \
 536   assemble_name ((FILE), (NAME)),               \
 537   fprintf ((FILE), ",%u\n", (SIZE)))
 538 #endif /* USE_GAS */
 539
 540 /* This says how to output an assembler line
 541    to define a local common symbol.  */
 542
 543 #undef ASM_OUTPUT_LOCAL
 544 #ifndef USE_GAS
 545 #define ASM_OUTPUT_LOCAL(FILE, NAME, SIZE, ROUNDED)  \
 546 ( fputs ("\tlcomm ", (FILE)),                   \
 547   assemble_name ((FILE), (NAME)),               \
 548   fprintf ((FILE), ",%u\n", (SIZE)))
 549 #else /* USE_GAS */
 550 #define ASM_OUTPUT_LOCAL(FILE, NAME, SIZE, ROUNDED)  \
 551 ( fputs ("\t.lcomm ", (FILE)),                  \
 552   assemble_name ((FILE), (NAME)),               \
 553   fprintf ((FILE), ",%u\n", (SIZE)))
 554 #endif /* USE_GAS */
 555
 556 #ifndef USE_GAS
 557 /* Override usual definitions of SDB output macros.
 558    These definitions differ only in the absence of the period
 559    at the beginning of the name of the directive
 560    and in the use of `~' as the symbol for the current location.  */
 561
 562 #define PUT_SDB_SCL(a) fprintf(asm_out_file, "\tscl\t%d;", (a))
 563 #define PUT_SDB_INT_VAL(a) fprintf (asm_out_file, "\tval\t%d;", (a))
 564 #define PUT_SDB_VAL(a)                          \
 565 ( fputs ("\tval\t", asm_out_file),              \
 566   output_addr_const (asm_out_file, (a)),        \
 567   fputc (';', asm_out_file))
 568
 569 #define PUT_SDB_DEF(a)                          \
 570 do { fprintf (asm_out_file, "\tdef\t"); \
 571      ASM_OUTPUT_LABELREF (asm_out_file, a);     \
 572      fprintf (asm_out_file, ";"); } while (0)
 573
 574 #define PUT_SDB_PLAIN_DEF(a) fprintf(asm_out_file,"\tdef\t~%s;",a)
 575 #define PUT_SDB_ENDEF fputs("\tendef\n", asm_out_file)
 576 #define PUT_SDB_TYPE(a) fprintf(asm_out_file, "\ttype\t0%o;", a)
 577 #define PUT_SDB_SIZE(a) fprintf(asm_out_file, "\tsize\t%d;", a)
 578 #define PUT_SDB_START_DIM fprintf(asm_out_file, "\tdim\t")
 579 #define PUT_SDB_NEXT_DIM(a) fprintf(asm_out_file, "%d,", a)
 580 #define PUT_SDB_LAST_DIM(a) fprintf(asm_out_file, "%d;", a)
 581
 582 #define PUT_SDB_TAG(a)                          \
 583 do { fprintf (asm_out_file, "\ttag\t"); \
 584      ASM_OUTPUT_LABELREF (asm_out_file, a);     \
 585      fprintf (asm_out_file, ";"); } while (0)
 586
 587 #define PUT_SDB_BLOCK_START(LINE)               \
 588   fprintf (asm_out_file,                        \
 589            "\tdef\t~bb;\tval\t~;\tscl\t100;\tline\t%d;\tendef\n",       \
 590            (LINE))
 591
 592 #define PUT_SDB_BLOCK_END(LINE)                 \
 593   fprintf (asm_out_file,                        \
 594            "\tdef\t~eb;\tval\t~;\tscl\t100;\tline\t%d;\tendef\n",       \
 595            (LINE))
 596
 597 #define PUT_SDB_FUNCTION_START(LINE)            \
 598   fprintf (asm_out_file,                        \
 599            "\tdef\t~bf;\tval\t~;\tscl\t101;\tline\t%d;\tendef\n",       \
 600            (LINE))
 601
 602 #define PUT_SDB_FUNCTION_END(LINE)              \
 603   fprintf (asm_out_file,                        \
 604            "\tdef\t~ef;\tval\t~;\tscl\t101;\tline\t%d;\tendef\n",       \
 605            (LINE))
 606
 607 #define PUT_SDB_EPILOGUE_END(NAME)              \
 608   fprintf (asm_out_file,                        \
 609            "\tdef\t%s;\tval\t~;\tscl\t-1;\tendef\n",    \
 610            (NAME))
 611
 612 #define SDB_GENERATE_FAKE(BUFFER, NUMBER) \
 613   sprintf ((BUFFER), "~%dfake", (NUMBER));
 614
 615 #endif /* USE_GAS */
 616
 617 /* Define subroutines to call to handle multiply, divide, and remainder.
 618    Use the subroutines that the sysV68's library provides.
 619    The `*' prevents an underscore from being prepended by the compiler.  */
 620 /* The '*' is also used by INIT_CUMULATIVE_ARGS */
 621
 622 #define DIVSI3_LIBCALL "*ldiv%%"
 623 #define UDIVSI3_LIBCALL "*uldiv%%"
 624 #define MODSI3_LIBCALL "*lrem%%"
 625 #define UMODSI3_LIBCALL "*ulrem%%"
 626 #define MULSI3_LIBCALL "*lmul%%"
 627
 628 struct sysV68_cumulative_args
 629         {
 630         int     offset;
 631         int     libcall;
 632         };
 633
 634 #undef CUMULATIVE_ARGS
 635 #define CUMULATIVE_ARGS struct sysV68_cumulative_args
 636
 637 #undef INIT_CUMULATIVE_ARGS
 638 #define INIT_CUMULATIVE_ARGS(CUM,FNTYPE,LIBNAME,INDIRECT)       \
 639 do {(CUM).offset = 0;\
 640 (CUM).libcall = (LIBNAME) && (*XSTR((LIBNAME), 0) == '*');} while(0)
 641
 642 #undef FUNCTION_ARG_ADVANCE
 643 #define FUNCTION_ARG_ADVANCE(CUM, MODE, TYPE, NAMED)    \
 644  ((CUM).offset += ((MODE) != BLKmode                    \
 645             ? (GET_MODE_SIZE (MODE) + 3) & ~3   \
 646             : (int_size_in_bytes (TYPE) + 3) & ~3))
 647
 648 #undef FUNCTION_ARG
 649 #define FUNCTION_ARG(CUM, MODE, TYPE, NAMED) \
 650 (((CUM).libcall && (CUM).offset == 0) ? gen_rtx_REG ((MODE), 0)\
 651 : (TARGET_REGPARM && (CUM).offset < 8) ? gen_rtx_REG ((MODE), (CUM).offset / 4) : 0)
 652
 653 #undef FUNCTION_ARG_PARTIAL_NREGS
 654 #define FUNCTION_ARG_PARTIAL_NREGS(CUM, MODE, TYPE, NAMED) \
 655 ((TARGET_REGPARM && (CUM).offset < 8                            \
 656   && 8 < ((CUM).offset + ((MODE) == BLKmode                     \
 657                       ? int_size_in_bytes (TYPE)                \
 658                       : GET_MODE_SIZE (MODE))))                 \
 659  ? 2 - (CUM).offset / 4 : 0)
 660
 661 #undef FUNCTION_ARG_REGNO_P
 662 #define FUNCTION_ARG_REGNO_P(N) (TARGET_68020 ? 0 : (N) == 0)
 663
 664 /* manfred@lts.sel.alcatel.de: I believe that most delta machines are configured to have
 665    a 6888[12] FPU for which we need to link -lm881 instead of -lm; define ALT_LIBM to
 666    tell g++.c about that.  */
 667 #define ALT_LIBM        "-lm881"
 668
 669 #if (TARGET_DEFAULT & MASK_68881)      /* The default configuration has a 6888[12] FPU.  */
 670 #define MATH_LIBRARY    "-lm881"
 671 #endif
 672
 673 /* Currently we do not have the atexit() function,
 674    so take that from libgcc2.c */
 675
 676 #define NEED_ATEXIT 1
 677
 678 #define EXIT_BODY       \
 679   do                                                            \
 680     {                                                           \
 681       __stop_monitor ();                                        \
 682       _cleanup ();                                              \
 683     } while (0)
 684
 685 /* FINALIZE_TRAMPOLINE clears the instruction cache.  */
 686
 687 #undef FINALIZE_TRAMPOLINE
 688 #define FINALIZE_TRAMPOLINE(TRAMP)      \
 689   if (!TARGET_68040)                    \
 690     ;                                   \
 691   else                                  \
 692     emit_library_call (gen_rtx_SYMBOL_REF (Pmode, "__clear_insn_cache"), \
 693                        0, VOIDmode, 0)