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 /* The sysV68 as doesn't know about double's and float's.  */
 300 /* This is how to output an assembler line defining a `double' constant.  */
 301
 302 #undef ASM_OUTPUT_DOUBLE
 303 #define ASM_OUTPUT_DOUBLE(FILE,VALUE)  \
 304 do { long l[2];                                         \
 305      REAL_VALUE_TO_TARGET_DOUBLE (VALUE, l);            \
 306      fprintf ((FILE), "%s0x%lx,0x%lx\n",                \
 307               integer_asm_op (4, TRUE), l[0], l[1]);    \
 308    } while (0)
 309
 310 #undef ASM_OUTPUT_LONG_DOUBLE
 311 #define ASM_OUTPUT_LONG_DOUBLE(FILE,VALUE)                              \
 312 do { long l[3];                                                         \
 313      REAL_VALUE_TO_TARGET_LONG_DOUBLE (VALUE, l);                       \
 314      fprintf (FILE, "%s 0x%lx,0x%lx,0x%lx\n",                           \
 315               integer_asm_op (4, TRUE), l[0], l[1], l[2]);              \
 316    } while (0)
 317
 318 /* This is how to output an assembler line defining a `float' constant.  */
 319
 320 #undef ASM_OUTPUT_FLOAT
 321 #define ASM_OUTPUT_FLOAT(FILE,VALUE)  \
 322 do { long l;                                    \
 323      REAL_VALUE_TO_TARGET_SINGLE (VALUE, l);    \
 324      assemble_aligned_integer (4, GEN_INT (l)); \
 325    } while (0)
 326
 327 /* This is how to output an assembler line
 328    that says to advance the location counter
 329    to a multiple of 2**LOG bytes.  */
 330
 331 #ifndef USE_GAS
 332 #define ALIGN_ASM_OP    "\teven"
 333 #else /* USE_GAS */
 334 #define ALIGN_ASM_OP    "\t.even"
 335 #endif /* USE_GAS */
 336
 337 #undef ASM_OUTPUT_ALIGN
 338 #define ASM_OUTPUT_ALIGN(FILE,LOG)      \
 339   if ((LOG) >= 1)                       \
 340     fprintf (FILE, "%s\n", ALIGN_ASM_OP);
 341
 342 #ifndef USE_GAS
 343 #define SKIP_ASM_OP     "\tspace\t"
 344 #else /* USE_GAS */
 345 #define SKIP_ASM_OP     "\t.skip\t"
 346 #endif /* USE_GAS */
 347
 348 #undef ASM_OUTPUT_SKIP
 349 #define ASM_OUTPUT_SKIP(FILE,SIZE)  \
 350   fprintf (FILE, "%s%u\n", SKIP_ASM_OP, (SIZE))
 351
 352 /* Can't use ASM_OUTPUT_SKIP in text section.  */
 353
 354 #define ASM_NO_SKIP_IN_TEXT 1
 355
 356 /* The beginnings of sdb support...  */
 357
 358 /* Undefining these will allow `output_file_directive' (in toplev.c)
 359    to default to the right thing.  */
 360 #undef ASM_OUTPUT_MAIN_SOURCE_FILENAME
 361 #ifndef USE_GAS
 362 #define ASM_OUTPUT_SOURCE_FILENAME(FILE, FILENAME) \
 363   do {  fprintf (FILE, "\tfile\t");             \
 364         output_quoted_string (FILE, FILENAME);  \
 365         fprintf (FILE, "\n");                   \
 366   } while (0)
 367
 368 #undef ASM_OUTPUT_SOURCE_LINE
 369 #define ASM_OUTPUT_SOURCE_LINE(FILE, LINENO)    \
 370   fprintf (FILE, "\tln\t%d\n",                  \
 371            (sdb_begin_function_line             \
 372             ? (LINENO) - sdb_begin_function_line : 1))
 373
 374 /* Yet another null terminated string format.  */
 375
 376 #undef ASM_OUTPUT_ASCII
 377 #define ASM_OUTPUT_ASCII(FILE,PTR,LEN) \
 378   do { register size_t sp = 0, lp = 0, limit = (LEN);           \
 379     fputs (integer_asm_op (1, TRUE), (FILE));                   \
 380   loop:                                                         \
 381     if ((PTR)[sp] > ' ' && ! ((PTR)[sp] & 0x80) && (PTR)[sp] != '\\')   \
 382       { lp += 3;                                                \
 383         fprintf ((FILE), "'%c", (PTR)[sp]); }                   \
 384     else                                                        \
 385       { lp += 5;                                                \
 386         fprintf ((FILE), "0x%x", (PTR)[sp]); }                  \
 387     if (++sp < limit)                                           \
 388       { if (lp > 60)                                            \
 389           { lp = 0;                                             \
 390             fprintf ((FILE), "\n%s", ASCII_DATA_ASM_OP); }      \
 391         else                                                    \
 392           putc (',', (FILE));                                   \
 393         goto loop; }                                            \
 394     putc ('\n', (FILE)); } while (0)
 395 #endif /* USE_GAS */
 396
 397 #ifndef USE_GAS
 398 /* Output a float value (represented as a C double) as an immediate operand.
 399    This macro is a 68k-specific macro.  */
 400
 401 #undef ASM_OUTPUT_FLOAT_OPERAND
 402 #define ASM_OUTPUT_FLOAT_OPERAND(CODE,FILE,VALUE)                       \
 403  do { long l;                                                           \
 404       REAL_VALUE_TO_TARGET_SINGLE (r, l);                               \
 405       /* Use hex representation even if CODE is f.  as needs it.  */    \
 406       fprintf ((FILE), "&0x%lx", l);                                    \
 407     } while (0)
 408
 409 /* Output a double value (represented as a C double) as an immediate operand.
 410    This macro is a 68k-specific macro.  */
 411 #undef ASM_OUTPUT_DOUBLE_OPERAND
 412 #define ASM_OUTPUT_DOUBLE_OPERAND(FILE,VALUE)                           \
 413  do { long l[2];                                                        \
 414       REAL_VALUE_TO_TARGET_DOUBLE (VALUE, l);                           \
 415       fprintf ((FILE), "&0x%lx%08lx", l[0], l[1]);                      \
 416     } while (0)
 417 #endif /* USE_GAS */
 418
 419 /* This is how to store into the string LABEL
 420    the symbol_ref name of an internal numbered label where
 421    PREFIX is the class of label and NUM is the number within the class.
 422    This is suitable for output with `assemble_name'.  */
 423
 424 #undef ASM_GENERATE_INTERNAL_LABEL
 425 #define ASM_GENERATE_INTERNAL_LABEL(LABEL, PREFIX, NUM) \
 426   sprintf ((LABEL), "%s%s%ld", LOCAL_LABEL_PREFIX, (PREFIX), (long)(NUM))
 427
 428 /* This is how to output an internal numbered label where
 429    PREFIX is the class of label and NUM is the number within the class.  */
 430
 431 #undef ASM_OUTPUT_INTERNAL_LABEL
 432 #define ASM_OUTPUT_INTERNAL_LABEL(FILE,PREFIX,NUM)      \
 433     asm_fprintf (FILE, "%L%s%d:\n", PREFIX, NUM)
 434
 435 /* The prefix to add to user-visible assembler symbols.  */
 436
 437 #undef USER_LABEL_PREFIX
 438 #define USER_LABEL_PREFIX ""
 439
 440 /* This is how to output an element of a case-vector that is absolute.
 441    (The 68000 does not use such vectors,
 442    but we must define this macro anyway.)  */
 443 /* The L after the local prefix is the "L" prefix for the normal labels
 444    generated by gcc; why are ASM_OUTPUT_ADDR_VEC_ELT and
 445    ASM_OUTPUT_ADDR_DIFF_ELT not called with a PREFIX parameter, like
 446    ASM_OUTPUT_INTERNAL_LABEL ? */
 447
 448 #undef ASM_OUTPUT_ADDR_VEC_ELT
 449 #define ASM_OUTPUT_ADDR_VEC_ELT(FILE, VALUE)    \
 450     asm_fprintf (FILE, "%s%LL%d\n", integer_asm_op (4, TRUE), (VALUE))
 451
 452 /* This is how to output an element of a case-vector that is relative.  */
 453
 454 #undef ASM_OUTPUT_ADDR_DIFF_ELT
 455 #define ASM_OUTPUT_ADDR_DIFF_ELT(FILE, BODY, VALUE, REL)        \
 456     asm_fprintf (FILE, "\t%s %LL%d-%LL%d\n",                    \
 457                  integer_asm_op (2, TRUE), (VALUE), (REL))
 458
 459 #ifndef USE_GAS
 460
 461 #define ASM_OUTPUT_CASE_LABEL(FILE,PREFIX,NUM,TABLE)                    \
 462     asm_fprintf (FILE, "\tswbeg &%d\n%L%s%d:\n",                        \
 463              XVECLEN (PATTERN (TABLE), 1), (PREFIX), (NUM))
 464
 465 /* sysV68 as cannot handle LD%n(%pc,%reg) */
 466 #define SGS_NO_LI
 467
 468 /* labelno is not used here */
 469 #define ASM_OUTPUT_CASE_FETCH(file, labelno, regname)\
 470         asm_fprintf (file, "12(%Rpc,%s.", regname)
 471
 472 #define ASM_RETURN_CASE_JUMP \
 473   do {                                          \
 474     if (TARGET_5200)                            \
 475       return "ext%.l %0\n\tjmp 8(%%pc,%0.l)";   \
 476     else                                        \
 477       return "jmp 8(%%pc,%0.w)";                \
 478   } while (0)
 479
 480 #else /* USE_GAS */
 481
 482 /* labelno is not used here */
 483 #define ASM_OUTPUT_CASE_FETCH(file, labelno, regname)\
 484         asm_fprintf (file, "%Rpc@(6,%s:", regname)
 485
 486 #define ASM_RETURN_CASE_JUMP return "jmp %%pc@(2,%0:w)"
 487
 488 #endif /* USE_GAS */
 489
 490 #ifndef USE_GAS
 491
 492 /* Translate some opcodes to fit the sysV68 assembler syntax.  */
 493 /* The opcodes fdmov and fsmov are guesses.  */
 494
 495 /* cliffm@netcom.com says no need for .w suffix on jumps.  */
 496 #undef ASM_OUTPUT_OPCODE
 497 #define ASM_OUTPUT_OPCODE(FILE, PTR)                    \
 498 { if ((PTR)[0] == 'j' && (PTR)[1] == 'b')               \
 499     { ++(PTR);                                          \
 500       while (*(PTR) != ' ')                             \
 501         { putc (*(PTR), (FILE)); ++(PTR); }             \
 502     }                                                   \
 503   else if ((PTR)[0] == 's')                             \
 504     {                                                   \
 505       if (!strncmp ((PTR), "swap", 4))                  \
 506         { fprintf ((FILE), "swap.w"); (PTR) += 4; }     \
 507     }                                                   \
 508   else if ((PTR)[0] == 'f')                             \
 509     {                                                   \
 510       if (!strncmp ((PTR), "fmove", 5))                 \
 511         { fprintf ((FILE), "fmov"); (PTR) += 5; }       \
 512       else if (!strncmp ((PTR), "f%$move", 7))          \
 513         { if (TARGET_68040_ONLY)                        \
 514             { fprintf ((FILE), "fsmov"); (PTR) += 7; }  \
 515           else                                          \
 516             { fprintf ((FILE), "fmov"); (PTR) += 7; } } \
 517       else if (!strncmp ((PTR), "f%&move", 7))          \
 518         { if (TARGET_68040_ONLY)                        \
 519             { fprintf ((FILE), "fdmov"); (PTR) += 7; }  \
 520           else                                          \
 521             { fprintf ((FILE), "fmov"); (PTR) += 7; } } \
 522       else if (!strncmp ((PTR), "ftst", 4))             \
 523         { fprintf ((FILE), "ftest"); (PTR) += 4; }      \
 524       else if (!strncmp ((PTR), "fbne", 4))             \
 525         { fprintf ((FILE), "fbneq"); (PTR) += 4; }      \
 526       else if (!strncmp ((PTR), "fsne", 4))             \
 527         { fprintf ((FILE), "fsneq"); (PTR) += 4; }      \
 528     }                                                   \
 529 /* MOVE, MOVEA, MOVEQ, MOVEC ==> MOV    */              \
 530   else if ((PTR)[0] == 'm' && (PTR)[1] == 'o'           \
 531            && (PTR)[2] == 'v' && (PTR)[3] == 'e')       \
 532     { fprintf ((FILE), "mov"); (PTR) += 4;              \
 533        if ((PTR)[0] == 'q' || (PTR)[0] == 'a'           \
 534            || (PTR)[0] == 'c') (PTR)++; }               \
 535 /* SUB, SUBQ, SUBA, SUBI ==> SUB */                     \
 536   else if ((PTR)[0] == 's' && (PTR)[1] == 'u'           \
 537            && (PTR)[2] == 'b')                          \
 538     { fprintf ((FILE), "sub"); (PTR) += 3;              \
 539        if ((PTR)[0] == 'q' || (PTR)[0] == 'i'           \
 540            || (PTR)[0] == 'a') (PTR)++; }               \
 541 /* CMP, CMPA, CMPI, CMPM ==> CMP        */              \
 542   else if ((PTR)[0] == 'c' && (PTR)[1] == 'm'           \
 543            && (PTR)[2] == 'p')                          \
 544     { fprintf ((FILE), "cmp"); (PTR) += 3;              \
 545        if ((PTR)[0] == 'a' || (PTR)[0] == 'i'           \
 546            || (PTR)[0] == 'm') (PTR)++; }               \
 547 }
 548 #endif /* USE_GAS */
 549
 550 /* phdm@info.ucl.ac.be says to pass SIZE, not ROUNDED.  */
 551
 552 /* This says how to output an assembler line
 553    to define a global common symbol.  */
 554
 555 #undef ASM_OUTPUT_COMMON
 556 #ifndef USE_GAS
 557 #define ASM_OUTPUT_COMMON(FILE, NAME, SIZE, ROUNDED)  \
 558 ( fputs ("\tcomm ", (FILE)),                    \
 559   assemble_name ((FILE), (NAME)),               \
 560   fprintf ((FILE), ",%u\n", (SIZE)))
 561 #else /* USE_GAS */
 562 #define ASM_OUTPUT_COMMON(FILE, NAME, SIZE, ROUNDED)  \
 563 ( fputs ("\t.comm ", (FILE)),                   \
 564   assemble_name ((FILE), (NAME)),               \
 565   fprintf ((FILE), ",%u\n", (SIZE)))
 566 #endif /* USE_GAS */
 567
 568 /* This says how to output an assembler line
 569    to define a local common symbol.  */
 570
 571 #undef ASM_OUTPUT_LOCAL
 572 #ifndef USE_GAS
 573 #define ASM_OUTPUT_LOCAL(FILE, NAME, SIZE, ROUNDED)  \
 574 ( fputs ("\tlcomm ", (FILE)),                   \
 575   assemble_name ((FILE), (NAME)),               \
 576   fprintf ((FILE), ",%u\n", (SIZE)))
 577 #else /* USE_GAS */
 578 #define ASM_OUTPUT_LOCAL(FILE, NAME, SIZE, ROUNDED)  \
 579 ( fputs ("\t.lcomm ", (FILE)),                  \
 580   assemble_name ((FILE), (NAME)),               \
 581   fprintf ((FILE), ",%u\n", (SIZE)))
 582 #endif /* USE_GAS */
 583
 584 #ifndef USE_GAS
 585 /* Override usual definitions of SDB output macros.
 586    These definitions differ only in the absence of the period
 587    at the beginning of the name of the directive
 588    and in the use of `~' as the symbol for the current location.  */
 589
 590 #define PUT_SDB_SCL(a) fprintf(asm_out_file, "\tscl\t%d;", (a))
 591 #define PUT_SDB_INT_VAL(a) fprintf (asm_out_file, "\tval\t%d;", (a))
 592 #define PUT_SDB_VAL(a)                          \
 593 ( fputs ("\tval\t", asm_out_file),              \
 594   output_addr_const (asm_out_file, (a)),        \
 595   fputc (';', asm_out_file))
 596
 597 #define PUT_SDB_DEF(a)                          \
 598 do { fprintf (asm_out_file, "\tdef\t"); \
 599      ASM_OUTPUT_LABELREF (asm_out_file, a);     \
 600      fprintf (asm_out_file, ";"); } while (0)
 601
 602 #define PUT_SDB_PLAIN_DEF(a) fprintf(asm_out_file,"\tdef\t~%s;",a)
 603 #define PUT_SDB_ENDEF fputs("\tendef\n", asm_out_file)
 604 #define PUT_SDB_TYPE(a) fprintf(asm_out_file, "\ttype\t0%o;", a)
 605 #define PUT_SDB_SIZE(a) fprintf(asm_out_file, "\tsize\t%d;", a)
 606 #define PUT_SDB_START_DIM fprintf(asm_out_file, "\tdim\t")
 607 #define PUT_SDB_NEXT_DIM(a) fprintf(asm_out_file, "%d,", a)
 608 #define PUT_SDB_LAST_DIM(a) fprintf(asm_out_file, "%d;", a)
 609
 610 #define PUT_SDB_TAG(a)                          \
 611 do { fprintf (asm_out_file, "\ttag\t"); \
 612      ASM_OUTPUT_LABELREF (asm_out_file, a);     \
 613      fprintf (asm_out_file, ";"); } while (0)
 614
 615 #define PUT_SDB_BLOCK_START(LINE)               \
 616   fprintf (asm_out_file,                        \
 617            "\tdef\t~bb;\tval\t~;\tscl\t100;\tline\t%d;\tendef\n",       \
 618            (LINE))
 619
 620 #define PUT_SDB_BLOCK_END(LINE)                 \
 621   fprintf (asm_out_file,                        \
 622            "\tdef\t~eb;\tval\t~;\tscl\t100;\tline\t%d;\tendef\n",       \
 623            (LINE))
 624
 625 #define PUT_SDB_FUNCTION_START(LINE)            \
 626   fprintf (asm_out_file,                        \
 627            "\tdef\t~bf;\tval\t~;\tscl\t101;\tline\t%d;\tendef\n",       \
 628            (LINE))
 629
 630 #define PUT_SDB_FUNCTION_END(LINE)              \
 631   fprintf (asm_out_file,                        \
 632            "\tdef\t~ef;\tval\t~;\tscl\t101;\tline\t%d;\tendef\n",       \
 633            (LINE))
 634
 635 #define PUT_SDB_EPILOGUE_END(NAME)              \
 636   fprintf (asm_out_file,                        \
 637            "\tdef\t%s;\tval\t~;\tscl\t-1;\tendef\n",    \
 638            (NAME))
 639
 640 #define SDB_GENERATE_FAKE(BUFFER, NUMBER) \
 641   sprintf ((BUFFER), "~%dfake", (NUMBER));
 642
 643 #endif /* USE_GAS */
 644
 645 /* Define subroutines to call to handle multiply, divide, and remainder.
 646    Use the subroutines that the sysV68's library provides.
 647    The `*' prevents an underscore from being prepended by the compiler.  */
 648 /* The '*' is also used by INIT_CUMULATIVE_ARGS */
 649
 650 #define DIVSI3_LIBCALL "*ldiv%%"
 651 #define UDIVSI3_LIBCALL "*uldiv%%"
 652 #define MODSI3_LIBCALL "*lrem%%"
 653 #define UMODSI3_LIBCALL "*ulrem%%"
 654 #define MULSI3_LIBCALL "*lmul%%"
 655
 656 struct sysV68_cumulative_args
 657         {
 658         int     offset;
 659         int     libcall;
 660         };
 661
 662 #undef CUMULATIVE_ARGS
 663 #define CUMULATIVE_ARGS struct sysV68_cumulative_args
 664
 665 #undef INIT_CUMULATIVE_ARGS
 666 #define INIT_CUMULATIVE_ARGS(CUM,FNTYPE,LIBNAME,INDIRECT)       \
 667 do {(CUM).offset = 0;\
 668 (CUM).libcall = (LIBNAME) && (*XSTR((LIBNAME), 0) == '*');} while(0)
 669
 670 #undef FUNCTION_ARG_ADVANCE
 671 #define FUNCTION_ARG_ADVANCE(CUM, MODE, TYPE, NAMED)    \
 672  ((CUM).offset += ((MODE) != BLKmode                    \
 673             ? (GET_MODE_SIZE (MODE) + 3) & ~3   \
 674             : (int_size_in_bytes (TYPE) + 3) & ~3))
 675
 676 #undef FUNCTION_ARG
 677 #define FUNCTION_ARG(CUM, MODE, TYPE, NAMED) \
 678 (((CUM).libcall && (CUM).offset == 0) ? gen_rtx_REG ((MODE), 0)\
 679 : (TARGET_REGPARM && (CUM).offset < 8) ? gen_rtx_REG ((MODE), (CUM).offset / 4) : 0)
 680
 681 #undef FUNCTION_ARG_PARTIAL_NREGS
 682 #define FUNCTION_ARG_PARTIAL_NREGS(CUM, MODE, TYPE, NAMED) \
 683 ((TARGET_REGPARM && (CUM).offset < 8                            \
 684   && 8 < ((CUM).offset + ((MODE) == BLKmode                     \
 685                       ? int_size_in_bytes (TYPE)                \
 686                       : GET_MODE_SIZE (MODE))))                 \
 687  ? 2 - (CUM).offset / 4 : 0)
 688
 689 #undef FUNCTION_ARG_REGNO_P
 690 #define FUNCTION_ARG_REGNO_P(N) (TARGET_68020 ? 0 : (N) == 0)
 691
 692 /* manfred@lts.sel.alcatel.de: I believe that most delta machines are configured to have
 693    a 6888[12] FPU for which we need to link -lm881 instead of -lm; define ALT_LIBM to
 694    tell g++.c about that.  */
 695 #define ALT_LIBM        "-lm881"
 696
 697 #if (TARGET_DEFAULT & MASK_68881)      /* The default configuration has a 6888[12] FPU.  */
 698 #define MATH_LIBRARY    "-lm881"
 699 #endif
 700
 701 /* Currently we do not have the atexit() function,
 702    so take that from libgcc2.c */
 703
 704 #define NEED_ATEXIT 1
 705
 706 #define EXIT_BODY       \
 707   do                                                            \
 708     {                                                           \
 709       __stop_monitor ();                                        \
 710       _cleanup ();                                              \
 711     } while (0)
 712
 713 /* FINALIZE_TRAMPOLINE clears the instruction cache.  */
 714
 715 #undef FINALIZE_TRAMPOLINE
 716 #define FINALIZE_TRAMPOLINE(TRAMP)      \
 717   if (!TARGET_68040)                    \
 718     ;                                   \
 719   else                                  \
 720     emit_library_call (gen_rtx_SYMBOL_REF (Pmode, "__clear_insn_cache"), \
 721                        0, VOIDmode, 0)