1 /* Definitions for GCC. Part of the machine description for CRIS.
2 Copyright (C) 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
3 Contributed by Axis Communications. Written by Hans-Peter Nilsson.
5 This file is part of GCC.
7 GCC is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2, or (at your option)
12 GCC is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GCC; see the file COPYING. If not, write to
19 the Free Software Foundation, 59 Temple Place - Suite 330,
20 Boston, MA 02111-1307, USA. */
22 /* After the first "Node:" comment comes all preprocessor directives and
23 attached declarations described in the info files, the "Using and
24 Porting GCC" manual (uapgcc), in the same order as found in the "Target
25 macros" section in the gcc-2.9x CVS edition of 2000-03-17. FIXME: Not
26 really, but needs an update anyway.
28 There is no generic copy-of-uapgcc comment, you'll have to see uapgcc
29 for that. If applicable, there is a CRIS-specific comment. The order
30 of macro definitions follow the order in the manual. Every section in
31 the manual (node in the info pages) has an introductory `Node:
32 <subchapter>' comment. If no macros are defined for a section, only
33 the section-comment is present. */
35 /* Note that other header files (e.g. config/elfos.h, config/linux.h,
36 config/cris/linux.h and config/cris/aout.h) are responsible for lots of
37 settings not repeated below. This file contains general CRIS
38 definitions and definitions for the cris-*-elf subtarget. */
40 /* Replacement for REG_P since it does not match SUBREGs. Happens for
41 testcase Axis-20000320 with gcc-2.9x. */
43 (REG_P (x) || (GET_CODE (x) == SUBREG && REG_P (XEXP (x, 0))))
45 /* Last register in main register bank r0..r15. */
46 #define CRIS_LAST_GENERAL_REGISTER 15
48 /* Descriptions of registers used for arguments. */
49 #define CRIS_FIRST_ARG_REG 10
50 #define CRIS_MAX_ARGS_IN_REGS 4
52 /* Other convenience definitions. */
53 #define CRIS_PC_REGNUM 15
54 #define CRIS_SRP_REGNUM 16
56 /* Most of the time, we need the index into the register-names array.
57 When passing debug-info, we need the real register number. */
58 #define CRIS_CANONICAL_SRP_REGNUM (16 + 11)
59 #define CRIS_CANONICAL_MOF_REGNUM (16 + 7)
61 /* When generating PIC, these suffixes are added to the names of non-local
62 functions when being output. Contrary to other ports, we have offsets
63 relative to the GOT, not the PC. We might implement PC-relative PLT
64 semantics later for the general case; they are used in some cases right
65 now, such as MI thunks. */
66 #define CRIS_GOTPLT_SUFFIX ":GOTPLT"
67 #define CRIS_PLT_GOTOFFSET_SUFFIX ":PLTG"
68 #define CRIS_PLT_PCOFFSET_SUFFIX ":PLT"
70 #define CRIS_FUNCTION_ARG_SIZE(MODE, TYPE) \
71 ((MODE) != BLKmode ? GET_MODE_SIZE (MODE) \
72 : (unsigned) int_size_in_bytes (TYPE))
74 /* Check for max allowed stackframe. A "const char *" to be parsed. */
75 extern const char *cris_max_stackframe_str;
77 /* Which CPU version this is. A "const char *" to be parsed. */
78 extern const char *cris_cpu_str;
80 /* Which CPU version this is. The parsed and adjusted cris_cpu_str. */
81 extern int cris_cpu_version;
83 /* Which CPU version to tune for. A "const char *" to be parsed. */
84 extern const char *cris_tune_str;
86 /* The argument to "-melinux-stacksize=". We don't parse it currently;
87 it's just passed on to the linker. We might want to do something
89 extern const char *cris_elinux_stacksize_str;
91 /* Changing the order used to be necessary to put the fourth __make_dp
92 argument (a DImode parameter) in registers, to fit with the libfunc
93 parameter passing scheme used for intrinsic functions. FIXME: Check
94 performance and maybe remove definition from TARGET_LIBGCC2_CFLAGS now
95 that it isn't strictly necessary. We used to do this through
96 TARGET_LIBGCC2_CFLAGS, but that became increasingly difficult as the
97 parenthesis (that needed quoting) travels through several layers of
98 make and shell invocations. */
100 #define __make_dp(a,b,c,d) __cris_make_dp(d,a,b,c)
106 /* When using make with defaults.mak for Sun this will handily remove
107 any "-target sun*" switches. */
108 /* We need to override any previous definitions (linux.h) */
109 #undef WORD_SWITCH_TAKES_ARG
110 #define WORD_SWITCH_TAKES_ARG(STR) \
111 (DEFAULT_WORD_SWITCH_TAKES_ARG (STR) \
112 || !strcmp (STR, "target"))
114 /* Also provide canonical vN definitions when user specifies an alias.
115 Note that -melf overrides -maout. */
117 /* The `-$' is here mostly due to the integrated preprocessor not
118 handling the builtin expansion of "#define __REGISTER_PREFIX__ $"
119 gracefully. This is slightly redundant although not incorrect.
120 We're quite alone defining REGISTER_PREFIX as "$" so it's unlikely
121 someone will fight for us. This year in the mountains.
122 Note that for -melinux and -mlinux, command-line -isystem options are
123 emitted both before and after the synthesized one. We can't remove all
124 of them: a %{<isystem} will only remove the first one and %{<isystem*}
125 will not do TRT. Those extra occurrences are harmless anyway. */
127 "-$ -D__CRIS_ABI_version=2\
128 %{mtune=*:-D__tune_%* %{mtune=v*:-D__CRIS_arch_tune=%*}}\
129 %{mtune=etrax4:-D__tune_v3 -D__CRIS_arch_tune=3}\
130 %{mtune=etrax100:-D__tune_v8 -D__CRIS_arch_tune=8}\
131 %{mtune=svinto:-D__tune_v8 -D__CRIS_arch_tune=8}\
132 %{mtune=etrax100lx:-D__tune_v10 -D__CRIS_arch_tune=10}\
133 %{mtune=ng:-D__tune_v10 -D__CRIS_arch_tune=10}\
134 %{mcpu=*:-D__arch_%* %{mcpu=v*:-D__CRIS_arch_version=%*}}\
135 %{mcpu=etrax4:-D__arch_v3 -D__CRIS_arch_version=3}\
136 %{mcpu=etrax100:-D__arch_v8 -D__CRIS_arch_version=8}\
137 %{mcpu=svinto:-D__arch_v8 -D__CRIS_arch_version=8}\
138 %{mcpu=etrax100lx:-D__arch_v10 -D__CRIS_arch_version=10}\
139 %{mcpu=ng:-D__arch_v10 -D__CRIS_arch_version=10}\
140 %{march=*:-D__arch_%* %{march=v*:-D__CRIS_arch_version=%*}}\
141 %{march=etrax4:-D__arch_v3 -D__CRIS_arch_version=3}\
142 %{march=etrax100:-D__arch_v8 -D__CRIS_arch_version=8}\
143 %{march=svinto:-D__arch_v8 -D__CRIS_arch_version=8}\
144 %{march=etrax100lx:-D__arch_v10 -D__CRIS_arch_version=10}\
145 %{march=ng:-D__arch_v10 -D__CRIS_arch_version=10}\
146 %{metrax100:-D__arch__v8 -D__CRIS_arch_version=8}\
147 %{metrax4:-D__arch__v3 -D__CRIS_arch_version=3}\
150 /* For the cris-*-elf subtarget. */
151 #define CRIS_CPP_SUBTARGET_SPEC \
153 %{mbest-lib-options:\
154 %{!moverride-best-lib-options:\
155 %{!march=*:%{!metrax*:%{!mcpu=*:-D__tune_v10 -D__CRIS_arch_tune=10}}}}}"
157 /* Remove those Sun-make "target" switches. */
158 /* Override previous definitions (linux.h). */
162 %{metrax4:-march=v3}\
163 %{metrax100:-march=v8}\
166 /* For the cris-*-elf subtarget. */
167 #define CRIS_CC1_SUBTARGET_SPEC \
169 %{mbest-lib-options:\
170 %{!moverride-best-lib-options:\
171 %{!march=*:%{!mcpu=*:-mtune=v10 -D__CRIS_arch_tune=10}}\
172 %{!finhibit-size-directive:\
173 %{!fno-function-sections: -ffunction-sections}\
174 %{!fno-data-sections: -fdata-sections}}}}"
176 /* This adds to CC1_SPEC. When bugs are removed from -fvtable-gc
177 (-fforce-addr causes invalid .vtable_entry asm in tinfo.cc and
178 nothing at all works in GCC 3.0-pre), add this line:
179 "%{mbest-lib-options:%{!moverride-best-lib-options:\
180 %{!melinux:%{!maout|melf:%{!fno-vtable-gc:-fvtable-gc}}}}}". */
181 #define CC1PLUS_SPEC ""
183 /* Override previous definitions (linux.h). */
189 /* For the cris-*-elf subtarget. */
190 #define CRIS_ASM_SUBTARGET_SPEC "--em=criself"
192 /* FIXME: We should propagate the -melf option to make the criself
193 "emulation" unless a linker script is provided (-T*), but I don't know
194 how to do that if either of -Ttext, -Tdata or -Tbss is given but no
195 linker script, as is usually the case. Leave it to the user for the
198 Note that -melf overrides -maout except that a.out-compiled libraries
199 are linked in (multilibbing). The somewhat cryptic -rpath-link pair is
200 to avoid *only* picking up the linux multilib subdir from the "-B./"
201 option during build, while still giving it preference. We'd need some
202 %s-variant that checked for existence of some specific file. */
203 /* Override previous definitions (svr4.h). */
209 /* For the cris-*-elf subtarget. */
210 #define CRIS_LINK_SUBTARGET_SPEC \
212 %{sim2:%{!T*:-Tdata 0x4000000 -Tbss 0x8000000}}\
213 %{O2|O3: --gc-sections}"
215 /* Which library to get. The only difference from the default is to get
216 libsc.a if -sim is given to the driver. Repeat -lc -lsysX
217 {X=sim,linux}, because libsysX needs (at least) errno from libc, and
218 then we want to resolve new unknowns in libc against libsysX, not
220 /* Override previous definitions (linux.h). */
223 "%{sim*:-lc -lsyssim -lc -lsyssim}\
225 %{!p:%{!pg:-lc}}%{p:-lc_p}%{pg:-lc_p} -lbsp}\
228 /* Linker startfile options; crt0 flavors.
230 At the moment there are no gcrt0.o or mcrt0.o, but keep them here and
231 link them to crt0.o to be prepared. Use scrt0.c if running the
232 simulator, linear style, or s2crt0.c if fixed style. */
233 /* We need to remove any previous definition (elfos.h). */
234 #undef STARTFILE_SPEC
235 #define STARTFILE_SPEC \
237 %{!sim2:%{sim:scrt0.o%s}\
238 %{!sim:%{pg:gcrt0.o%s}\
239 %{!pg:%{p:mcrt0.o%s}%{!p:crt0.o%s}}}}\
242 #define EXTRA_SPECS \
243 {"cpp_subtarget", CRIS_CPP_SUBTARGET_SPEC}, \
244 {"cc1_subtarget", CRIS_CC1_SUBTARGET_SPEC}, \
245 {"asm_subtarget", CRIS_ASM_SUBTARGET_SPEC}, \
246 {"link_subtarget", CRIS_LINK_SUBTARGET_SPEC}, \
247 CRIS_SUBTARGET_EXTRA_SPECS
249 #define CRIS_SUBTARGET_EXTRA_SPECS
252 /* Node: Run-time Target */
254 /* Only keep the non-varying ones here. */
255 #define CPP_PREDEFINES "-Dcris -DCRIS -DGNU_CRIS"
257 /* This needs to be at least 32 bits. */
258 extern int target_flags;
260 /* Currently this just affects aligment. FIXME: Redundant with
261 TARGET_ALIGN_BY_32, or put machine stuff here? */
262 #define TARGET_MASK_SVINTO 1
263 #define TARGET_SVINTO (target_flags & TARGET_MASK_SVINTO)
265 /* If to use condition-codes generated by insns other than the
266 immediately preceding compare/test insn.
267 Used to check for errors in notice_update_cc. */
268 #define TARGET_MASK_CCINIT 2
269 #define TARGET_CCINIT (target_flags & TARGET_MASK_CCINIT)
272 #define TARGET_MASK_PDEBUG 4
273 #define TARGET_PDEBUG (target_flags & TARGET_MASK_PDEBUG)
275 /* If to use side-effect patterns. Used to debug the [rx=ry+i] type
277 #define TARGET_MASK_SIDE_EFFECT_PREFIXES 8
278 #define TARGET_SIDE_EFFECT_PREFIXES \
279 (target_flags & TARGET_MASK_SIDE_EFFECT_PREFIXES)
281 /* If to expand mul into mstep. Only used when making libc.a. */
282 #define TARGET_MASK_EXPAND_MUL 16
283 #define TARGET_EXPAND_MUL (target_flags & TARGET_MASK_EXPAND_MUL)
285 /* If to *keep* (not force) alignment of stack at 16 bits. */
286 #define TARGET_MASK_STACK_ALIGN 32
287 #define TARGET_STACK_ALIGN (target_flags & TARGET_MASK_STACK_ALIGN)
289 /* If to do alignment on individual non-modifiable objects. */
290 #define TARGET_MASK_CONST_ALIGN 64
291 #define TARGET_CONST_ALIGN (target_flags & TARGET_MASK_CONST_ALIGN)
293 /* If to do alignment on individual modifiable objects. */
294 #define TARGET_MASK_DATA_ALIGN 128
295 #define TARGET_DATA_ALIGN (target_flags & TARGET_MASK_DATA_ALIGN)
297 /* If not to omit function prologue and epilogue. */
298 #define TARGET_MASK_PROLOGUE_EPILOGUE 256
299 #define TARGET_PROLOGUE_EPILOGUE (target_flags & TARGET_MASK_PROLOGUE_EPILOGUE)
301 /* Instructions additions from Etrax 4 and up.
302 (Just "lz", which we don't really generate from GCC -- yet). */
303 #define TARGET_MASK_ETRAX4_ADD 512
304 #define TARGET_ETRAX4_ADD (target_flags & TARGET_MASK_ETRAX4_ADD)
306 /* Say that all alignment specifications say to prefer 32 rather
308 #define TARGET_MASK_ALIGN_BY_32 1024
309 #define TARGET_ALIGN_BY_32 (target_flags & TARGET_MASK_ALIGN_BY_32)
311 /* This condition is of limited use, as gcc is riddled with #ifdef:s
312 controlling this, rather than if (...):s. */
313 #define TARGET_MASK_ELF 2048
314 #define TARGET_ELF (target_flags & TARGET_MASK_ELF)
316 /* Currently just used to error-check other options. Note that this is
317 *not* set for -melinux. */
318 #define TARGET_MASK_LINUX 4096
319 #define TARGET_LINUX (target_flags & TARGET_MASK_LINUX)
321 /* There's a small setup cost with using GOTPLT references, but should
322 in total be a win both in code-size and execution-time. */
323 #define TARGET_MASK_AVOID_GOTPLT 8192
324 #define TARGET_AVOID_GOTPLT (target_flags & TARGET_MASK_AVOID_GOTPLT)
326 #define TARGET_SWITCHES \
328 /* No "no-etrax" as it does not really imply any model. \
329 On the other hand, "etrax" implies the common (and large) \
330 subset matching all models. */ \
331 {"etrax4", TARGET_MASK_ETRAX4_ADD, \
332 N_("Compile for ETRAX 4 (CRIS v3)")}, \
333 {"no-etrax4", -TARGET_MASK_ETRAX4_ADD, ""}, \
334 {"etrax100", (TARGET_MASK_SVINTO \
335 + TARGET_MASK_ETRAX4_ADD \
336 + TARGET_MASK_ALIGN_BY_32), \
337 N_("Compile for ETRAX 100 (CRIS v8)")}, \
338 {"no-etrax100", -(TARGET_MASK_SVINTO \
339 + TARGET_MASK_ETRAX4_ADD), ""}, \
340 {"pdebug", TARGET_MASK_PDEBUG, \
341 N_("Emit verbose debug information in assembly code")}, \
342 {"no-pdebug", -TARGET_MASK_PDEBUG, ""}, \
343 {"cc-init", TARGET_MASK_CCINIT, \
344 N_("Do not use condition codes from normal instructions")}, \
345 {"no-cc-init", -TARGET_MASK_CCINIT, ""}, \
346 {"side-effects", TARGET_MASK_SIDE_EFFECT_PREFIXES, ""}, \
347 {"no-side-effects", -TARGET_MASK_SIDE_EFFECT_PREFIXES, \
348 N_("Do not emit addressing modes with side-effect assignment")}, \
349 {"stack-align", TARGET_MASK_STACK_ALIGN, ""}, \
350 {"no-stack-align", -TARGET_MASK_STACK_ALIGN, \
351 N_("Do not tune stack alignment")}, \
352 {"data-align", TARGET_MASK_DATA_ALIGN, ""}, \
353 {"no-data-align", -TARGET_MASK_DATA_ALIGN, \
354 N_("Do not tune writable data alignment")}, \
355 {"const-align", TARGET_MASK_CONST_ALIGN, ""}, \
356 {"no-const-align", -TARGET_MASK_CONST_ALIGN, \
357 N_("Do not tune code and read-only data alignment")}, \
358 {"32-bit", (TARGET_MASK_STACK_ALIGN \
359 + TARGET_MASK_CONST_ALIGN \
360 + TARGET_MASK_DATA_ALIGN \
361 + TARGET_MASK_ALIGN_BY_32), ""}, \
362 {"32bit", (TARGET_MASK_STACK_ALIGN \
363 + TARGET_MASK_CONST_ALIGN \
364 + TARGET_MASK_DATA_ALIGN \
365 + TARGET_MASK_ALIGN_BY_32), \
366 N_("Align code and data to 32 bits")}, \
367 {"16-bit", (TARGET_MASK_STACK_ALIGN \
368 + TARGET_MASK_CONST_ALIGN \
369 + TARGET_MASK_DATA_ALIGN), ""}, \
370 {"16bit", (TARGET_MASK_STACK_ALIGN \
371 + TARGET_MASK_CONST_ALIGN \
372 + TARGET_MASK_DATA_ALIGN), ""}, \
373 {"8-bit", -(TARGET_MASK_STACK_ALIGN \
374 + TARGET_MASK_CONST_ALIGN \
375 + TARGET_MASK_DATA_ALIGN), ""}, \
376 {"8bit", -(TARGET_MASK_STACK_ALIGN \
377 + TARGET_MASK_CONST_ALIGN \
378 + TARGET_MASK_DATA_ALIGN), \
379 N_("Don't align items in code or data")}, \
380 {"prologue-epilogue", TARGET_MASK_PROLOGUE_EPILOGUE, ""}, \
381 {"no-prologue-epilogue", -TARGET_MASK_PROLOGUE_EPILOGUE, \
382 N_("Do not emit function prologue or epilogue")}, \
383 /* We have to handle this m-option here since we can't wash it off in \
384 both CC1_SPEC and CC1PLUS_SPEC. */ \
385 {"best-lib-options", 0, \
386 N_("Use the most feature-enabling options allowed by other options")}, \
388 /* We must call it "override-" since calling it "no-" will cause \
389 gcc.c to forget it, if there's a "later" -mbest-lib-options. \
390 Kludgy, but needed for some multilibbed files. */ \
391 {"override-best-lib-options", 0, \
392 N_("Override -mbest-lib-options")}, \
393 CRIS_SUBTARGET_SWITCHES \
394 {"", TARGET_DEFAULT | CRIS_SUBTARGET_DEFAULT, ""}} \
396 /* For the cris-*-elf subtarget. */
397 #define CRIS_SUBTARGET_SWITCHES \
400 /* Default target_flags if no switches specified. */
401 #ifndef TARGET_DEFAULT
402 # define TARGET_DEFAULT \
403 (TARGET_MASK_SIDE_EFFECT_PREFIXES + TARGET_MASK_STACK_ALIGN \
404 + TARGET_MASK_CONST_ALIGN + TARGET_MASK_DATA_ALIGN \
405 + TARGET_MASK_PROLOGUE_EPILOGUE)
408 /* For the cris-*-elf subtarget. */
409 #define CRIS_SUBTARGET_DEFAULT TARGET_MASK_ELF
411 #define CRIS_CPU_BASE 0
412 #define CRIS_CPU_ETRAX4 3 /* Just lz added. */
413 #define CRIS_CPU_SVINTO 8 /* Added swap, jsrc & Co., 32-bit accesses. */
414 #define CRIS_CPU_NG 10 /* Added mul[su]. */
416 /* Local, providing a default for cris_cpu_version. */
417 #define CRIS_DEFAULT_CPU_VERSION CRIS_CPU_BASE
419 #define TARGET_HAS_MUL_INSNS (cris_cpu_version >= CRIS_CPU_NG)
421 #define TARGET_OPTIONS \
422 {{"cpu=", &cris_cpu_str, ""}, \
423 {"arch=", &cris_cpu_str, \
424 N_("Generate code for the specified chip or CPU version")}, \
425 {"tune=", &cris_tune_str, \
426 N_("Tune alignment for the specified chip or CPU version")}, \
427 {"max-stackframe=", &cris_max_stackframe_str, \
428 N_("Warn when a stackframe is larger than the specified size")}, \
429 CRIS_SUBTARGET_LONG_OPTIONS \
430 {"ax-stackframe=", &cris_max_stackframe_str, ""}}
432 #define CRIS_SUBTARGET_LONG_OPTIONS
434 /* Print subsidiary information on the compiler version in use.
435 Do not use VD.D syntax (D=digit), since this will cause confusion
436 with the base gcc version among users, when we ask which version of
437 gcc-cris they are using. Please use some flavor of "R<number>" for
438 the version (no need for major.minor versions, I believe). */
439 #define TARGET_VERSION \
440 fprintf (stderr, " [Axis CRIS release R36a%s]", CRIS_SUBTARGET_VERSION)
442 /* For the cris-*-elf subtarget. */
443 #define CRIS_SUBTARGET_VERSION " - generic ELF"
445 #define OVERRIDE_OPTIONS cris_override_options ()
447 /* The following gives optimal code for gcc-2.7.2, but *may* be subject
448 to change. Omitting flag_force_addr gives .1-.7% faster code for gcc
449 *only*, but 1.3% larger code. On ipps it gives 5.3-10.6% slower
450 code(!) and 0.3% larger code. For products, images gets .1-1.8%
451 larger. Do not set strict aliasing from optimization options. */
452 #define OPTIMIZATION_OPTIONS(OPTIMIZE, SIZE) \
455 if ((OPTIMIZE) >= 2 || (SIZE)) \
457 flag_force_addr = 1; \
458 flag_omit_frame_pointer = 1; \
464 /* Node: Storage Layout */
466 #define BITS_BIG_ENDIAN 0
468 #define BYTES_BIG_ENDIAN 0
470 /* WORDS_BIG_ENDIAN is not defined in the hardware, but for consistency,
471 we use little-endianness, and we may also be able to use
472 post-increment on DImode indirect. */
473 #define WORDS_BIG_ENDIAN 0
475 #define BITS_PER_UNIT 8
477 #define BITS_PER_WORD 32
479 #define UNITS_PER_WORD 4
481 #define POINTER_SIZE 32
483 /* A combination of defining PROMOTE_MODE, PROMOTE_FUNCTION_ARGS,
484 PROMOTE_FOR_CALL_ONLY and *not* defining PROMOTE_PROTOTYPES gives the
485 best code size and speed for gcc, ipps and products in gcc-2.7.2. */
486 #define CRIS_PROMOTED_MODE(MODE, UNSIGNEDP, TYPE) \
487 (GET_MODE_CLASS (MODE) == MODE_INT && GET_MODE_SIZE (MODE) < 4) \
490 #define PROMOTE_MODE(MODE, UNSIGNEDP, TYPE) \
491 (MODE) = CRIS_PROMOTED_MODE (MODE, UNSIGNEDP, TYPE)
493 #define PROMOTE_FUNCTION_ARGS
495 /* Defining PROMOTE_FUNCTION_RETURN in gcc-2.7.2 uncovers bug 981110 (even
496 if defining FUNCTION_VALUE with MODE as PROMOTED_MODE ;-)
498 FIXME: Report this when cris.h is part of GCC, so others can easily
499 see the problem. Maybe check other systems that define
500 PROMOTE_FUNCTION_RETURN. */
501 #define PROMOTE_FOR_CALL_ONLY
503 /* We will be using prototype promotion, so they will be 32 bit. */
504 #define PARM_BOUNDARY 32
506 /* Stack boundary is guided by -mstack-align, -mno-stack-align,
508 Old comment: (2.1: still valid in 2.7.2?)
509 Note that to make this macro affect the alignment of stack
510 locals, a fix was required, and special precautions when handling
511 the stack pointer in various other macros (TARGET_ASM_FUNCTION_PROLOGUE
512 et al) were required. See file "function.c". If you would just define
513 this macro, it would only affect the builtin alloca and variable
514 local data (non-ANSI, non-K&R, Gnu C extension). */
515 #define STACK_BOUNDARY \
516 (TARGET_STACK_ALIGN ? (TARGET_ALIGN_BY_32 ? 32 : 16) : 8)
518 #define FUNCTION_BOUNDARY 16
520 /* Do not change BIGGEST_ALIGNMENT (when optimizing), as it will affect
521 strange places, at least in 2.1. */
522 #define BIGGEST_ALIGNMENT 8
524 /* If -m16bit, -m16-bit, -malign or -mdata-align,
525 align everything to 16 bit. */
526 #define DATA_ALIGNMENT(TYPE, BASIC_ALIGN) \
528 ? (TARGET_ALIGN_BY_32 \
529 ? (BASIC_ALIGN < 32 ? 32 : BASIC_ALIGN) \
530 : (BASIC_ALIGN < 16 ? 16 : BASIC_ALIGN)) : BASIC_ALIGN)
532 /* Note that CONSTANT_ALIGNMENT has the effect of making gcc believe that
533 ALL references to constant stuff (in code segment, like strings) has
534 this alignment. That is a rather rushed assumption. Luckily we do not
535 care about the "alignment" operand to builtin memcpy (only place where
536 it counts), so it doesn't affect any bad spots. */
537 #define CONSTANT_ALIGNMENT(CONSTANT, BASIC_ALIGN) \
538 (TARGET_CONST_ALIGN \
539 ? (TARGET_ALIGN_BY_32 \
540 ? (BASIC_ALIGN < 32 ? 32 : BASIC_ALIGN) \
541 : (BASIC_ALIGN < 16 ? 16 : BASIC_ALIGN)) : BASIC_ALIGN)
543 /* FIXME: Define LOCAL_ALIGNMENT for word and dword or arrays and
544 structures (if -mstack-align=), and check that it is good. */
546 #define EMPTY_FIELD_BOUNDARY 8
548 #define STRUCTURE_SIZE_BOUNDARY 8
550 #define STRICT_ALIGNMENT 0
552 /* Remove any previous definition (elfos.h).
553 ??? If it wasn't for all the other stuff that affects layout of
554 structures and bit-fields, this could presumably cause incompatibility
555 with other GNU/Linux ports (i.e. elfos.h users). */
556 #undef PCC_BITFIELD_TYPE_MATTERS
558 /* This is only used for non-scalars. Strange stuff happens to structs
559 (FIXME: What?) if we use anything larger than largest actually used
560 datum size, so lets make it 32. The type "long long" will still work
561 as usual. We can still have DImode insns, but they will only be used
562 for scalar data (i.e. long long). */
563 #define MAX_FIXED_MODE_SIZE 32
566 /* Node: Type Layout */
568 /* Note that DOUBLE_TYPE_SIZE is not defined anymore, since the default
569 value gives a 64-bit double, which is what we now use. */
571 /* For compatibility and historical reasons, a char should be signed. */
572 #define DEFAULT_SIGNED_CHAR 1
574 /* No DEFAULT_SHORT_ENUMS, please. */
576 /* Note that WCHAR_TYPE_SIZE is used in cexp.y,
577 where TARGET_SHORT is not available. */
579 #define WCHAR_TYPE "long int"
581 #undef WCHAR_TYPE_SIZE
582 #define WCHAR_TYPE_SIZE 32
585 /* Node: Register Basics */
587 /* We count all 16 non-special registers, SRP and a faked argument
589 #define FIRST_PSEUDO_REGISTER (16 + 1 + 1)
591 /* For CRIS, these are r15 (pc) and r14 (sp). Register r8 is used as a
592 frame-pointer, but is not fixed. SRP is not included in general
593 registers and will not be used automatically. All other special
594 registers are fixed at the moment. The faked argument pointer register
596 #define FIXED_REGISTERS \
597 {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 1}
599 /* Register r9 is used for structure-address, r10-r13 for parameters,
600 r10- for return values. */
601 #define CALL_USED_REGISTERS \
602 {0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1}
604 #define CONDITIONAL_REGISTER_USAGE cris_conditional_register_usage ()
607 /* Node: Allocation Order */
609 /* We need this on CRIS, because call-used regs should be used first,
610 (so we don't need to push). Else start using registers from r0 and up.
611 This preference is mainly because if we put call-used-regs from r0
612 and up, then we can't use movem to push the rest, (which have to be
613 saved if we use them, and movem has to start with r0).
614 Change here if you change which registers to use as call registers.
616 The actual need to explicitly prefer call-used registers improved the
617 situation a lot for 2.1, but might not actually be needed anymore.
618 Still, this order reflects what GCC should find out by itself, so it
619 probably does not hurt.
621 Order of preference: Call-used-regs first, then r0 and up, last fp &
623 Call-used regs in opposite order, so they will cause less conflict if
624 a function has few args (<= 3) and it wants a scratch reg.
625 Use struct-return address first, since very few functions use
626 structure return values so it is likely to be available. */
627 #define REG_ALLOC_ORDER \
628 {9, 13, 12, 11, 10, 0, 1, 2, 3, 4, 5, 6, 7, 8, 14, 15, 16, 17}
631 /* Node: Values in Registers */
633 /* The VOIDmode test is so we can omit mode on anonymous insns. FIXME:
634 Still needed in 2.9x, at least for Axis-20000319. */
635 #define HARD_REGNO_NREGS(REGNO, MODE) \
637 ? 1 : ((GET_MODE_SIZE (MODE) + UNITS_PER_WORD - 1) / UNITS_PER_WORD))
639 /* CRIS permits all registers to hold all modes. */
640 #define HARD_REGNO_MODE_OK(REGNO, MODE) 1
642 #define MODES_TIEABLE_P(MODE1, MODE2) 1
645 /* Node: Leaf Functions */
646 /* (no definitions) */
648 /* Node: Stack Registers */
649 /* (no definitions) */
652 /* Node: Register Classes */
654 /* CRIS has only one kind of registers, so NO_REGS and ALL_REGS
655 are the only classes. FIXME: It actually makes sense to have another
656 class for special registers, and yet another class for the
657 multiply-overflow register in v10; then a class for the return
658 register also makes sense. */
659 enum reg_class {NO_REGS, ALL_REGS, LIM_REG_CLASSES};
661 #define N_REG_CLASSES (int) LIM_REG_CLASSES
663 #define REG_CLASS_NAMES {"NO_REGS", "ALL_REGS"}
665 #define GENERAL_REGS ALL_REGS
667 /* Count in the faked argument register in GENERAL_REGS. Keep out SRP. */
668 #define REG_CLASS_CONTENTS {{0}, {0x2ffff}}
670 #define REGNO_REG_CLASS(REGNO) GENERAL_REGS
672 #define BASE_REG_CLASS GENERAL_REGS
674 #define INDEX_REG_CLASS GENERAL_REGS
676 /* Get reg_class from a letter such as appears in the machine
677 description. No letters are used, since 'r' is used for any
679 #define REG_CLASS_FROM_LETTER(C) NO_REGS
681 /* Since it uses reg_renumber, it is safe only once reg_renumber
682 has been allocated, which happens in local-alloc.c. */
683 #define REGNO_OK_FOR_BASE_P(REGNO) \
684 ((REGNO) <= CRIS_LAST_GENERAL_REGISTER \
685 || (REGNO) == ARG_POINTER_REGNUM \
686 || (unsigned) reg_renumber[REGNO] <= CRIS_LAST_GENERAL_REGISTER \
687 || (unsigned) reg_renumber[REGNO] == ARG_POINTER_REGNUM)
689 /* See REGNO_OK_FOR_BASE_P. */
690 #define REGNO_OK_FOR_INDEX_P(REGNO) REGNO_OK_FOR_BASE_P(REGNO)
692 /* It seems like gcc (2.7.2 and 2.9x of 2000-03-22) may send "NO_REGS" as
693 the class for a constant (testcase: __Mul in arit.c). To avoid forcing
694 out a constant into the constant pool, we will trap this case and
695 return something a bit more sane. FIXME: Check if this is a bug. */
696 #define PREFERRED_RELOAD_CLASS(X, CLASS) \
697 ((CLASS) == NO_REGS ? GENERAL_REGS : (CLASS))
699 /* For CRIS, this is always the size of MODE in words,
700 since all registers are the same size. To use omitted modes in
701 patterns with reload constraints, you must say the widest size
702 which is allowed for VOIDmode.
703 FIXME: Does that still apply for gcc-2.9x? Keep poisoned until such
704 patterns are added back. News: 2001-03-16: Happens as early as the
706 #define CLASS_MAX_NREGS(CLASS, MODE) \
707 ((MODE) == VOIDmode \
708 ? 1 /* + cris_fatal ("CLASS_MAX_NREGS with VOIDmode") */ \
709 : ((GET_MODE_SIZE (MODE) + UNITS_PER_WORD - 1) / UNITS_PER_WORD))
711 /* We are now out of letters; we could use ten more. This forces us to
712 use C-code in the 'md' file. FIXME: Use some EXTRA_CONSTRAINTS. */
713 #define CONST_OK_FOR_LETTER_P(VALUE, C) \
715 /* MOVEQ, CMPQ, ANDQ, ORQ. */ \
716 (C) == 'I' ? (VALUE) >= -32 && (VALUE) <= 31 : \
718 (C) == 'J' ? (VALUE) >= 0 && (VALUE) <= 63 : \
719 /* ASRQ, BTSTQ, LSRQ, LSLQ. */ \
720 (C) == 'K' ? (VALUE) >= 0 && (VALUE) <= 31 : \
721 /* A 16-bit signed number. */ \
722 (C) == 'L' ? (VALUE) >= -32768 && (VALUE) <= 32767 : \
723 /* The constant 0 for CLEAR. */ \
724 (C) == 'M' ? (VALUE) == 0 : \
725 /* A negative ADDQ or SUBQ. */ \
726 (C) == 'N' ? (VALUE) >= -63 && (VALUE) < 0 : \
727 /* Quickened ints, QI and HI. */ \
728 (C) == 'O' ? (VALUE) >= 0 && (VALUE) <= 65535 \
729 && ((VALUE) >= (65535-31) \
730 || ((VALUE) >= (255-31) \
731 && (VALUE) <= 255 )) : \
732 /* A 16-bit number signed *or* unsigned. */ \
733 (C) == 'P' ? (VALUE) >= -32768 && (VALUE) <= 65535 : \
736 /* It is really simple to make up a 0.0; it is the same as int-0 in
738 #define CONST_DOUBLE_OK_FOR_LETTER_P(VALUE, C) \
739 ((C) == 'G' && ((VALUE) == CONST0_RTX (DFmode) \
740 || (VALUE) == CONST0_RTX (SFmode)))
742 /* We need this on cris to distinguish delay-slottable addressing modes. */
743 #define EXTRA_CONSTRAINT(X, C) \
745 /* Slottable address mode? */ \
746 (C) == 'Q' ? EXTRA_CONSTRAINT_Q (X) : \
747 /* Operand to BDAP or BIAP? */ \
748 (C) == 'R' ? EXTRA_CONSTRAINT_R (X) : \
749 /* A local PIC symbol? */ \
750 (C) == 'S' ? EXTRA_CONSTRAINT_S (X) : \
751 /* A three-address addressing-mode? */ \
752 (C) == 'T' ? EXTRA_CONSTRAINT_T (X) : \
753 /* A global PIC symbol? */ \
754 (C) == 'U' ? EXTRA_CONSTRAINT_U (X) : \
757 #define EXTRA_CONSTRAINT_Q(X) \
759 /* Slottable addressing modes: \
760 A register? FIXME: Unnecessary. */ \
761 (BASE_P (X) && REGNO (X) != CRIS_PC_REGNUM) \
762 /* Indirect register: [reg]? */ \
763 || (GET_CODE (X) == MEM && BASE_P (XEXP (X, 0)) \
764 && REGNO (XEXP (X, 0)) != CRIS_PC_REGNUM) \
767 #define EXTRA_CONSTRAINT_R(X) \
769 /* An operand to BDAP or BIAP: \
772 /* A [reg] or (int) [reg], maybe with post-increment. */ \
773 || BDAP_INDEX_P (X) \
774 || CONSTANT_INDEX_P (X) \
777 #define EXTRA_CONSTRAINT_T(X) \
779 /* Memory three-address operand. All are indirect-memory: */ \
780 GET_CODE (X) == MEM \
781 && ((GET_CODE (XEXP (X, 0)) == MEM \
782 /* Double indirect: [[reg]] or [[reg+]]? */ \
783 && (BASE_OR_AUTOINCR_P (XEXP (XEXP (X, 0), 0)))) \
784 /* Just an explicit indirect reference: [const]? */ \
785 || CONSTANT_P (XEXP (X, 0)) \
786 /* Something that is indexed; [...+...]? */ \
787 || (GET_CODE (XEXP (X, 0)) == PLUS \
788 /* A BDAP constant: [reg+(8|16|32)bit offset]? */ \
789 && ((BASE_P (XEXP (XEXP (X, 0), 0)) \
790 && CONSTANT_INDEX_P (XEXP (XEXP (X, 0), 1))) \
791 /* Swap arguments to the above. FIXME: gcc-2.9x? */ \
792 || (BASE_P (XEXP (XEXP (X, 0), 1)) \
793 && CONSTANT_INDEX_P (XEXP (XEXP (X, 0), 0))) \
794 /* A BDAP register: [reg+[reg(+)].S]? */ \
795 || (BASE_P (XEXP (XEXP (X, 0), 0)) \
796 && BDAP_INDEX_P(XEXP(XEXP(X, 0), 1))) \
797 /* Same, but with swapped arguments. */ \
798 || (BASE_P (XEXP (XEXP (X, 0), 1)) \
799 && BDAP_INDEX_P (XEXP (XEXP (X, 0), 0))) \
800 /* A BIAP: [reg+reg.S]. */ \
801 || (BASE_P (XEXP (XEXP (X, 0), 0)) \
802 && BIAP_INDEX_P (XEXP (XEXP (X, 0), 1))) \
803 /* Same, but with swapped arguments. */ \
804 || (BASE_P (XEXP (XEXP (X, 0), 1)) \
805 && BIAP_INDEX_P (XEXP (XEXP (X, 0), 0)))))) \
808 #define EXTRA_CONSTRAINT_S(X) \
809 (flag_pic && CONSTANT_P (X) && cris_gotless_symbol (X))
811 #define EXTRA_CONSTRAINT_U(X) \
812 (flag_pic && CONSTANT_P (X) && cris_got_symbol (X))
815 /* Node: Frame Layout */
817 #define STACK_GROWS_DOWNWARD
818 #define FRAME_GROWS_DOWNWARD
820 /* It seems to be indicated in the code (at least 2.1) that this is
821 better a constant, and best 0. */
822 #define STARTING_FRAME_OFFSET 0
824 #define FIRST_PARM_OFFSET(FNDECL) 0
826 #define RETURN_ADDR_RTX(COUNT, FRAMEADDR) \
827 cris_return_addr_rtx (COUNT, FRAMEADDR)
829 #define INCOMING_RETURN_ADDR_RTX gen_rtx (REG, Pmode, CRIS_SRP_REGNUM)
831 /* FIXME: Any __builtin_eh_return callers must not return anything and
832 there must not be collisions with incoming parameters. Luckily the
833 number of __builtin_eh_return callers is limited. For now return
834 parameter registers in reverse order and hope for the best. */
835 #define EH_RETURN_DATA_REGNO(N) \
836 (IN_RANGE ((N), 0, 3) ? (CRIS_FIRST_ARG_REG + 3 - (N)) : INVALID_REGNUM)
838 /* Store the stack adjustment in the structure-return-address register. */
839 #define CRIS_STACKADJ_REG STRUCT_VALUE_REGNUM
840 #define EH_RETURN_STACKADJ_RTX gen_rtx_REG (SImode, CRIS_STACKADJ_REG)
842 #define EH_RETURN_HANDLER_RTX \
843 cris_return_addr_rtx (0, NULL)
845 #define INIT_EXPANDERS cris_init_expanders ()
847 /* FIXME: Move this to right node (it's not documented properly yet). */
848 #define DWARF_FRAME_RETURN_COLUMN DWARF_FRAME_REGNUM (CRIS_SRP_REGNUM)
850 /* FIXME: Move this to right node (it's not documented properly yet).
851 FIXME: Check what alignment we can assume regarding
852 TARGET_STACK_ALIGN and TARGET_ALIGN_BY_32. */
853 #define DWARF_CIE_DATA_ALIGNMENT -1
855 /* If we would ever need an exact mapping between canonical register
856 number and dwarf frame register, we would either need to include all
857 registers in the gcc decription (with some marked fixed of course), or
858 an inverse mapping from dwarf register to gcc register. There is one
859 need in dwarf2out.c:expand_builtin_init_dwarf_reg_sizes. Right now, I
860 don't see that we need exact correspondence between DWARF *frame*
861 registers and DBX_REGISTER_NUMBER, so map them onto GCC registers. */
862 #define DWARF_FRAME_REGNUM(REG) (REG)
864 /* Node: Stack Checking */
865 /* (no definitions) FIXME: Check. */
867 /* Node: Frame Registers */
869 #define STACK_POINTER_REGNUM 14
871 /* Register used for frame pointer. This is also the last of the saved
872 registers, when a frame pointer is not used. */
873 #define FRAME_POINTER_REGNUM 8
875 /* Faked register, is always eliminated. We need it to eliminate
876 allocating stack slots for the return address and the frame pointer. */
877 #define ARG_POINTER_REGNUM 17
879 #define STATIC_CHAIN_REGNUM 7
882 /* Node: Elimination */
884 /* Really only needed if the stack frame has variable length (alloca
885 or variable sized local arguments (GNU C extension). */
886 #define FRAME_POINTER_REQUIRED 0
888 #define ELIMINABLE_REGS \
889 {{ARG_POINTER_REGNUM, STACK_POINTER_REGNUM}, \
890 {ARG_POINTER_REGNUM, FRAME_POINTER_REGNUM}, \
891 {FRAME_POINTER_REGNUM, STACK_POINTER_REGNUM}}
893 /* We need not worry about when the frame-pointer is required for other
895 #define CAN_ELIMINATE(FROM, TO) 1
897 #define INITIAL_ELIMINATION_OFFSET(FROM, TO, OFFSET) \
898 (OFFSET) = cris_initial_elimination_offset (FROM, TO)
901 /* Node: Stack Arguments */
903 /* Since many parameters take up one register each in any case,
904 PROMOTE_PROTOTYPES would seem like a good idea, but measurements
905 indicate that a combination using PROMOTE_MODE is better. */
907 #define ACCUMULATE_OUTGOING_ARGS 1
909 #define RETURN_POPS_ARGS(FUNDECL, FUNTYPE, STACKSIZE) 0
912 /* Node: Register Arguments */
914 /* The void_type_node is sent as a "closing" call. We have to stop it
915 since it's invalid to FUNCTION_ARG_PASS_BY_REFERENCE (or was invalid at
917 #define FUNCTION_ARG(CUM, MODE, TYPE, NAMED) \
918 ((CUM).regs < CRIS_MAX_ARGS_IN_REGS \
919 && (TYPE) != void_type_node \
920 && ! FUNCTION_ARG_PASS_BY_REFERENCE (CUM, MODE, TYPE, NAMED) \
921 ? gen_rtx (REG, MODE, (CRIS_FIRST_ARG_REG) + (CUM).regs) \
924 /* The differences between this and the previous, is that this one checks
925 that an argument is named, since incoming stdarg/varargs arguments are
926 pushed onto the stack, and we don't have to check against the "closing"
927 void_type_node TYPE parameter. */
928 #define FUNCTION_INCOMING_ARG(CUM, MODE, TYPE, NAMED) \
929 (((NAMED) && (CUM).regs < CRIS_MAX_ARGS_IN_REGS \
930 && ! FUNCTION_ARG_PASS_BY_REFERENCE (CUM, MODE, TYPE, NAMED)) \
931 ? gen_rtx (REG, MODE, CRIS_FIRST_ARG_REG + (CUM).regs) \
934 #define FUNCTION_ARG_PARTIAL_NREGS(CUM, MODE, TYPE, NAMED) \
935 (((CUM).regs == (CRIS_MAX_ARGS_IN_REGS - 1) \
936 && !MUST_PASS_IN_STACK (MODE, TYPE) \
937 && CRIS_FUNCTION_ARG_SIZE (MODE, TYPE) > 4 \
938 && CRIS_FUNCTION_ARG_SIZE (MODE, TYPE) <= 8) \
941 /* Structs may be passed by value, but they must not be more than 8
943 #define FUNCTION_ARG_PASS_BY_REFERENCE(CUM, MODE, TYPE, NAMED) \
944 (MUST_PASS_IN_STACK (MODE, TYPE) \
945 || CRIS_FUNCTION_ARG_SIZE (MODE, TYPE) > 8) \
947 /* Contrary to what you'd believe, defining FUNCTION_ARG_CALLEE_COPIES
948 seems like a (small total) loss, at least for gcc-2.7.2 compiling and
949 running gcc-2.1 (small win in size, small loss running -- 100.1%),
950 and similarly for size for products (.1 .. .3% bloat, sometimes win).
951 Due to the empirical likeliness of making slower code, it is not
954 /* This no longer *needs* to be a structure; but keeping it as such should
955 not hurt (and hacking the ABI is simpler). */
956 #define CUMULATIVE_ARGS struct cum_args
957 struct cum_args {int regs;};
959 /* The regs member is an integer, the number of arguments got into
960 registers so far, and lib is nonzero if init_cumulative_args was
961 found to generate a call to a library function. */
962 #define INIT_CUMULATIVE_ARGS(CUM, FNTYPE, LIBNAME, INDIRECT) \
965 #define FUNCTION_ARG_ADVANCE(CUM, MODE, TYPE, NAMED) \
967 = (FUNCTION_ARG_PASS_BY_REFERENCE(CUM, MODE, TYPE, NAMED) \
968 ? (CRIS_MAX_ARGS_IN_REGS) + 1 \
970 + (3 + (CRIS_FUNCTION_ARG_SIZE (MODE, TYPE))) / 4)))
972 #define FUNCTION_ARG_REGNO_P(REGNO) \
973 ((REGNO) >= CRIS_FIRST_ARG_REG \
974 && (REGNO) < CRIS_FIRST_ARG_REG + (CRIS_MAX_ARGS_IN_REGS))
977 /* Node: Scalar Return */
979 /* Let's assume all functions return in r[CRIS_FIRST_ARG_REG] for the
981 #define FUNCTION_VALUE(VALTYPE, FUNC) \
982 gen_rtx (REG, TYPE_MODE (VALTYPE), CRIS_FIRST_ARG_REG)
984 #define LIBCALL_VALUE(MODE) gen_rtx (REG, MODE, CRIS_FIRST_ARG_REG)
986 #define FUNCTION_VALUE_REGNO_P(N) ((N) == CRIS_FIRST_ARG_REG)
989 /* Node: Aggregate Return */
992 /* FIXME: Let's try this some time, so we return structures in registers.
993 We would cast the result of int_size_in_bytes to unsigned, so we will
994 get a huge number for "structures" of variable size (-1). */
995 #define RETURN_IN_MEMORY(TYPE) \
996 ((unsigned) int_size_in_bytes (TYPE) > CRIS_MAX_ARGS_IN_REGS * UNITS_PER_WORD)
999 #define STRUCT_VALUE_REGNUM ((CRIS_FIRST_ARG_REG) - 1)
1002 /* Node: Caller Saves */
1003 /* (no definitions) */
1005 /* Node: Function entry */
1007 /* See cris.c for TARGET_ASM_FUNCTION_PROLOGUE and
1008 TARGET_ASM_FUNCTION_EPILOGUE. */
1010 /* If the epilogue uses the "ret" insn, we need to fill the
1012 #define DELAY_SLOTS_FOR_EPILOGUE cris_delay_slots_for_epilogue ()
1014 #define ELIGIBLE_FOR_EPILOGUE_DELAY(INSN, N) \
1015 cris_eligible_for_epilogue_delay (INSN)
1017 #define ASM_OUTPUT_MI_THUNK(FILE, THUNK_FNDECL, DELTA, FUNCTION) \
1018 cris_asm_output_mi_thunk(FILE, THUNK_FNDECL, DELTA, FUNCTION)
1021 /* Node: Profiling */
1023 #define FUNCTION_PROFILER(FILE, LABELNO) \
1024 error ("no FUNCTION_PROFILER for CRIS")
1026 /* No profiling for the time being. */
1027 #define FUNCTION_BLOCK_PROFILER(FILE, LABELNO) \
1028 error ("no FUNCTION_BLOCK_PROFILER for CRIS")
1030 /* No profiling for the time being. */
1031 #define BLOCK_PROFILER(FILE, BLOCKNO) \
1032 error ("no BLOCK_PROFILER for CRIS")
1034 /* FIXME: Some of the undefined macros might be mandatory. If so, fix
1040 /* We save the register number of the first anonymous argument in
1041 first_vararg_reg, and take care of this in the function prologue.
1042 This behaviour is used by at least one more port (the ARM?), but
1043 may be unsafe when compiling nested functions. (With varargs? Hairy.)
1044 Note that nested-functions is a GNU C extension.
1046 FIXME: We can actually put the size in PRETEND and deduce the number
1047 of registers from it in the prologue and epilogue. */
1048 #define SETUP_INCOMING_VARARGS(ARGSSF, MODE, TYPE, PRETEND, SECOND) \
1051 if ((ARGSSF).regs < (CRIS_MAX_ARGS_IN_REGS)) \
1052 (PRETEND) = ((CRIS_MAX_ARGS_IN_REGS) - (ARGSSF).regs) * 4; \
1053 if (TARGET_PDEBUG) \
1055 fprintf (asm_out_file, \
1056 "\n; VA:: %s: %d args before, anon @ #%d, %dtime\n", \
1057 current_function_varargs ? "OLD" : "ANSI", \
1058 (ARGSSF).regs, PRETEND, SECOND); \
1063 /* FIXME: This and other EXPAND_BUILTIN_VA_... target macros are not
1064 documented, although used by several targets. */
1065 #define EXPAND_BUILTIN_VA_ARG(VALIST, TYPE) \
1066 cris_expand_builtin_va_arg (VALIST, TYPE)
1069 /* Node: Trampolines */
1071 /* This looks too complicated, and it is. I assigned r7 to be the
1072 static chain register, but it is call-saved, so we have to save it,
1073 and come back to restore it after the call, so we have to save srp...
1074 Anyway, trampolines are rare enough that we can cope with this
1075 somewhat lack of elegance.
1076 (Do not be tempted to "straighten up" whitespace in the asms; the
1077 assembler #NO_APP state mandates strict spacing). */
1078 #define TRAMPOLINE_TEMPLATE(FILE) \
1081 fprintf (FILE, "\tmove.d $%s,[$pc+20]\n", \
1082 reg_names[STATIC_CHAIN_REGNUM]); \
1083 fprintf (FILE, "\tmove $srp,[$pc+22]\n"); \
1084 fprintf (FILE, "\tmove.d 0,$%s\n", \
1085 reg_names[STATIC_CHAIN_REGNUM]); \
1086 fprintf (FILE, "\tjsr 0\n"); \
1087 fprintf (FILE, "\tmove.d 0,$%s\n", \
1088 reg_names[STATIC_CHAIN_REGNUM]); \
1089 fprintf (FILE, "\tjump 0\n"); \
1093 #define TRAMPOLINE_SIZE 32
1095 /* CRIS wants instructions on word-boundary.
1096 Note that due to a bug (reported) in 2.7.2 and earlier, this is
1097 actually treated as alignment in _bytes_, not _bits_. (Obviously
1098 this is not fatal, only a slight waste of stack space). */
1099 #define TRAMPOLINE_ALIGNMENT 16
1101 #define INITIALIZE_TRAMPOLINE(TRAMP, FNADDR, CXT) \
1104 emit_move_insn (gen_rtx (MEM, SImode, \
1105 plus_constant (TRAMP, 10)), \
1107 emit_move_insn (gen_rtx (MEM, SImode, \
1108 plus_constant (TRAMP, 16)), \
1113 /* Note that there is no need to do anything with the cache for sake of
1117 /* Node: Library Calls */
1119 #define MULSI3_LIBCALL "__Mul"
1120 #define DIVSI3_LIBCALL "__Div"
1121 #define UDIVSI3_LIBCALL "__Udiv"
1122 #define MODSI3_LIBCALL "__Mod"
1123 #define UMODSI3_LIBCALL "__Umod"
1125 /* If you change this, you have to check whatever libraries and systems
1127 #define TARGET_EDOM 33
1130 /* Node: Addressing Modes */
1132 #define HAVE_POST_INCREMENT 1
1134 #define CONSTANT_ADDRESS_P(X) CONSTANT_P (X)
1136 #define MAX_REGS_PER_ADDRESS 2
1138 /* There are helper macros defined here which are used only in
1139 GO_IF_LEGITIMATE_ADDRESS.
1141 Note that you *have to* reject invalid addressing modes for mode
1142 MODE, even if it is legal for normal addressing modes. You cannot
1143 rely on the constraints to do this work. They can only be used to
1144 doublecheck your intentions. One example is that you HAVE TO reject
1145 (mem:DI (plus:SI (reg:SI x) (reg:SI y))) because for some reason
1146 this cannot be reloaded. (Which of course you can argue that gcc
1147 should have done.) FIXME: Strange. Check. */
1149 /* No symbol can be used as an index (or more correct, as a base) together
1150 with a register with PIC; the PIC register must be there. */
1151 #define CONSTANT_INDEX_P(X) \
1152 (CONSTANT_P (X) && !(flag_pic && cris_symbol (X)))
1154 /* True if X is a valid base register. */
1156 (REG_P (X) && REG_OK_FOR_BASE_P (X))
1158 /* True if X is a valid base register with or without autoincrement. */
1159 #define BASE_OR_AUTOINCR_P(X) \
1160 (BASE_P (X) || (GET_CODE (X) == POST_INC && BASE_P (XEXP (X, 0))))
1162 /* True if X is a valid (register) index for BDAP, i.e. [Rs].S or [Rs+].S. */
1163 #define BDAP_INDEX_P(X) \
1164 ((GET_CODE (X) == MEM && GET_MODE (X) == SImode \
1165 && BASE_OR_AUTOINCR_P (XEXP (X, 0))) \
1166 || (GET_CODE (X) == SIGN_EXTEND \
1167 && GET_CODE (XEXP (X, 0)) == MEM \
1168 && (GET_MODE (XEXP (X, 0)) == HImode \
1169 || GET_MODE (XEXP (X, 0)) == QImode) \
1170 && BASE_OR_AUTOINCR_P (XEXP (XEXP (X, 0), 0))))
1172 /* True if X is a valid (register) index for BIAP, i.e. Rd.m. */
1173 #define BIAP_INDEX_P(X) \
1174 ((BASE_P (X) && REG_OK_FOR_INDEX_P (X)) \
1175 || (GET_CODE (X) == MULT \
1176 && BASE_P (XEXP (X, 0)) \
1177 && REG_OK_FOR_INDEX_P (XEXP (X, 0)) \
1178 && GET_CODE (XEXP (X, 1)) == CONST_INT \
1179 && (INTVAL (XEXP (X, 1)) == 2 \
1180 || INTVAL (XEXP (X, 1)) == 4)))
1182 /* True if X is an address that doesn't need a prefix i.e. [Rs] or [Rs+]. */
1183 #define SIMPLE_ADDRESS_P(X) \
1185 || (GET_CODE (X) == POST_INC \
1186 && BASE_P (XEXP (X, 0))))
1188 /* A PIC operand looks like a normal symbol here. At output we dress it
1189 in "[rPIC+symbol:GOT]" (global symbol) or "rPIC+symbol:GOTOFF" (local
1190 symbol) so we exclude all addressing modes where we can't replace a
1191 plain "symbol" with that. A global PIC symbol does not fit anywhere
1192 here (but is thankfully a general_operand in itself). A local PIC
1193 symbol is valid for the plain "symbol + offset" case. */
1194 #define GO_IF_LEGITIMATE_ADDRESS(MODE, X, ADDR) \
1197 if (SIMPLE_ADDRESS_P (X)) \
1199 if (CONSTANT_P (X) \
1201 || cris_gotless_symbol (X) \
1202 || ! cris_symbol (X))) \
1205 if (GET_CODE (X) == PLUS) \
1210 if ((BASE_P (x1) && CONSTANT_INDEX_P (x2)) \
1211 || (BASE_P (x2) && CONSTANT_INDEX_P (x1)) \
1212 /* BDAP Rs[+], Rd. */ \
1213 || (GET_MODE_SIZE (MODE) <= UNITS_PER_WORD \
1214 && ((BASE_P (x1) && BDAP_INDEX_P (x2)) \
1215 || (BASE_P (x2) && BDAP_INDEX_P (x1)) \
1216 /* BIAP.m Rs, Rd */ \
1217 || (BASE_P (x1) && BIAP_INDEX_P (x2)) \
1218 || (BASE_P (x2) && BIAP_INDEX_P (x1))))) \
1221 else if (GET_CODE (X) == MEM) \
1223 /* DIP (Rs). Reject [[reg+]] and [[reg]] for \
1224 DImode (long long). */ \
1225 if (GET_MODE_SIZE (MODE) <= UNITS_PER_WORD \
1226 && (BASE_P (XEXP (X, 0)) \
1227 || BASE_OR_AUTOINCR_P (XEXP (X, 0)))) \
1232 #ifndef REG_OK_STRICT
1233 /* Nonzero if X is a hard reg that can be used as a base reg
1234 or if it is a pseudo reg. */
1235 # define REG_OK_FOR_BASE_P(X) \
1236 (REGNO (X) <= CRIS_LAST_GENERAL_REGISTER \
1237 || REGNO (X) == ARG_POINTER_REGNUM \
1238 || REGNO (X) >= FIRST_PSEUDO_REGISTER)
1240 /* Nonzero if X is a hard reg that can be used as a base reg. */
1241 # define REG_OK_FOR_BASE_P(X) REGNO_OK_FOR_BASE_P (REGNO (X))
1244 #ifndef REG_OK_STRICT
1245 /* Nonzero if X is a hard reg that can be used as an index
1246 or if it is a pseudo reg. */
1247 # define REG_OK_FOR_INDEX_P(X) REG_OK_FOR_BASE_P (X)
1249 /* Nonzero if X is a hard reg that can be used as an index. */
1250 # define REG_OK_FOR_INDEX_P(X) REGNO_OK_FOR_INDEX_P (REGNO (X))
1253 /* For now, don't do anything. GCC does a good job most often.
1255 Maybe we could do something about gcc:s misbehaviour when it
1256 recalculates frame offsets for local variables, from fp+offs to
1257 sp+offs. The resulting address expression gets screwed up
1258 sometimes, but I'm not sure that it may be fixed here, since it is
1259 already split up in several instructions (Is this still true?).
1260 FIXME: Check and adjust for gcc-2.9x. */
1261 #define LEGITIMIZE_ADDRESS(X, OLDX, MODE, WIN) {}
1263 /* Functionality import from EGCS.
1264 Kludge to solve Axis-990219: Work around imperfection in
1265 reload_load_address1:
1266 (plus (sign_extend (mem:qi (reg))) (reg))
1267 should be reloaded as (plus (reg) (reg)), not
1268 (plus (sign_extend (reg)) (reg)).
1269 There are no checks that reload_load_address_1 "reloads"
1270 addresses correctly, so invalidness is not caught or
1272 When the right thing happens, the "something_reloaded" kludge can
1273 be removed. The right thing does not appear to happen for
1274 EGCS CVS as of this date (above). */
1276 #define LEGITIMIZE_RELOAD_ADDRESS(X, MODE, OPNUM, TYPE, IND_LEVELS, WIN) \
1279 if (GET_CODE (X) == PLUS \
1280 && REG_P (XEXP (X, 1)) \
1281 && GET_CODE (XEXP (X, 0)) == SIGN_EXTEND \
1282 && GET_CODE (XEXP (XEXP (X, 0), 0)) == MEM \
1283 && (GET_MODE (XEXP (XEXP (X, 0), 0)) == HImode \
1284 || GET_MODE (XEXP (XEXP (X, 0), 0)) == QImode) \
1285 && (REG_P (XEXP (XEXP (XEXP (X, 0), 0), 0)) \
1286 || (GET_CODE (XEXP (XEXP (XEXP (X, 0), 0), 0)) \
1288 && REG_P (XEXP (XEXP (XEXP (XEXP (X, 0), 0), 0), \
1291 int something_reloaded = 0; \
1293 if (REGNO (XEXP (X, 1)) >= FIRST_PSEUDO_REGISTER) \
1295 /* Second reg is pseudo, reload it. */ \
1296 push_reload (XEXP (X, 1), NULL_RTX, &XEXP (X, 1), \
1298 GENERAL_REGS, GET_MODE (X), VOIDmode, 0, 0, \
1300 something_reloaded = 1; \
1303 if (REG_P (XEXP (XEXP (X, 0), 0)) \
1304 && (REGNO (XEXP (XEXP (X, 0), 0)) \
1305 >= FIRST_PSEUDO_REGISTER)) \
1307 /* First one is a pseudo - reload that. */ \
1308 push_reload (XEXP (XEXP (X, 0), 0), NULL_RTX, \
1309 &XEXP (XEXP (X, 0), 0), NULL, \
1311 GET_MODE (X), VOIDmode, 0, 0, OPNUM, TYPE); \
1312 something_reloaded = 1; \
1315 if (! something_reloaded \
1316 || (GET_CODE (XEXP (XEXP (X, 0), 0)) == POST_INC \
1317 && (REGNO (XEXP (XEXP (XEXP (X, 0), 0), 0)) \
1318 >= FIRST_PSEUDO_REGISTER))) \
1319 /* Reload the sign_extend. Happens if neither reg is a \
1320 pseudo, or the first one was inside post_increment. */ \
1321 push_reload (XEXP (X, 0), NULL_RTX, &XEXP (X, 0), NULL, \
1322 GENERAL_REGS, GET_MODE (X), VOIDmode, 0, 0, \
1329 /* In CRIS, only the postincrement address mode depends thus,
1330 since the increment depends on the size of the operand. */
1331 #define GO_IF_MODE_DEPENDENT_ADDRESS(ADDR, LABEL) \
1334 if (GET_CODE (ADDR) == POST_INC) \
1339 #define LEGITIMATE_CONSTANT_P(X) 1
1342 /* Node: Condition Code */
1344 #define NOTICE_UPDATE_CC(EXP, INSN) cris_notice_update_cc (EXP, INSN)
1346 /* FIXME: Maybe define CANONICALIZE_COMPARISON later, when playing with
1347 optimizations. It is needed; currently we do this with instruction
1348 patterns and NOTICE_UPDATE_CC. */
1353 #define CONST_COSTS(RTX, CODE, OUTER_CODE) \
1355 if (INTVAL (RTX) == 0) \
1357 if (INTVAL (RTX) < 32 && INTVAL (RTX) >= -32) \
1359 /* Eight or 16 bits are a word and cycle more expensive. */ \
1360 if (INTVAL (RTX) <= 32767 && INTVAL (RTX) >= -32768) \
1362 /* A 32 bit constant (or very seldom, unsigned 16 bits) costs \
1363 another word. FIXME: This isn't linear to 16 bits. */ \
1369 /* For PIC, we need a prefix (if it isn't already there), \
1370 and the PIC register. For a global PIC symbol, we also need a \
1371 read of the GOT. */ \
1373 flag_pic ? (cris_got_symbol (RTX) ? (2 + 4 + 6) : (2 + 6)) : 6; \
1374 case CONST_DOUBLE: \
1375 if (RTX != CONST0_RTX (GET_MODE (RTX) == VOIDmode ? DImode \
1376 : GET_MODE (RTX))) \
1378 /* Make 0.0 cheap, else test-insns will not be used. */ \
1381 #define RTX_COSTS(X, CODE, OUTER_CODE) \
1383 /* Identify values that are no powers of two. Powers of 2 are \
1384 taken care of already and those values should not be \
1386 if (GET_CODE (XEXP (X, 1)) != CONST_INT \
1387 || exact_log2 (INTVAL (XEXP (X, 1)) < 0)) \
1389 /* If we have a multiply insn, then the cost is between \
1390 1 and 2 "fast" instructions. */ \
1391 if (TARGET_HAS_MUL_INSNS) \
1392 return COSTS_N_INSNS (1) + COSTS_N_INSNS (1) /2; \
1394 /* Estimate as 4 + 4 * #ofbits. */ \
1395 return COSTS_N_INSNS (132); \
1402 if (GET_CODE (XEXP (X, 1)) != CONST_INT \
1403 || exact_log2 (INTVAL (XEXP (X, 1)) < 0)) \
1404 /* Estimate this as 4 + 8 * #of bits. */ \
1405 return COSTS_N_INSNS (260); \
1408 if (GET_CODE (XEXP (X, 1)) == CONST_INT \
1409 /* Two constants may actually happen before optimization. */ \
1410 && GET_CODE (XEXP (X, 0)) != CONST_INT \
1411 && !CONST_OK_FOR_LETTER_P (INTVAL (XEXP (X, 1)), 'I')) \
1413 rtx_cost (XEXP (X, 0), OUTER_CODE) + 2 \
1414 + 2 * GET_MODE_NUNITS (GET_MODE (XEXP (X, 0))); \
1416 case ZERO_EXTEND: case SIGN_EXTEND: \
1417 /* Same as move. If embedded in other insn, cost is 0. */ \
1418 return rtx_cost (XEXP (X, 0), OUTER_CODE);
1420 #define ADDRESS_COST(X) cris_address_cost (X)
1422 /* FIXME: Need to define REGISTER_MOVE_COST when more register classes are
1425 /* This isn't strictly correct for v0..3 in buswidth-8bit mode, but
1427 #define MEMORY_MOVE_COST(M, CLASS, IN) \
1428 (((M) == QImode) ? 4 : ((M) == HImode) ? 4 : 6)
1430 /* Regardless of the presence of delay slots, the default value of 1 for
1431 BRANCH_COST is the best in the range (1, 2, 3), tested with gcc-2.7.2
1432 with testcases ipps and gcc, giving smallest and fastest code. */
1434 #define SLOW_BYTE_ACCESS 0
1436 /* This is the threshold *below* which inline move sequences of
1437 word-length sizes will be emitted. The "9" will translate to
1438 (9 - 1) * 4 = 32 bytes maximum moved, but using 16 instructions
1439 (8 instruction sequences) or less. */
1440 #define MOVE_RATIO 9
1443 /* Node: Sections */
1445 #define TEXT_SECTION_ASM_OP "\t.text"
1447 #define DATA_SECTION_ASM_OP "\t.data"
1449 #define FORCE_EH_FRAME_INFO_IN_DATA_SECTION (! TARGET_ELF)
1451 /* The jump table is immediately connected to the preceding insn. */
1452 #define JUMP_TABLES_IN_TEXT_SECTION 1
1454 /* We need to code in PIC-specific flags into SYMBOL_REF_FLAG. */
1456 #define ENCODE_SECTION_INFO(EXP) cris_encode_section_info (EXP)
1458 /* We pull a little trick to register the _fini function with atexit,
1459 after (presumably) registering the eh frame info, since we don't handle
1460 _fini (a.k.a. ___fini_start) in crt0 or have a crti for "pure" ELF. */
1462 #define FORCE_INIT_SECTION_ALIGN \
1465 extern void __fini__start (void); \
1466 atexit (__fini__start); \
1473 #define PIC_OFFSET_TABLE_REGNUM 0
1475 #define LEGITIMATE_PIC_OPERAND_P(X) cris_legitimate_pic_operand (X)
1478 /* Node: File Framework */
1480 /* NO_APP *only at file start* means faster assembly.
1481 It also means comments are not allowed.
1482 In some cases comments will be output for debugging purposes.
1483 Make sure they are allowed then. */
1484 /* Override previous definitions (elfos.h). */
1485 #undef ASM_FILE_START
1486 #define ASM_FILE_START(STREAM) \
1489 if (TARGET_PDEBUG || flag_print_asm_name) \
1490 fprintf ((STREAM), "#APP\n"); \
1492 fprintf ((STREAM), "#NO_APP\n"); \
1494 output_file_directive ((STREAM), main_input_filename); \
1498 /* Override previous definitions (elfos.h). */
1500 #define ASM_FILE_END(STREAM)
1502 /* We don't want an .ident for gcc. To avoid that but still support
1503 #ident, we override ASM_OUTPUT_IDENT and, since the gcc .ident is its
1504 only use besides ASM_OUTPUT_IDENT, undef IDENT_ASM_OP from elfos.h. */
1506 #undef ASM_OUTPUT_IDENT
1507 #define ASM_OUTPUT_IDENT(FILE, NAME) \
1508 fprintf (FILE, "%s\"%s\"\n", "\t.ident\t", NAME);
1510 #define ASM_APP_ON "#APP\n"
1512 #define ASM_APP_OFF "#NO_APP\n"
1515 /* Node: Data Output */
1517 /* We must use REAL_VALUE_TO_TARGET_SINGLE and
1518 REAL_VALUE_TO_TARGET_LONG_DOUBLE. It seems real.h cannot support when
1519 target-double is target-single is 32bit-single. */
1520 #define ASM_OUTPUT_LONG_DOUBLE(FILE, VALUE) \
1524 REAL_VALUE_TO_TARGET_LONG_DOUBLE (VALUE, l); \
1525 fprintf (FILE, "\t.dword 0x%lx\n", l[0]); \
1526 fprintf (FILE, "\t.dword 0x%lx\n", l[1]); \
1530 /* FIXME: The manual says "array of long:s", but
1531 REAL_VALUE_TO_TARGET_SINGLE actually writes a long. */
1532 #define ASM_OUTPUT_FLOAT(FILE, VALUE) \
1536 REAL_VALUE_TO_TARGET_SINGLE (VALUE, l); \
1537 fprintf (FILE, "\t.dword 0x%lx\n", l); \
1541 /* This is what is used by gcc for 64-bit floats,
1542 not the "long double" one. */
1543 #define ASM_OUTPUT_DOUBLE(FILE, VALUE) \
1544 ASM_OUTPUT_LONG_DOUBLE (FILE, VALUE)
1547 /* This is a kludge for a.out+ELF support: For non-ELF prioritized
1548 [cd]tors, globalize the function so collect2 can collect it. This is
1549 due to short-sightedness guided by defined (ASM_OUTPUT_SECTION_NAME)
1550 && defined (ASM_OUTPUT_CONSTRUCTOR). */
1552 #define ASM_OUTPUT_INT(FILE, VALUE) \
1555 fprintf (FILE, "\t.dword "); \
1556 output_addr_const (FILE, (VALUE)); \
1557 fprintf (FILE, "\n"); \
1561 #define ASM_OUTPUT_SHORT(FILE, VALUE) \
1564 fprintf (FILE, "\t.word "); \
1565 output_addr_const (FILE, (VALUE)); \
1566 fprintf (FILE, "\n"); \
1570 #define ASM_OUTPUT_CHAR(FILE, VALUE) \
1573 fprintf (FILE, "\t.byte "); \
1574 output_addr_const (FILE, (VALUE)); \
1575 fprintf (FILE, "\n"); \
1579 #define ASM_OUTPUT_BYTE(FILE, VALUE) \
1580 fprintf (FILE, "\t.byte 0x%x\n", (VALUE))
1582 #define IS_ASM_LOGICAL_LINE_SEPARATOR(C) (C) == '@'
1584 /* FIXME: These are undocumented. */
1585 /* We need to define these, since the 2byte, 4byte, 8byte op:s are only
1586 available in ELF. These "normal" pseudos do not have any alignment
1587 constraints or side-effects. */
1588 #undef UNALIGNED_SHORT_ASM_OP
1589 #define UNALIGNED_SHORT_ASM_OP "\t.word\t"
1591 #undef UNALIGNED_INT_ASM_OP
1592 #define UNALIGNED_INT_ASM_OP "\t.dword\t"
1594 #undef UNALIGNED_DOUBLE_INT_ASM_OP
1595 #define UNALIGNED_DOUBLE_INT_ASM_OP "\t.quad\t"
1597 /* Node: Uninitialized Data */
1599 /* Remember to round off odd values if we want data alignment,
1600 since we cannot do that with an .align directive.
1602 Using .comm causes the space not to be reserved in .bss, but by
1603 tricks with the symbol type. Not good if other tools than binutils
1604 are used on the object files. Since ".global ... .lcomm ..." works, we
1605 use that. Use .._ALIGNED_COMMON, since gcc whines when we only have
1606 ..._COMMON, and we prefer to whine ourselves; BIGGEST_ALIGNMENT is not
1607 the one to check. This done for a.out only. */
1608 /* FIXME: I suspect a bug in gcc with alignment. Do not warn until
1609 investigated; it mucks up the testsuite results. */
1610 #define CRIS_ASM_OUTPUT_ALIGNED_DECL_COMMON(FILE, DECL, NAME, SIZE, ALIGN, LOCAL) \
1613 int align_ = (ALIGN) / BITS_PER_UNIT; \
1614 if (TARGET_DATA_ALIGN && TARGET_ALIGN_BY_32 && align_ < 4) \
1616 else if (TARGET_DATA_ALIGN && align_ < 2) \
1618 /* FIXME: Do we need this? */ \
1619 else if (align_ < 1) \
1626 fprintf ((FILE), "%s", LOCAL_ASM_OP); \
1627 assemble_name ((FILE), (NAME)); \
1628 fprintf ((FILE), "\n"); \
1630 fprintf ((FILE), "%s", COMMON_ASM_OP); \
1631 assemble_name ((FILE), (NAME)); \
1632 fprintf ((FILE), ",%u,%u\n", (SIZE), align_); \
1636 /* We can't tell a one-only or weak COMM from a "global \
1637 COMM" so just make all non-locals weak. */ \
1639 ASM_WEAKEN_LABEL (FILE, NAME); \
1640 fputs ("\t.lcomm ", (FILE)); \
1641 assemble_name ((FILE), (NAME)); \
1642 fprintf ((FILE), ",%u\n", \
1643 ((SIZE) + (align_ - 1)) & ~(align_ - 1)); \
1648 #define ASM_OUTPUT_ALIGNED_DECL_COMMON(FILE, DECL, NAME, SIZE, ALIGN) \
1649 CRIS_ASM_OUTPUT_ALIGNED_DECL_COMMON(FILE, DECL, NAME, SIZE, ALIGN, 0)
1651 #undef ASM_OUTPUT_ALIGNED_DECL_LOCAL
1652 #define ASM_OUTPUT_ALIGNED_DECL_LOCAL(FILE, DECL, NAME, SIZE, ALIGN) \
1653 CRIS_ASM_OUTPUT_ALIGNED_DECL_COMMON(FILE, DECL, NAME, SIZE, ALIGN, 1)
1655 /* FIXME: define ASM_OUTPUT_SHARED_COMMON and emit an error when it is
1656 used with -melinux and a.out. */
1658 /* Node: Label Output */
1660 #define ASM_OUTPUT_LABEL(FILE, NAME) \
1663 assemble_name (FILE, NAME); \
1664 fputs (":\n", FILE); \
1668 #define ASM_GLOBALIZE_LABEL(FILE, NAME) \
1671 fputs ("\t.global ", FILE); \
1672 assemble_name (FILE, NAME); \
1673 fputs ("\n", FILE); \
1677 #define SUPPORTS_WEAK 1
1679 /* FIXME: This macro isn't documented, but this would probably be an
1680 appropriate location. It's only used in crtstuff.c, else we'd have to
1681 handle (to #undef or ignore it) in a.out. */
1682 #define HAVE_GAS_HIDDEN 1
1684 #undef ASM_OUTPUT_INTERNAL_LABEL
1685 #define ASM_OUTPUT_INTERNAL_LABEL(FILE, PREFIX, NUM) \
1688 asm_fprintf (FILE, "%L%s%d:\n", PREFIX, NUM); \
1692 /* Remove any previous definition (elfos.h). */
1693 #undef ASM_GENERATE_INTERNAL_LABEL
1694 #define ASM_GENERATE_INTERNAL_LABEL(LABEL, PREFIX, NUM) \
1695 sprintf (LABEL, "*%s%s%ld", LOCAL_LABEL_PREFIX, PREFIX, (long) NUM)
1697 #define ASM_FORMAT_PRIVATE_NAME(OUTPUT, NAME, LABELNO) \
1700 (OUTPUT) = (char *) alloca (strlen ((NAME)) + 10); \
1701 sprintf ((OUTPUT), "%s.%d", (NAME), (LABELNO)); \
1706 /* Node: Initialization */
1707 /* (no definitions) */
1709 /* Node: Macros for Initialization */
1710 /* (no definitions) */
1712 /* Node: Instruction Output */
1714 #define REGISTER_NAMES \
1715 {"r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7", "r8", \
1716 "r9", "r10", "r11", "r12", "r13", "sp", "pc", "srp", "faked_ap"}
1718 #define ADDITIONAL_REGISTER_NAMES \
1719 {{"r14", 14}, {"r15", 15}}
1721 #define PRINT_OPERAND(FILE, X, CODE) \
1722 cris_print_operand (FILE, X, CODE)
1724 /* For delay-slot handling. */
1725 #define PRINT_OPERAND_PUNCT_VALID_P(CODE) (CODE == '#')
1727 #define PRINT_OPERAND_ADDRESS(FILE, ADDR) \
1728 cris_print_operand_address (FILE, ADDR)
1730 /* Output an empty line to illustrate the presence of the delay slot. */
1731 #define DBR_OUTPUT_SEQEND(FILE) \
1732 fprintf (FILE, "\n")
1734 #define LOCAL_LABEL_PREFIX (TARGET_ELF ? "." : "")
1736 /* cppinit.c initializes a const array from this, so it must be constant,
1737 can't have it different based on options. Luckily, the prefix is
1738 always allowed, so let's have it on all GCC-generated code. Note that
1739 we have this verbatim everywhere in the back-end, not using %R or %s or
1741 #define REGISTER_PREFIX "$"
1743 /* Remove any previous definition (elfos.h). */
1744 /* We use -fno-leading-underscore to remove it, when necessary. */
1745 #undef USER_LABEL_PREFIX
1746 #define USER_LABEL_PREFIX "_"
1748 #define ASM_OUTPUT_REG_PUSH(FILE, REGNO) \
1749 fprintf (FILE, "\tpush $%s\n", reg_names[REGNO])
1751 #define ASM_OUTPUT_REG_POP(FILE, REGNO) \
1752 fprintf (FILE, "\tpop $%s\n", reg_names[REGNO])
1755 /* Node: Dispatch Tables */
1757 #define ASM_OUTPUT_ADDR_DIFF_ELT(FILE, BODY, VALUE, REL) \
1758 asm_fprintf (FILE, "\t.word %LL%d-%LL%d\n", VALUE, REL)
1760 #define ASM_OUTPUT_ADDR_VEC_ELT(FILE, VALUE) \
1761 asm_fprintf (FILE, "\t.dword %LL%d\n", VALUE)
1763 /* Defined to also emit an .align in elfos.h. We don't want that. */
1764 #undef ASM_OUTPUT_CASE_LABEL
1766 /* Since the "bound" insn loads the comparison value if the compared<
1767 value (register) is out of bounds (0..comparison value-1), we need
1768 to output another case to catch it.
1769 The way to find it is to look for the label_ref at the else-arm inside
1770 the expanded casesi core-insn.
1771 FIXME: Check this construct when changing to new version of gcc. */
1772 #define ASM_OUTPUT_CASE_END(STREAM, NUM, TABLE) \
1775 asm_fprintf (STREAM, "\t.word %LL%d-%LL%d%s\n", \
1779 (PATTERN (PREV_INSN (PREV_INSN \
1781 0, 0), 1), 2), 0)), \
1783 (TARGET_PDEBUG ? "; default" : "")); \
1788 /* Node: Exception Region Output */
1789 /* (no definitions) */
1790 /* FIXME: Fill in with our own optimized layout. */
1792 /* Node: Alignment Output */
1794 #define ASM_OUTPUT_ALIGN(FILE, LOG) \
1795 fprintf (FILE, "\t.align %d\n", (LOG))
1798 /* Node: All Debuggers */
1800 #define DBX_REGISTER_NUMBER(REGNO) \
1801 ((REGNO) == CRIS_SRP_REGNUM ? CRIS_CANONICAL_SRP_REGNUM : (REGNO))
1803 /* FIXME: Investigate DEBUGGER_AUTO_OFFSET, DEBUGGER_ARG_OFFSET. */
1806 /* Node: DBX Options */
1808 /* Is this correct? Check later. */
1809 #define DBX_NO_XREFS
1811 #define DBX_CONTIN_LENGTH 0
1813 /* FIXME: Is this needed when we have 0 DBX_CONTIN_LENGTH? */
1814 #define DBX_CONTIN_CHAR '?'
1817 /* Node: DBX Hooks */
1818 /* (no definitions) */
1820 /* Node: File names and DBX */
1821 /* (no definitions) */
1824 /* Node: SDB and DWARF */
1826 #define DWARF_LINE_MIN_INSTR_LENGTH 2
1829 /* Node: Cross-compilation */
1830 #define REAL_ARITHMETIC
1835 /* FIXME: Check this one more time. */
1836 #define PREDICATE_CODES \
1837 {"cris_orthogonal_operator", \
1838 {PLUS, MINUS, IOR, AND, UMIN}}, \
1839 {"cris_commutative_orth_op", \
1840 {PLUS, IOR, AND, UMIN}}, \
1841 {"cris_operand_extend_operator", \
1842 {PLUS, MINUS, UMIN}}, \
1843 {"cris_extend_operator", \
1844 {ZERO_EXTEND, SIGN_EXTEND}}, \
1845 {"cris_plus_or_bound_operator", \
1847 {"cris_bdap_operand", \
1848 {SUBREG, REG, LABEL_REF, SYMBOL_REF, MEM, CONST_INT, \
1849 CONST_DOUBLE, CONST, SIGN_EXTEND}}, \
1850 {"cris_bdap_biap_operand", \
1851 {SUBREG, REG, LABEL_REF, SYMBOL_REF, MEM, CONST_INT, \
1852 CONST_DOUBLE, CONST, SIGN_EXTEND, MULT}}, \
1853 {"cris_general_operand_or_gotless_symbol", \
1854 {CONST_INT, CONST_DOUBLE, CONST, SYMBOL_REF, \
1855 LABEL_REF, SUBREG, REG, MEM}}, \
1856 {"cris_general_operand_or_symbol", \
1857 {CONST_INT, CONST_DOUBLE, CONST, SYMBOL_REF, \
1858 LABEL_REF, SUBREG, REG, MEM}}, \
1859 {"cris_general_operand_or_plt_symbol", \
1860 {CONST_INT, CONST_DOUBLE, CONST, SYMBOL_REF, \
1861 LABEL_REF, SUBREG, REG, MEM}}, \
1862 {"cris_mem_call_operand", \
1865 /* A combination of the bound (umin) insn together with a
1866 sign-extended add via the table to PC seems optimal.
1867 If the table overflows, the assembler will take care of it.
1868 Theoretically, in extreme cases (uncertain if they occur), an error
1869 will be emitted, so FIXME: Check how large case-tables are emitted,
1870 possible add an option to emit SImode case-tables. */
1871 #define CASE_VECTOR_MODE HImode
1873 #define CASE_VECTOR_PC_RELATIVE 1
1875 /* FIXME: Investigate CASE_VECTOR_SHORTEN_MODE to make sure HImode is not
1876 used when broken-.word could possibly fail (plus test-case). */
1878 #define IMPLICIT_FIX_EXPR FIX_ROUND_EXPR
1880 #define FIXUNS_TRUNC_LIKE_FIX_TRUNC
1882 #define EASY_DIV_EXPR TRUNC_DIV_EXPR
1884 /* This is the number of bytes that can be moved in one
1885 reasonably fast instruction sequence. For CRIS, this is two
1886 instructions: mem => reg, reg => mem. */
1889 /* Maybe SHIFT_COUNT_TRUNCATED is safe to define? FIXME: Check later. */
1891 #define TRULY_NOOP_TRUNCATION(OUTPREC, INPREC) 1
1893 #define STORE_FLAG_VALUE 1
1895 #define Pmode SImode
1897 #define FUNCTION_MODE QImode
1899 #define NO_IMPLICIT_EXTERN_C
1903 * eval: (c-set-style "gnu")
1904 * indent-tabs-mode: t