gcc/ChangeLog:
[official-gcc.git] / gcc / targhooks.c
blob6a8fae656d037f635f6958a767f7b6f0e203c6f9
1 /* Default target hook functions.
2 Copyright (C) 2003-2017 Free Software Foundation, Inc.
4 This file is part of GCC.
6 GCC is free software; you can redistribute it and/or modify it under
7 the terms of the GNU General Public License as published by the Free
8 Software Foundation; either version 3, or (at your option) any later
9 version.
11 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
12 WARRANTY; without even the implied warranty of MERCHANTABILITY or
13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
14 for more details.
16 You should have received a copy of the GNU General Public License
17 along with GCC; see the file COPYING3. If not see
18 <http://www.gnu.org/licenses/>. */
20 /* The migration of target macros to target hooks works as follows:
22 1. Create a target hook that uses the existing target macros to
23 implement the same functionality.
25 2. Convert all the MI files to use the hook instead of the macro.
27 3. Repeat for a majority of the remaining target macros. This will
28 take some time.
30 4. Tell target maintainers to start migrating.
32 5. Eventually convert the backends to override the hook instead of
33 defining the macros. This will take some time too.
35 6. TBD when, poison the macros. Unmigrated targets will break at
36 this point.
38 Note that we expect steps 1-3 to be done by the people that
39 understand what the MI does with each macro, and step 5 to be done
40 by the target maintainers for their respective targets.
42 Note that steps 1 and 2 don't have to be done together, but no
43 target can override the new hook until step 2 is complete for it.
45 Once the macros are poisoned, we will revert to the old migration
46 rules - migrate the macro, callers, and targets all at once. This
47 comment can thus be removed at that point. */
49 #include "config.h"
50 #include "system.h"
51 #include "coretypes.h"
52 #include "target.h"
53 #include "function.h"
54 #include "rtl.h"
55 #include "tree.h"
56 #include "tree-ssa-alias.h"
57 #include "gimple-expr.h"
58 #include "memmodel.h"
59 #include "tm_p.h"
60 #include "stringpool.h"
61 #include "tree-vrp.h"
62 #include "tree-ssanames.h"
63 #include "profile-count.h"
64 #include "optabs.h"
65 #include "regs.h"
66 #include "recog.h"
67 #include "diagnostic-core.h"
68 #include "fold-const.h"
69 #include "stor-layout.h"
70 #include "varasm.h"
71 #include "flags.h"
72 #include "explow.h"
73 #include "calls.h"
74 #include "expr.h"
75 #include "output.h"
76 #include "common/common-target.h"
77 #include "reload.h"
78 #include "intl.h"
79 #include "opts.h"
80 #include "gimplify.h"
81 #include "predict.h"
82 #include "params.h"
83 #include "real.h"
86 bool
87 default_legitimate_address_p (machine_mode mode ATTRIBUTE_UNUSED,
88 rtx addr ATTRIBUTE_UNUSED,
89 bool strict ATTRIBUTE_UNUSED)
91 #ifdef GO_IF_LEGITIMATE_ADDRESS
92 /* Defer to the old implementation using a goto. */
93 if (strict)
94 return strict_memory_address_p (mode, addr);
95 else
96 return memory_address_p (mode, addr);
97 #else
98 gcc_unreachable ();
99 #endif
102 void
103 default_external_libcall (rtx fun ATTRIBUTE_UNUSED)
105 #ifdef ASM_OUTPUT_EXTERNAL_LIBCALL
106 ASM_OUTPUT_EXTERNAL_LIBCALL (asm_out_file, fun);
107 #endif
111 default_unspec_may_trap_p (const_rtx x, unsigned flags)
113 int i;
115 /* Any floating arithmetic may trap. */
116 if ((SCALAR_FLOAT_MODE_P (GET_MODE (x)) && flag_trapping_math))
117 return 1;
119 for (i = 0; i < XVECLEN (x, 0); ++i)
121 if (may_trap_p_1 (XVECEXP (x, 0, i), flags))
122 return 1;
125 return 0;
128 machine_mode
129 default_promote_function_mode (const_tree type ATTRIBUTE_UNUSED,
130 machine_mode mode,
131 int *punsignedp ATTRIBUTE_UNUSED,
132 const_tree funtype ATTRIBUTE_UNUSED,
133 int for_return ATTRIBUTE_UNUSED)
135 if (type != NULL_TREE && for_return == 2)
136 return promote_mode (type, mode, punsignedp);
137 return mode;
140 machine_mode
141 default_promote_function_mode_always_promote (const_tree type,
142 machine_mode mode,
143 int *punsignedp,
144 const_tree funtype ATTRIBUTE_UNUSED,
145 int for_return ATTRIBUTE_UNUSED)
147 return promote_mode (type, mode, punsignedp);
150 machine_mode
151 default_cc_modes_compatible (machine_mode m1, machine_mode m2)
153 if (m1 == m2)
154 return m1;
155 return VOIDmode;
158 bool
159 default_return_in_memory (const_tree type,
160 const_tree fntype ATTRIBUTE_UNUSED)
162 return (TYPE_MODE (type) == BLKmode);
166 default_legitimize_address (rtx x, rtx orig_x ATTRIBUTE_UNUSED,
167 machine_mode mode ATTRIBUTE_UNUSED)
169 return x;
172 bool
173 default_legitimize_address_displacement (rtx *disp ATTRIBUTE_UNUSED,
174 rtx *offset ATTRIBUTE_UNUSED,
175 machine_mode mode ATTRIBUTE_UNUSED)
177 return false;
181 default_expand_builtin_saveregs (void)
183 error ("__builtin_saveregs not supported by this target");
184 return const0_rtx;
187 void
188 default_setup_incoming_varargs (cumulative_args_t ca ATTRIBUTE_UNUSED,
189 machine_mode mode ATTRIBUTE_UNUSED,
190 tree type ATTRIBUTE_UNUSED,
191 int *pretend_arg_size ATTRIBUTE_UNUSED,
192 int second_time ATTRIBUTE_UNUSED)
196 /* The default implementation of TARGET_BUILTIN_SETJMP_FRAME_VALUE. */
199 default_builtin_setjmp_frame_value (void)
201 return virtual_stack_vars_rtx;
204 /* Generic hook that takes a CUMULATIVE_ARGS pointer and returns false. */
206 bool
207 hook_bool_CUMULATIVE_ARGS_false (cumulative_args_t ca ATTRIBUTE_UNUSED)
209 return false;
212 bool
213 default_pretend_outgoing_varargs_named (cumulative_args_t ca ATTRIBUTE_UNUSED)
215 return (targetm.calls.setup_incoming_varargs
216 != default_setup_incoming_varargs);
219 machine_mode
220 default_eh_return_filter_mode (void)
222 return targetm.unwind_word_mode ();
225 machine_mode
226 default_libgcc_cmp_return_mode (void)
228 return word_mode;
231 machine_mode
232 default_libgcc_shift_count_mode (void)
234 return word_mode;
237 machine_mode
238 default_unwind_word_mode (void)
240 return word_mode;
243 /* The default implementation of TARGET_SHIFT_TRUNCATION_MASK. */
245 unsigned HOST_WIDE_INT
246 default_shift_truncation_mask (machine_mode mode)
248 return SHIFT_COUNT_TRUNCATED ? GET_MODE_BITSIZE (mode) - 1 : 0;
251 /* The default implementation of TARGET_MIN_DIVISIONS_FOR_RECIP_MUL. */
253 unsigned int
254 default_min_divisions_for_recip_mul (machine_mode mode ATTRIBUTE_UNUSED)
256 return have_insn_for (DIV, mode) ? 3 : 2;
259 /* The default implementation of TARGET_MODE_REP_EXTENDED. */
262 default_mode_rep_extended (machine_mode mode ATTRIBUTE_UNUSED,
263 machine_mode mode_rep ATTRIBUTE_UNUSED)
265 return UNKNOWN;
268 /* Generic hook that takes a CUMULATIVE_ARGS pointer and returns true. */
270 bool
271 hook_bool_CUMULATIVE_ARGS_true (cumulative_args_t a ATTRIBUTE_UNUSED)
273 return true;
276 /* Return machine mode for non-standard suffix
277 or VOIDmode if non-standard suffixes are unsupported. */
278 machine_mode
279 default_mode_for_suffix (char suffix ATTRIBUTE_UNUSED)
281 return VOIDmode;
284 /* The generic C++ ABI specifies this is a 64-bit value. */
285 tree
286 default_cxx_guard_type (void)
288 return long_long_integer_type_node;
291 /* Returns the size of the cookie to use when allocating an array
292 whose elements have the indicated TYPE. Assumes that it is already
293 known that a cookie is needed. */
295 tree
296 default_cxx_get_cookie_size (tree type)
298 tree cookie_size;
300 /* We need to allocate an additional max (sizeof (size_t), alignof
301 (true_type)) bytes. */
302 tree sizetype_size;
303 tree type_align;
305 sizetype_size = size_in_bytes (sizetype);
306 type_align = size_int (TYPE_ALIGN_UNIT (type));
307 if (tree_int_cst_lt (type_align, sizetype_size))
308 cookie_size = sizetype_size;
309 else
310 cookie_size = type_align;
312 return cookie_size;
315 /* Return true if a parameter must be passed by reference. This version
316 of the TARGET_PASS_BY_REFERENCE hook uses just MUST_PASS_IN_STACK. */
318 bool
319 hook_pass_by_reference_must_pass_in_stack (cumulative_args_t c ATTRIBUTE_UNUSED,
320 machine_mode mode ATTRIBUTE_UNUSED, const_tree type ATTRIBUTE_UNUSED,
321 bool named_arg ATTRIBUTE_UNUSED)
323 return targetm.calls.must_pass_in_stack (mode, type);
326 /* Return true if a parameter follows callee copies conventions. This
327 version of the hook is true for all named arguments. */
329 bool
330 hook_callee_copies_named (cumulative_args_t ca ATTRIBUTE_UNUSED,
331 machine_mode mode ATTRIBUTE_UNUSED,
332 const_tree type ATTRIBUTE_UNUSED, bool named)
334 return named;
337 /* Emit to STREAM the assembler syntax for insn operand X. */
339 void
340 default_print_operand (FILE *stream ATTRIBUTE_UNUSED, rtx x ATTRIBUTE_UNUSED,
341 int code ATTRIBUTE_UNUSED)
343 #ifdef PRINT_OPERAND
344 PRINT_OPERAND (stream, x, code);
345 #else
346 gcc_unreachable ();
347 #endif
350 /* Emit to STREAM the assembler syntax for an insn operand whose memory
351 address is X. */
353 void
354 default_print_operand_address (FILE *stream ATTRIBUTE_UNUSED,
355 machine_mode /*mode*/,
356 rtx x ATTRIBUTE_UNUSED)
358 #ifdef PRINT_OPERAND_ADDRESS
359 PRINT_OPERAND_ADDRESS (stream, x);
360 #else
361 gcc_unreachable ();
362 #endif
365 /* Return true if CODE is a valid punctuation character for the
366 `print_operand' hook. */
368 bool
369 default_print_operand_punct_valid_p (unsigned char code ATTRIBUTE_UNUSED)
371 #ifdef PRINT_OPERAND_PUNCT_VALID_P
372 return PRINT_OPERAND_PUNCT_VALID_P (code);
373 #else
374 return false;
375 #endif
378 /* The default implementation of TARGET_MANGLE_ASSEMBLER_NAME. */
379 tree
380 default_mangle_assembler_name (const char *name ATTRIBUTE_UNUSED)
382 const char *skipped = name + (*name == '*' ? 1 : 0);
383 const char *stripped = targetm.strip_name_encoding (skipped);
384 if (*name != '*' && user_label_prefix[0])
385 stripped = ACONCAT ((user_label_prefix, stripped, NULL));
386 return get_identifier (stripped);
389 /* True if MODE is valid for the target. By "valid", we mean able to
390 be manipulated in non-trivial ways. In particular, this means all
391 the arithmetic is supported.
393 By default we guess this means that any C type is supported. If
394 we can't map the mode back to a type that would be available in C,
395 then reject it. Special case, here, is the double-word arithmetic
396 supported by optabs.c. */
398 bool
399 default_scalar_mode_supported_p (machine_mode mode)
401 int precision = GET_MODE_PRECISION (mode);
403 switch (GET_MODE_CLASS (mode))
405 case MODE_PARTIAL_INT:
406 case MODE_INT:
407 if (precision == CHAR_TYPE_SIZE)
408 return true;
409 if (precision == SHORT_TYPE_SIZE)
410 return true;
411 if (precision == INT_TYPE_SIZE)
412 return true;
413 if (precision == LONG_TYPE_SIZE)
414 return true;
415 if (precision == LONG_LONG_TYPE_SIZE)
416 return true;
417 if (precision == 2 * BITS_PER_WORD)
418 return true;
419 return false;
421 case MODE_FLOAT:
422 if (precision == FLOAT_TYPE_SIZE)
423 return true;
424 if (precision == DOUBLE_TYPE_SIZE)
425 return true;
426 if (precision == LONG_DOUBLE_TYPE_SIZE)
427 return true;
428 return false;
430 case MODE_DECIMAL_FLOAT:
431 case MODE_FRACT:
432 case MODE_UFRACT:
433 case MODE_ACCUM:
434 case MODE_UACCUM:
435 return false;
437 default:
438 gcc_unreachable ();
442 /* Return true if libgcc supports floating-point mode MODE (known to
443 be supported as a scalar mode). */
445 bool
446 default_libgcc_floating_mode_supported_p (machine_mode mode)
448 switch (mode)
450 #ifdef HAVE_SFmode
451 case SFmode:
452 #endif
453 #ifdef HAVE_DFmode
454 case DFmode:
455 #endif
456 #ifdef HAVE_XFmode
457 case XFmode:
458 #endif
459 #ifdef HAVE_TFmode
460 case TFmode:
461 #endif
462 return true;
464 default:
465 return false;
469 /* Return the machine mode to use for the type _FloatN, if EXTENDED is
470 false, or _FloatNx, if EXTENDED is true, or VOIDmode if not
471 supported. */
472 machine_mode
473 default_floatn_mode (int n, bool extended)
475 if (extended)
477 machine_mode cand1 = VOIDmode, cand2 = VOIDmode;
478 switch (n)
480 case 32:
481 #ifdef HAVE_DFmode
482 cand1 = DFmode;
483 #endif
484 break;
486 case 64:
487 #ifdef HAVE_XFmode
488 cand1 = XFmode;
489 #endif
490 #ifdef HAVE_TFmode
491 cand2 = TFmode;
492 #endif
493 break;
495 case 128:
496 break;
498 default:
499 /* Those are the only valid _FloatNx types. */
500 gcc_unreachable ();
502 if (cand1 != VOIDmode
503 && REAL_MODE_FORMAT (cand1)->ieee_bits > n
504 && targetm.scalar_mode_supported_p (cand1)
505 && targetm.libgcc_floating_mode_supported_p (cand1))
506 return cand1;
507 if (cand2 != VOIDmode
508 && REAL_MODE_FORMAT (cand2)->ieee_bits > n
509 && targetm.scalar_mode_supported_p (cand2)
510 && targetm.libgcc_floating_mode_supported_p (cand2))
511 return cand2;
513 else
515 machine_mode cand = VOIDmode;
516 switch (n)
518 case 16:
519 /* Always enable _Float16 if we have basic support for the mode.
520 Targets can control the range and precision of operations on
521 the _Float16 type using TARGET_C_EXCESS_PRECISION. */
522 #ifdef HAVE_HFmode
523 cand = HFmode;
524 #endif
525 break;
527 case 32:
528 #ifdef HAVE_SFmode
529 cand = SFmode;
530 #endif
531 break;
533 case 64:
534 #ifdef HAVE_DFmode
535 cand = DFmode;
536 #endif
537 break;
539 case 128:
540 #ifdef HAVE_TFmode
541 cand = TFmode;
542 #endif
543 break;
545 default:
546 break;
548 if (cand != VOIDmode
549 && REAL_MODE_FORMAT (cand)->ieee_bits == n
550 && targetm.scalar_mode_supported_p (cand)
551 && targetm.libgcc_floating_mode_supported_p (cand))
552 return cand;
554 return VOIDmode;
557 /* Make some target macros useable by target-independent code. */
558 bool
559 targhook_words_big_endian (void)
561 return !!WORDS_BIG_ENDIAN;
564 bool
565 targhook_float_words_big_endian (void)
567 return !!FLOAT_WORDS_BIG_ENDIAN;
570 /* True if the target supports floating-point exceptions and rounding
571 modes. */
573 bool
574 default_float_exceptions_rounding_supported_p (void)
576 #ifdef HAVE_adddf3
577 return HAVE_adddf3;
578 #else
579 return false;
580 #endif
583 /* True if the target supports decimal floating point. */
585 bool
586 default_decimal_float_supported_p (void)
588 return ENABLE_DECIMAL_FLOAT;
591 /* True if the target supports fixed-point arithmetic. */
593 bool
594 default_fixed_point_supported_p (void)
596 return ENABLE_FIXED_POINT;
599 /* True if the target supports GNU indirect functions. */
601 bool
602 default_has_ifunc_p (void)
604 return HAVE_GNU_INDIRECT_FUNCTION;
607 /* NULL if INSN insn is valid within a low-overhead loop, otherwise returns
608 an error message.
610 This function checks whether a given INSN is valid within a low-overhead
611 loop. If INSN is invalid it returns the reason for that, otherwise it
612 returns NULL. A called function may clobber any special registers required
613 for low-overhead looping. Additionally, some targets (eg, PPC) use the count
614 register for branch on table instructions. We reject the doloop pattern in
615 these cases. */
617 const char *
618 default_invalid_within_doloop (const rtx_insn *insn)
620 if (CALL_P (insn))
621 return "Function call in loop.";
623 if (tablejump_p (insn, NULL, NULL) || computed_jump_p (insn))
624 return "Computed branch in the loop.";
626 return NULL;
629 /* Mapping of builtin functions to vectorized variants. */
631 tree
632 default_builtin_vectorized_function (unsigned int, tree, tree)
634 return NULL_TREE;
637 /* Mapping of target builtin functions to vectorized variants. */
639 tree
640 default_builtin_md_vectorized_function (tree, tree, tree)
642 return NULL_TREE;
645 /* Vectorized conversion. */
647 tree
648 default_builtin_vectorized_conversion (unsigned int code ATTRIBUTE_UNUSED,
649 tree dest_type ATTRIBUTE_UNUSED,
650 tree src_type ATTRIBUTE_UNUSED)
652 return NULL_TREE;
655 /* Default vectorizer cost model values. */
658 default_builtin_vectorization_cost (enum vect_cost_for_stmt type_of_cost,
659 tree vectype,
660 int misalign ATTRIBUTE_UNUSED)
662 switch (type_of_cost)
664 case scalar_stmt:
665 case scalar_load:
666 case scalar_store:
667 case vector_stmt:
668 case vector_load:
669 case vector_store:
670 case vec_to_scalar:
671 case scalar_to_vec:
672 case cond_branch_not_taken:
673 case vec_perm:
674 case vec_promote_demote:
675 return 1;
677 case unaligned_load:
678 case unaligned_store:
679 return 2;
681 case cond_branch_taken:
682 return 3;
684 case vec_construct:
685 return TYPE_VECTOR_SUBPARTS (vectype) - 1;
687 default:
688 gcc_unreachable ();
692 /* Reciprocal. */
694 tree
695 default_builtin_reciprocal (tree)
697 return NULL_TREE;
700 bool
701 hook_bool_CUMULATIVE_ARGS_mode_tree_bool_false (
702 cumulative_args_t ca ATTRIBUTE_UNUSED,
703 machine_mode mode ATTRIBUTE_UNUSED,
704 const_tree type ATTRIBUTE_UNUSED, bool named ATTRIBUTE_UNUSED)
706 return false;
709 bool
710 hook_bool_CUMULATIVE_ARGS_mode_tree_bool_true (
711 cumulative_args_t ca ATTRIBUTE_UNUSED,
712 machine_mode mode ATTRIBUTE_UNUSED,
713 const_tree type ATTRIBUTE_UNUSED, bool named ATTRIBUTE_UNUSED)
715 return true;
719 hook_int_CUMULATIVE_ARGS_mode_tree_bool_0 (
720 cumulative_args_t ca ATTRIBUTE_UNUSED,
721 machine_mode mode ATTRIBUTE_UNUSED,
722 tree type ATTRIBUTE_UNUSED, bool named ATTRIBUTE_UNUSED)
724 return 0;
727 void
728 default_function_arg_advance (cumulative_args_t ca ATTRIBUTE_UNUSED,
729 machine_mode mode ATTRIBUTE_UNUSED,
730 const_tree type ATTRIBUTE_UNUSED,
731 bool named ATTRIBUTE_UNUSED)
733 gcc_unreachable ();
737 default_function_arg (cumulative_args_t ca ATTRIBUTE_UNUSED,
738 machine_mode mode ATTRIBUTE_UNUSED,
739 const_tree type ATTRIBUTE_UNUSED,
740 bool named ATTRIBUTE_UNUSED)
742 gcc_unreachable ();
746 default_function_incoming_arg (cumulative_args_t ca ATTRIBUTE_UNUSED,
747 machine_mode mode ATTRIBUTE_UNUSED,
748 const_tree type ATTRIBUTE_UNUSED,
749 bool named ATTRIBUTE_UNUSED)
751 gcc_unreachable ();
754 unsigned int
755 default_function_arg_boundary (machine_mode mode ATTRIBUTE_UNUSED,
756 const_tree type ATTRIBUTE_UNUSED)
758 return PARM_BOUNDARY;
761 unsigned int
762 default_function_arg_round_boundary (machine_mode mode ATTRIBUTE_UNUSED,
763 const_tree type ATTRIBUTE_UNUSED)
765 return PARM_BOUNDARY;
768 void
769 hook_void_bitmap (bitmap regs ATTRIBUTE_UNUSED)
773 const char *
774 hook_invalid_arg_for_unprototyped_fn (
775 const_tree typelist ATTRIBUTE_UNUSED,
776 const_tree funcdecl ATTRIBUTE_UNUSED,
777 const_tree val ATTRIBUTE_UNUSED)
779 return NULL;
782 /* Initialize the stack protection decls. */
784 /* Stack protection related decls living in libgcc. */
785 static GTY(()) tree stack_chk_guard_decl;
787 tree
788 default_stack_protect_guard (void)
790 tree t = stack_chk_guard_decl;
792 if (t == NULL)
794 rtx x;
796 t = build_decl (UNKNOWN_LOCATION,
797 VAR_DECL, get_identifier ("__stack_chk_guard"),
798 ptr_type_node);
799 TREE_STATIC (t) = 1;
800 TREE_PUBLIC (t) = 1;
801 DECL_EXTERNAL (t) = 1;
802 TREE_USED (t) = 1;
803 TREE_THIS_VOLATILE (t) = 1;
804 DECL_ARTIFICIAL (t) = 1;
805 DECL_IGNORED_P (t) = 1;
807 /* Do not share RTL as the declaration is visible outside of
808 current function. */
809 x = DECL_RTL (t);
810 RTX_FLAG (x, used) = 1;
812 stack_chk_guard_decl = t;
815 return t;
818 static GTY(()) tree stack_chk_fail_decl;
820 tree
821 default_external_stack_protect_fail (void)
823 tree t = stack_chk_fail_decl;
825 if (t == NULL_TREE)
827 t = build_function_type_list (void_type_node, NULL_TREE);
828 t = build_decl (UNKNOWN_LOCATION,
829 FUNCTION_DECL, get_identifier ("__stack_chk_fail"), t);
830 TREE_STATIC (t) = 1;
831 TREE_PUBLIC (t) = 1;
832 DECL_EXTERNAL (t) = 1;
833 TREE_USED (t) = 1;
834 TREE_THIS_VOLATILE (t) = 1;
835 TREE_NOTHROW (t) = 1;
836 DECL_ARTIFICIAL (t) = 1;
837 DECL_IGNORED_P (t) = 1;
838 DECL_VISIBILITY (t) = VISIBILITY_DEFAULT;
839 DECL_VISIBILITY_SPECIFIED (t) = 1;
841 stack_chk_fail_decl = t;
844 return build_call_expr (t, 0);
847 tree
848 default_hidden_stack_protect_fail (void)
850 #ifndef HAVE_GAS_HIDDEN
851 return default_external_stack_protect_fail ();
852 #else
853 tree t = stack_chk_fail_decl;
855 if (!flag_pic)
856 return default_external_stack_protect_fail ();
858 if (t == NULL_TREE)
860 t = build_function_type_list (void_type_node, NULL_TREE);
861 t = build_decl (UNKNOWN_LOCATION, FUNCTION_DECL,
862 get_identifier ("__stack_chk_fail_local"), t);
863 TREE_STATIC (t) = 1;
864 TREE_PUBLIC (t) = 1;
865 DECL_EXTERNAL (t) = 1;
866 TREE_USED (t) = 1;
867 TREE_THIS_VOLATILE (t) = 1;
868 TREE_NOTHROW (t) = 1;
869 DECL_ARTIFICIAL (t) = 1;
870 DECL_IGNORED_P (t) = 1;
871 DECL_VISIBILITY_SPECIFIED (t) = 1;
872 DECL_VISIBILITY (t) = VISIBILITY_HIDDEN;
874 stack_chk_fail_decl = t;
877 return build_call_expr (t, 0);
878 #endif
881 bool
882 hook_bool_const_rtx_commutative_p (const_rtx x,
883 int outer_code ATTRIBUTE_UNUSED)
885 return COMMUTATIVE_P (x);
889 default_function_value (const_tree ret_type ATTRIBUTE_UNUSED,
890 const_tree fn_decl_or_type,
891 bool outgoing ATTRIBUTE_UNUSED)
893 /* The old interface doesn't handle receiving the function type. */
894 if (fn_decl_or_type
895 && !DECL_P (fn_decl_or_type))
896 fn_decl_or_type = NULL;
898 #ifdef FUNCTION_VALUE
899 return FUNCTION_VALUE (ret_type, fn_decl_or_type);
900 #else
901 gcc_unreachable ();
902 #endif
906 default_libcall_value (machine_mode mode ATTRIBUTE_UNUSED,
907 const_rtx fun ATTRIBUTE_UNUSED)
909 #ifdef LIBCALL_VALUE
910 return LIBCALL_VALUE (mode);
911 #else
912 gcc_unreachable ();
913 #endif
916 /* The default hook for TARGET_FUNCTION_VALUE_REGNO_P. */
918 bool
919 default_function_value_regno_p (const unsigned int regno ATTRIBUTE_UNUSED)
921 #ifdef FUNCTION_VALUE_REGNO_P
922 return FUNCTION_VALUE_REGNO_P (regno);
923 #else
924 gcc_unreachable ();
925 #endif
929 default_internal_arg_pointer (void)
931 /* If the reg that the virtual arg pointer will be translated into is
932 not a fixed reg or is the stack pointer, make a copy of the virtual
933 arg pointer, and address parms via the copy. The frame pointer is
934 considered fixed even though it is not marked as such. */
935 if ((ARG_POINTER_REGNUM == STACK_POINTER_REGNUM
936 || ! (fixed_regs[ARG_POINTER_REGNUM]
937 || ARG_POINTER_REGNUM == FRAME_POINTER_REGNUM)))
938 return copy_to_reg (virtual_incoming_args_rtx);
939 else
940 return virtual_incoming_args_rtx;
944 default_static_chain (const_tree ARG_UNUSED (fndecl_or_type), bool incoming_p)
946 if (incoming_p)
948 #ifdef STATIC_CHAIN_INCOMING_REGNUM
949 return gen_rtx_REG (Pmode, STATIC_CHAIN_INCOMING_REGNUM);
950 #endif
953 #ifdef STATIC_CHAIN_REGNUM
954 return gen_rtx_REG (Pmode, STATIC_CHAIN_REGNUM);
955 #endif
958 static bool issued_error;
959 if (!issued_error)
961 issued_error = true;
962 sorry ("nested functions not supported on this target");
965 /* It really doesn't matter what we return here, so long at it
966 doesn't cause the rest of the compiler to crash. */
967 return gen_rtx_MEM (Pmode, stack_pointer_rtx);
971 void
972 default_trampoline_init (rtx ARG_UNUSED (m_tramp), tree ARG_UNUSED (t_func),
973 rtx ARG_UNUSED (r_chain))
975 sorry ("nested function trampolines not supported on this target");
979 default_return_pops_args (tree fundecl ATTRIBUTE_UNUSED,
980 tree funtype ATTRIBUTE_UNUSED,
981 int size ATTRIBUTE_UNUSED)
983 return 0;
986 reg_class_t
987 default_branch_target_register_class (void)
989 return NO_REGS;
992 reg_class_t
993 default_ira_change_pseudo_allocno_class (int regno ATTRIBUTE_UNUSED,
994 reg_class_t cl,
995 reg_class_t best_cl ATTRIBUTE_UNUSED)
997 return cl;
1000 extern bool
1001 default_lra_p (void)
1003 return true;
1007 default_register_priority (int hard_regno ATTRIBUTE_UNUSED)
1009 return 0;
1012 extern bool
1013 default_register_usage_leveling_p (void)
1015 return false;
1018 extern bool
1019 default_different_addr_displacement_p (void)
1021 return false;
1024 reg_class_t
1025 default_secondary_reload (bool in_p ATTRIBUTE_UNUSED, rtx x ATTRIBUTE_UNUSED,
1026 reg_class_t reload_class_i ATTRIBUTE_UNUSED,
1027 machine_mode reload_mode ATTRIBUTE_UNUSED,
1028 secondary_reload_info *sri)
1030 enum reg_class rclass = NO_REGS;
1031 enum reg_class reload_class = (enum reg_class) reload_class_i;
1033 if (sri->prev_sri && sri->prev_sri->t_icode != CODE_FOR_nothing)
1035 sri->icode = sri->prev_sri->t_icode;
1036 return NO_REGS;
1038 #ifdef SECONDARY_INPUT_RELOAD_CLASS
1039 if (in_p)
1040 rclass = SECONDARY_INPUT_RELOAD_CLASS (reload_class, reload_mode, x);
1041 #endif
1042 #ifdef SECONDARY_OUTPUT_RELOAD_CLASS
1043 if (! in_p)
1044 rclass = SECONDARY_OUTPUT_RELOAD_CLASS (reload_class, reload_mode, x);
1045 #endif
1046 if (rclass != NO_REGS)
1048 enum insn_code icode
1049 = direct_optab_handler (in_p ? reload_in_optab : reload_out_optab,
1050 reload_mode);
1052 if (icode != CODE_FOR_nothing
1053 && !insn_operand_matches (icode, in_p, x))
1054 icode = CODE_FOR_nothing;
1055 else if (icode != CODE_FOR_nothing)
1057 const char *insn_constraint, *scratch_constraint;
1058 enum reg_class insn_class, scratch_class;
1060 gcc_assert (insn_data[(int) icode].n_operands == 3);
1061 insn_constraint = insn_data[(int) icode].operand[!in_p].constraint;
1062 if (!*insn_constraint)
1063 insn_class = ALL_REGS;
1064 else
1066 if (in_p)
1068 gcc_assert (*insn_constraint == '=');
1069 insn_constraint++;
1071 insn_class = (reg_class_for_constraint
1072 (lookup_constraint (insn_constraint)));
1073 gcc_assert (insn_class != NO_REGS);
1076 scratch_constraint = insn_data[(int) icode].operand[2].constraint;
1077 /* The scratch register's constraint must start with "=&",
1078 except for an input reload, where only "=" is necessary,
1079 and where it might be beneficial to re-use registers from
1080 the input. */
1081 gcc_assert (scratch_constraint[0] == '='
1082 && (in_p || scratch_constraint[1] == '&'));
1083 scratch_constraint++;
1084 if (*scratch_constraint == '&')
1085 scratch_constraint++;
1086 scratch_class = (reg_class_for_constraint
1087 (lookup_constraint (scratch_constraint)));
1089 if (reg_class_subset_p (reload_class, insn_class))
1091 gcc_assert (scratch_class == rclass);
1092 rclass = NO_REGS;
1094 else
1095 rclass = insn_class;
1098 if (rclass == NO_REGS)
1099 sri->icode = icode;
1100 else
1101 sri->t_icode = icode;
1103 return rclass;
1106 /* By default, if flag_pic is true, then neither local nor global relocs
1107 should be placed in readonly memory. */
1110 default_reloc_rw_mask (void)
1112 return flag_pic ? 3 : 0;
1115 /* By default, do no modification. */
1116 tree default_mangle_decl_assembler_name (tree decl ATTRIBUTE_UNUSED,
1117 tree id)
1119 return id;
1122 /* Default to natural alignment for vector types. */
1123 HOST_WIDE_INT
1124 default_vector_alignment (const_tree type)
1126 HOST_WIDE_INT align = tree_to_shwi (TYPE_SIZE (type));
1127 if (align > MAX_OFILE_ALIGNMENT)
1128 align = MAX_OFILE_ALIGNMENT;
1129 return align;
1132 /* By default assume vectors of element TYPE require a multiple of the natural
1133 alignment of TYPE. TYPE is naturally aligned if IS_PACKED is false. */
1134 bool
1135 default_builtin_vector_alignment_reachable (const_tree /*type*/, bool is_packed)
1137 return ! is_packed;
1140 /* By default, assume that a target supports any factor of misalignment
1141 memory access if it supports movmisalign patten.
1142 is_packed is true if the memory access is defined in a packed struct. */
1143 bool
1144 default_builtin_support_vector_misalignment (machine_mode mode,
1145 const_tree type
1146 ATTRIBUTE_UNUSED,
1147 int misalignment
1148 ATTRIBUTE_UNUSED,
1149 bool is_packed
1150 ATTRIBUTE_UNUSED)
1152 if (optab_handler (movmisalign_optab, mode) != CODE_FOR_nothing)
1153 return true;
1154 return false;
1157 /* By default, only attempt to parallelize bitwise operations, and
1158 possibly adds/subtracts using bit-twiddling. */
1160 machine_mode
1161 default_preferred_simd_mode (machine_mode mode ATTRIBUTE_UNUSED)
1163 return word_mode;
1166 /* By default only the size derived from the preferred vector mode
1167 is tried. */
1169 unsigned int
1170 default_autovectorize_vector_sizes (void)
1172 return 0;
1175 /* By defaults a vector of integers is used as a mask. */
1177 machine_mode
1178 default_get_mask_mode (unsigned nunits, unsigned vector_size)
1180 unsigned elem_size = vector_size / nunits;
1181 machine_mode elem_mode
1182 = smallest_mode_for_size (elem_size * BITS_PER_UNIT, MODE_INT);
1183 machine_mode vector_mode;
1185 gcc_assert (elem_size * nunits == vector_size);
1187 vector_mode = mode_for_vector (elem_mode, nunits);
1188 if (!VECTOR_MODE_P (vector_mode)
1189 || !targetm.vector_mode_supported_p (vector_mode))
1190 vector_mode = BLKmode;
1192 return vector_mode;
1195 /* By default, the cost model accumulates three separate costs (prologue,
1196 loop body, and epilogue) for a vectorized loop or block. So allocate an
1197 array of three unsigned ints, set it to zero, and return its address. */
1199 void *
1200 default_init_cost (struct loop *loop_info ATTRIBUTE_UNUSED)
1202 unsigned *cost = XNEWVEC (unsigned, 3);
1203 cost[vect_prologue] = cost[vect_body] = cost[vect_epilogue] = 0;
1204 return cost;
1207 /* By default, the cost model looks up the cost of the given statement
1208 kind and mode, multiplies it by the occurrence count, accumulates
1209 it into the cost specified by WHERE, and returns the cost added. */
1211 unsigned
1212 default_add_stmt_cost (void *data, int count, enum vect_cost_for_stmt kind,
1213 struct _stmt_vec_info *stmt_info, int misalign,
1214 enum vect_cost_model_location where)
1216 unsigned *cost = (unsigned *) data;
1217 unsigned retval = 0;
1219 tree vectype = stmt_info ? stmt_vectype (stmt_info) : NULL_TREE;
1220 int stmt_cost = targetm.vectorize.builtin_vectorization_cost (kind, vectype,
1221 misalign);
1222 /* Statements in an inner loop relative to the loop being
1223 vectorized are weighted more heavily. The value here is
1224 arbitrary and could potentially be improved with analysis. */
1225 if (where == vect_body && stmt_info && stmt_in_inner_loop_p (stmt_info))
1226 count *= 50; /* FIXME. */
1228 retval = (unsigned) (count * stmt_cost);
1229 cost[where] += retval;
1231 return retval;
1234 /* By default, the cost model just returns the accumulated costs. */
1236 void
1237 default_finish_cost (void *data, unsigned *prologue_cost,
1238 unsigned *body_cost, unsigned *epilogue_cost)
1240 unsigned *cost = (unsigned *) data;
1241 *prologue_cost = cost[vect_prologue];
1242 *body_cost = cost[vect_body];
1243 *epilogue_cost = cost[vect_epilogue];
1246 /* Free the cost data. */
1248 void
1249 default_destroy_cost_data (void *data)
1251 free (data);
1254 /* Determine whether or not a pointer mode is valid. Assume defaults
1255 of ptr_mode or Pmode - can be overridden. */
1256 bool
1257 default_valid_pointer_mode (machine_mode mode)
1259 return (mode == ptr_mode || mode == Pmode);
1262 /* Determine whether the memory reference specified by REF may alias
1263 the C libraries errno location. */
1264 bool
1265 default_ref_may_alias_errno (ao_ref *ref)
1267 tree base = ao_ref_base (ref);
1268 /* The default implementation assumes the errno location is
1269 a declaration of type int or is always accessed via a
1270 pointer to int. We assume that accesses to errno are
1271 not deliberately obfuscated (even in conforming ways). */
1272 if (TYPE_UNSIGNED (TREE_TYPE (base))
1273 || TYPE_MODE (TREE_TYPE (base)) != TYPE_MODE (integer_type_node))
1274 return false;
1275 /* The default implementation assumes an errno location
1276 declaration is never defined in the current compilation unit. */
1277 if (DECL_P (base)
1278 && !TREE_STATIC (base))
1279 return true;
1280 else if (TREE_CODE (base) == MEM_REF
1281 && TREE_CODE (TREE_OPERAND (base, 0)) == SSA_NAME)
1283 struct ptr_info_def *pi = SSA_NAME_PTR_INFO (TREE_OPERAND (base, 0));
1284 return !pi || pi->pt.anything || pi->pt.nonlocal;
1286 return false;
1289 /* Return the mode for a pointer to a given ADDRSPACE,
1290 defaulting to ptr_mode for all address spaces. */
1292 machine_mode
1293 default_addr_space_pointer_mode (addr_space_t addrspace ATTRIBUTE_UNUSED)
1295 return ptr_mode;
1298 /* Return the mode for an address in a given ADDRSPACE,
1299 defaulting to Pmode for all address spaces. */
1301 machine_mode
1302 default_addr_space_address_mode (addr_space_t addrspace ATTRIBUTE_UNUSED)
1304 return Pmode;
1307 /* Named address space version of valid_pointer_mode.
1308 To match the above, the same modes apply to all address spaces. */
1310 bool
1311 default_addr_space_valid_pointer_mode (machine_mode mode,
1312 addr_space_t as ATTRIBUTE_UNUSED)
1314 return targetm.valid_pointer_mode (mode);
1317 /* Some places still assume that all pointer or address modes are the
1318 standard Pmode and ptr_mode. These optimizations become invalid if
1319 the target actually supports multiple different modes. For now,
1320 we disable such optimizations on such targets, using this function. */
1322 bool
1323 target_default_pointer_address_modes_p (void)
1325 if (targetm.addr_space.address_mode != default_addr_space_address_mode)
1326 return false;
1327 if (targetm.addr_space.pointer_mode != default_addr_space_pointer_mode)
1328 return false;
1330 return true;
1333 /* Named address space version of legitimate_address_p.
1334 By default, all address spaces have the same form. */
1336 bool
1337 default_addr_space_legitimate_address_p (machine_mode mode, rtx mem,
1338 bool strict,
1339 addr_space_t as ATTRIBUTE_UNUSED)
1341 return targetm.legitimate_address_p (mode, mem, strict);
1344 /* Named address space version of LEGITIMIZE_ADDRESS.
1345 By default, all address spaces have the same form. */
1348 default_addr_space_legitimize_address (rtx x, rtx oldx, machine_mode mode,
1349 addr_space_t as ATTRIBUTE_UNUSED)
1351 return targetm.legitimize_address (x, oldx, mode);
1354 /* The default hook for determining if one named address space is a subset of
1355 another and to return which address space to use as the common address
1356 space. */
1358 bool
1359 default_addr_space_subset_p (addr_space_t subset, addr_space_t superset)
1361 return (subset == superset);
1364 /* The default hook for determining if 0 within a named address
1365 space is a valid address. */
1367 bool
1368 default_addr_space_zero_address_valid (addr_space_t as ATTRIBUTE_UNUSED)
1370 return false;
1373 /* The default hook for debugging the address space is to return the
1374 address space number to indicate DW_AT_address_class. */
1376 default_addr_space_debug (addr_space_t as)
1378 return as;
1381 /* The default hook implementation for TARGET_ADDR_SPACE_DIAGNOSE_USAGE.
1382 Don't complain about any address space. */
1384 void
1385 default_addr_space_diagnose_usage (addr_space_t, location_t)
1390 /* The default hook for TARGET_ADDR_SPACE_CONVERT. This hook should never be
1391 called for targets with only a generic address space. */
1394 default_addr_space_convert (rtx op ATTRIBUTE_UNUSED,
1395 tree from_type ATTRIBUTE_UNUSED,
1396 tree to_type ATTRIBUTE_UNUSED)
1398 gcc_unreachable ();
1401 bool
1402 default_hard_regno_scratch_ok (unsigned int regno ATTRIBUTE_UNUSED)
1404 return true;
1407 /* The default implementation of TARGET_MODE_DEPENDENT_ADDRESS_P. */
1409 bool
1410 default_mode_dependent_address_p (const_rtx addr ATTRIBUTE_UNUSED,
1411 addr_space_t addrspace ATTRIBUTE_UNUSED)
1413 return false;
1416 bool
1417 default_target_option_valid_attribute_p (tree ARG_UNUSED (fndecl),
1418 tree ARG_UNUSED (name),
1419 tree ARG_UNUSED (args),
1420 int ARG_UNUSED (flags))
1422 warning (OPT_Wattributes,
1423 "target attribute is not supported on this machine");
1425 return false;
1428 bool
1429 default_target_option_pragma_parse (tree ARG_UNUSED (args),
1430 tree ARG_UNUSED (pop_target))
1432 /* If args is NULL the caller is handle_pragma_pop_options (). In that case,
1433 emit no warning because "#pragma GCC pop_target" is valid on targets that
1434 do not have the "target" pragma. */
1435 if (args)
1436 warning (OPT_Wpragmas,
1437 "#pragma GCC target is not supported for this machine");
1439 return false;
1442 bool
1443 default_target_can_inline_p (tree caller, tree callee)
1445 bool ret = false;
1446 tree callee_opts = DECL_FUNCTION_SPECIFIC_TARGET (callee);
1447 tree caller_opts = DECL_FUNCTION_SPECIFIC_TARGET (caller);
1449 /* If callee has no option attributes, then it is ok to inline */
1450 if (!callee_opts)
1451 ret = true;
1453 /* If caller has no option attributes, but callee does then it is not ok to
1454 inline */
1455 else if (!caller_opts)
1456 ret = false;
1458 /* If both caller and callee have attributes, assume that if the
1459 pointer is different, the two functions have different target
1460 options since build_target_option_node uses a hash table for the
1461 options. */
1462 else
1463 ret = (callee_opts == caller_opts);
1465 return ret;
1468 /* If the machine does not have a case insn that compares the bounds,
1469 this means extra overhead for dispatch tables, which raises the
1470 threshold for using them. */
1472 unsigned int
1473 default_case_values_threshold (void)
1475 return (targetm.have_casesi () ? 4 : 5);
1478 bool
1479 default_have_conditional_execution (void)
1481 return HAVE_conditional_execution;
1484 /* By default we assume that c99 functions are present at the runtime,
1485 but sincos is not. */
1486 bool
1487 default_libc_has_function (enum function_class fn_class)
1489 if (fn_class == function_c94
1490 || fn_class == function_c99_misc
1491 || fn_class == function_c99_math_complex)
1492 return true;
1494 return false;
1497 bool
1498 gnu_libc_has_function (enum function_class fn_class ATTRIBUTE_UNUSED)
1500 return true;
1503 bool
1504 no_c99_libc_has_function (enum function_class fn_class ATTRIBUTE_UNUSED)
1506 return false;
1509 tree
1510 default_builtin_tm_load_store (tree ARG_UNUSED (type))
1512 return NULL_TREE;
1515 /* Compute cost of moving registers to/from memory. */
1518 default_memory_move_cost (machine_mode mode ATTRIBUTE_UNUSED,
1519 reg_class_t rclass ATTRIBUTE_UNUSED,
1520 bool in ATTRIBUTE_UNUSED)
1522 #ifndef MEMORY_MOVE_COST
1523 return (4 + memory_move_secondary_cost (mode, (enum reg_class) rclass, in));
1524 #else
1525 return MEMORY_MOVE_COST (mode, (enum reg_class) rclass, in);
1526 #endif
1529 /* Compute cost of moving data from a register of class FROM to one of
1530 TO, using MODE. */
1533 default_register_move_cost (machine_mode mode ATTRIBUTE_UNUSED,
1534 reg_class_t from ATTRIBUTE_UNUSED,
1535 reg_class_t to ATTRIBUTE_UNUSED)
1537 #ifndef REGISTER_MOVE_COST
1538 return 2;
1539 #else
1540 return REGISTER_MOVE_COST (mode, (enum reg_class) from, (enum reg_class) to);
1541 #endif
1544 /* For hooks which use the MOVE_RATIO macro, this gives the legacy default
1545 behavior. SPEED_P is true if we are compiling for speed. */
1547 unsigned int
1548 get_move_ratio (bool speed_p ATTRIBUTE_UNUSED)
1550 unsigned int move_ratio;
1551 #ifdef MOVE_RATIO
1552 move_ratio = (unsigned int) MOVE_RATIO (speed_p);
1553 #else
1554 #if defined (HAVE_movmemqi) || defined (HAVE_movmemhi) || defined (HAVE_movmemsi) || defined (HAVE_movmemdi) || defined (HAVE_movmemti)
1555 move_ratio = 2;
1556 #else /* No movmem patterns, pick a default. */
1557 move_ratio = ((speed_p) ? 15 : 3);
1558 #endif
1559 #endif
1560 return move_ratio;
1563 /* Return TRUE if the move_by_pieces/set_by_pieces infrastructure should be
1564 used; return FALSE if the movmem/setmem optab should be expanded, or
1565 a call to memcpy emitted. */
1567 bool
1568 default_use_by_pieces_infrastructure_p (unsigned HOST_WIDE_INT size,
1569 unsigned int alignment,
1570 enum by_pieces_operation op,
1571 bool speed_p)
1573 unsigned int max_size = 0;
1574 unsigned int ratio = 0;
1576 switch (op)
1578 case CLEAR_BY_PIECES:
1579 max_size = STORE_MAX_PIECES;
1580 ratio = CLEAR_RATIO (speed_p);
1581 break;
1582 case MOVE_BY_PIECES:
1583 max_size = MOVE_MAX_PIECES;
1584 ratio = get_move_ratio (speed_p);
1585 break;
1586 case SET_BY_PIECES:
1587 max_size = STORE_MAX_PIECES;
1588 ratio = SET_RATIO (speed_p);
1589 break;
1590 case STORE_BY_PIECES:
1591 max_size = STORE_MAX_PIECES;
1592 ratio = get_move_ratio (speed_p);
1593 break;
1594 case COMPARE_BY_PIECES:
1595 max_size = COMPARE_MAX_PIECES;
1596 /* Pick a likely default, just as in get_move_ratio. */
1597 ratio = speed_p ? 15 : 3;
1598 break;
1601 return by_pieces_ninsns (size, alignment, max_size + 1, op) < ratio;
1604 /* This hook controls code generation for expanding a memcmp operation by
1605 pieces. Return 1 for the normal pattern of compare/jump after each pair
1606 of loads, or a higher number to reduce the number of branches. */
1609 default_compare_by_pieces_branch_ratio (machine_mode)
1611 return 1;
1614 /* Write PATCH_AREA_SIZE NOPs into the asm outfile FILE around a function
1615 entry. If RECORD_P is true and the target supports named sections,
1616 the location of the NOPs will be recorded in a special object section
1617 called "__patchable_function_entries". This routine may be called
1618 twice per function to put NOPs before and after the function
1619 entry. */
1621 void
1622 default_print_patchable_function_entry (FILE *file,
1623 unsigned HOST_WIDE_INT patch_area_size,
1624 bool record_p)
1626 const char *nop_templ = 0;
1627 int code_num;
1628 rtx_insn *my_nop = make_insn_raw (gen_nop ());
1630 /* We use the template alone, relying on the (currently sane) assumption
1631 that the NOP template does not have variable operands. */
1632 code_num = recog_memoized (my_nop);
1633 nop_templ = get_insn_template (code_num, my_nop);
1635 if (record_p && targetm_common.have_named_sections)
1637 char buf[256];
1638 static int patch_area_number;
1639 section *previous_section = in_section;
1641 patch_area_number++;
1642 ASM_GENERATE_INTERNAL_LABEL (buf, "LPFE", patch_area_number);
1644 switch_to_section (get_section ("__patchable_function_entries",
1645 0, NULL));
1646 fputs (integer_asm_op (POINTER_SIZE_UNITS, false), file);
1647 assemble_name_raw (file, buf);
1648 fputc ('\n', file);
1650 switch_to_section (previous_section);
1651 ASM_OUTPUT_LABEL (file, buf);
1654 unsigned i;
1655 for (i = 0; i < patch_area_size; ++i)
1656 fprintf (file, "\t%s\n", nop_templ);
1659 bool
1660 default_profile_before_prologue (void)
1662 #ifdef PROFILE_BEFORE_PROLOGUE
1663 return true;
1664 #else
1665 return false;
1666 #endif
1669 /* The default implementation of TARGET_PREFERRED_RELOAD_CLASS. */
1671 reg_class_t
1672 default_preferred_reload_class (rtx x ATTRIBUTE_UNUSED,
1673 reg_class_t rclass)
1675 #ifdef PREFERRED_RELOAD_CLASS
1676 return (reg_class_t) PREFERRED_RELOAD_CLASS (x, (enum reg_class) rclass);
1677 #else
1678 return rclass;
1679 #endif
1682 /* The default implementation of TARGET_OUTPUT_PREFERRED_RELOAD_CLASS. */
1684 reg_class_t
1685 default_preferred_output_reload_class (rtx x ATTRIBUTE_UNUSED,
1686 reg_class_t rclass)
1688 return rclass;
1691 /* The default implementation of TARGET_PREFERRED_RENAME_CLASS. */
1692 reg_class_t
1693 default_preferred_rename_class (reg_class_t rclass ATTRIBUTE_UNUSED)
1695 return NO_REGS;
1698 /* The default implementation of TARGET_CLASS_LIKELY_SPILLED_P. */
1700 bool
1701 default_class_likely_spilled_p (reg_class_t rclass)
1703 return (reg_class_size[(int) rclass] == 1);
1706 /* The default implementation of TARGET_CLASS_MAX_NREGS. */
1708 unsigned char
1709 default_class_max_nregs (reg_class_t rclass ATTRIBUTE_UNUSED,
1710 machine_mode mode ATTRIBUTE_UNUSED)
1712 #ifdef CLASS_MAX_NREGS
1713 return (unsigned char) CLASS_MAX_NREGS ((enum reg_class) rclass, mode);
1714 #else
1715 return ((GET_MODE_SIZE (mode) + UNITS_PER_WORD - 1) / UNITS_PER_WORD);
1716 #endif
1719 /* Determine the debugging unwind mechanism for the target. */
1721 enum unwind_info_type
1722 default_debug_unwind_info (void)
1724 /* If the target wants to force the use of dwarf2 unwind info, let it. */
1725 /* ??? Change all users to the hook, then poison this. */
1726 #ifdef DWARF2_FRAME_INFO
1727 if (DWARF2_FRAME_INFO)
1728 return UI_DWARF2;
1729 #endif
1731 /* Otherwise, only turn it on if dwarf2 debugging is enabled. */
1732 #ifdef DWARF2_DEBUGGING_INFO
1733 if (write_symbols == DWARF2_DEBUG || write_symbols == VMS_AND_DWARF2_DEBUG)
1734 return UI_DWARF2;
1735 #endif
1737 return UI_NONE;
1740 /* Determine the correct mode for a Dwarf frame register that represents
1741 register REGNO. */
1743 machine_mode
1744 default_dwarf_frame_reg_mode (int regno)
1746 machine_mode save_mode = reg_raw_mode[regno];
1748 if (HARD_REGNO_CALL_PART_CLOBBERED (regno, save_mode))
1749 save_mode = choose_hard_reg_mode (regno, 1, true);
1750 return save_mode;
1753 /* To be used by targets where reg_raw_mode doesn't return the right
1754 mode for registers used in apply_builtin_return and apply_builtin_arg. */
1756 machine_mode
1757 default_get_reg_raw_mode (int regno)
1759 return reg_raw_mode[regno];
1762 /* Return true if a leaf function should stay leaf even with profiling
1763 enabled. */
1765 bool
1766 default_keep_leaf_when_profiled ()
1768 return false;
1771 /* Return true if the state of option OPTION should be stored in PCH files
1772 and checked by default_pch_valid_p. Store the option's current state
1773 in STATE if so. */
1775 static inline bool
1776 option_affects_pch_p (int option, struct cl_option_state *state)
1778 if ((cl_options[option].flags & CL_TARGET) == 0)
1779 return false;
1780 if ((cl_options[option].flags & CL_PCH_IGNORE) != 0)
1781 return false;
1782 if (option_flag_var (option, &global_options) == &target_flags)
1783 if (targetm.check_pch_target_flags)
1784 return false;
1785 return get_option_state (&global_options, option, state);
1788 /* Default version of get_pch_validity.
1789 By default, every flag difference is fatal; that will be mostly right for
1790 most targets, but completely right for very few. */
1792 void *
1793 default_get_pch_validity (size_t *sz)
1795 struct cl_option_state state;
1796 size_t i;
1797 char *result, *r;
1799 *sz = 2;
1800 if (targetm.check_pch_target_flags)
1801 *sz += sizeof (target_flags);
1802 for (i = 0; i < cl_options_count; i++)
1803 if (option_affects_pch_p (i, &state))
1804 *sz += state.size;
1806 result = r = XNEWVEC (char, *sz);
1807 r[0] = flag_pic;
1808 r[1] = flag_pie;
1809 r += 2;
1810 if (targetm.check_pch_target_flags)
1812 memcpy (r, &target_flags, sizeof (target_flags));
1813 r += sizeof (target_flags);
1816 for (i = 0; i < cl_options_count; i++)
1817 if (option_affects_pch_p (i, &state))
1819 memcpy (r, state.data, state.size);
1820 r += state.size;
1823 return result;
1826 /* Return a message which says that a PCH file was created with a different
1827 setting of OPTION. */
1829 static const char *
1830 pch_option_mismatch (const char *option)
1832 return xasprintf (_("created and used with differing settings of '%s'"),
1833 option);
1836 /* Default version of pch_valid_p. */
1838 const char *
1839 default_pch_valid_p (const void *data_p, size_t len)
1841 struct cl_option_state state;
1842 const char *data = (const char *)data_p;
1843 size_t i;
1845 /* -fpic and -fpie also usually make a PCH invalid. */
1846 if (data[0] != flag_pic)
1847 return _("created and used with different settings of -fpic");
1848 if (data[1] != flag_pie)
1849 return _("created and used with different settings of -fpie");
1850 data += 2;
1852 /* Check target_flags. */
1853 if (targetm.check_pch_target_flags)
1855 int tf;
1856 const char *r;
1858 memcpy (&tf, data, sizeof (target_flags));
1859 data += sizeof (target_flags);
1860 len -= sizeof (target_flags);
1861 r = targetm.check_pch_target_flags (tf);
1862 if (r != NULL)
1863 return r;
1866 for (i = 0; i < cl_options_count; i++)
1867 if (option_affects_pch_p (i, &state))
1869 if (memcmp (data, state.data, state.size) != 0)
1870 return pch_option_mismatch (cl_options[i].opt_text);
1871 data += state.size;
1872 len -= state.size;
1875 return NULL;
1878 /* Default version of cstore_mode. */
1880 machine_mode
1881 default_cstore_mode (enum insn_code icode)
1883 return insn_data[(int) icode].operand[0].mode;
1886 /* Default version of member_type_forces_blk. */
1888 bool
1889 default_member_type_forces_blk (const_tree, machine_mode)
1891 return false;
1895 default_load_bounds_for_arg (rtx addr ATTRIBUTE_UNUSED,
1896 rtx ptr ATTRIBUTE_UNUSED,
1897 rtx bnd ATTRIBUTE_UNUSED)
1899 gcc_unreachable ();
1902 void
1903 default_store_bounds_for_arg (rtx val ATTRIBUTE_UNUSED,
1904 rtx addr ATTRIBUTE_UNUSED,
1905 rtx bounds ATTRIBUTE_UNUSED,
1906 rtx to ATTRIBUTE_UNUSED)
1908 gcc_unreachable ();
1912 default_load_returned_bounds (rtx slot ATTRIBUTE_UNUSED)
1914 gcc_unreachable ();
1917 void
1918 default_store_returned_bounds (rtx slot ATTRIBUTE_UNUSED,
1919 rtx bounds ATTRIBUTE_UNUSED)
1921 gcc_unreachable ();
1924 /* Default version of canonicalize_comparison. */
1926 void
1927 default_canonicalize_comparison (int *, rtx *, rtx *, bool)
1931 /* Default implementation of TARGET_ATOMIC_ASSIGN_EXPAND_FENV. */
1933 void
1934 default_atomic_assign_expand_fenv (tree *, tree *, tree *)
1938 #ifndef PAD_VARARGS_DOWN
1939 #define PAD_VARARGS_DOWN BYTES_BIG_ENDIAN
1940 #endif
1942 /* Build an indirect-ref expression over the given TREE, which represents a
1943 piece of a va_arg() expansion. */
1944 tree
1945 build_va_arg_indirect_ref (tree addr)
1947 addr = build_simple_mem_ref_loc (EXPR_LOCATION (addr), addr);
1948 return addr;
1951 /* The "standard" implementation of va_arg: read the value from the
1952 current (padded) address and increment by the (padded) size. */
1954 tree
1955 std_gimplify_va_arg_expr (tree valist, tree type, gimple_seq *pre_p,
1956 gimple_seq *post_p)
1958 tree addr, t, type_size, rounded_size, valist_tmp;
1959 unsigned HOST_WIDE_INT align, boundary;
1960 bool indirect;
1962 /* All of the alignment and movement below is for args-grow-up machines.
1963 As of 2004, there are only 3 ARGS_GROW_DOWNWARD targets, and they all
1964 implement their own specialized gimplify_va_arg_expr routines. */
1965 if (ARGS_GROW_DOWNWARD)
1966 gcc_unreachable ();
1968 indirect = pass_by_reference (NULL, TYPE_MODE (type), type, false);
1969 if (indirect)
1970 type = build_pointer_type (type);
1972 align = PARM_BOUNDARY / BITS_PER_UNIT;
1973 boundary = targetm.calls.function_arg_boundary (TYPE_MODE (type), type);
1975 /* When we align parameter on stack for caller, if the parameter
1976 alignment is beyond MAX_SUPPORTED_STACK_ALIGNMENT, it will be
1977 aligned at MAX_SUPPORTED_STACK_ALIGNMENT. We will match callee
1978 here with caller. */
1979 if (boundary > MAX_SUPPORTED_STACK_ALIGNMENT)
1980 boundary = MAX_SUPPORTED_STACK_ALIGNMENT;
1982 boundary /= BITS_PER_UNIT;
1984 /* Hoist the valist value into a temporary for the moment. */
1985 valist_tmp = get_initialized_tmp_var (valist, pre_p, NULL);
1987 /* va_list pointer is aligned to PARM_BOUNDARY. If argument actually
1988 requires greater alignment, we must perform dynamic alignment. */
1989 if (boundary > align
1990 && !integer_zerop (TYPE_SIZE (type)))
1992 t = build2 (MODIFY_EXPR, TREE_TYPE (valist), valist_tmp,
1993 fold_build_pointer_plus_hwi (valist_tmp, boundary - 1));
1994 gimplify_and_add (t, pre_p);
1996 t = build2 (MODIFY_EXPR, TREE_TYPE (valist), valist_tmp,
1997 fold_build2 (BIT_AND_EXPR, TREE_TYPE (valist),
1998 valist_tmp,
1999 build_int_cst (TREE_TYPE (valist), -boundary)));
2000 gimplify_and_add (t, pre_p);
2002 else
2003 boundary = align;
2005 /* If the actual alignment is less than the alignment of the type,
2006 adjust the type accordingly so that we don't assume strict alignment
2007 when dereferencing the pointer. */
2008 boundary *= BITS_PER_UNIT;
2009 if (boundary < TYPE_ALIGN (type))
2011 type = build_variant_type_copy (type);
2012 SET_TYPE_ALIGN (type, boundary);
2015 /* Compute the rounded size of the type. */
2016 type_size = size_in_bytes (type);
2017 rounded_size = round_up (type_size, align);
2019 /* Reduce rounded_size so it's sharable with the postqueue. */
2020 gimplify_expr (&rounded_size, pre_p, post_p, is_gimple_val, fb_rvalue);
2022 /* Get AP. */
2023 addr = valist_tmp;
2024 if (PAD_VARARGS_DOWN && !integer_zerop (rounded_size))
2026 /* Small args are padded downward. */
2027 t = fold_build2_loc (input_location, GT_EXPR, sizetype,
2028 rounded_size, size_int (align));
2029 t = fold_build3 (COND_EXPR, sizetype, t, size_zero_node,
2030 size_binop (MINUS_EXPR, rounded_size, type_size));
2031 addr = fold_build_pointer_plus (addr, t);
2034 /* Compute new value for AP. */
2035 t = fold_build_pointer_plus (valist_tmp, rounded_size);
2036 t = build2 (MODIFY_EXPR, TREE_TYPE (valist), valist, t);
2037 gimplify_and_add (t, pre_p);
2039 addr = fold_convert (build_pointer_type (type), addr);
2041 if (indirect)
2042 addr = build_va_arg_indirect_ref (addr);
2044 return build_va_arg_indirect_ref (addr);
2047 tree
2048 default_chkp_bound_type (void)
2050 tree res = make_node (POINTER_BOUNDS_TYPE);
2051 TYPE_PRECISION (res) = TYPE_PRECISION (size_type_node) * 2;
2052 TYPE_NAME (res) = get_identifier ("__bounds_type");
2053 SET_TYPE_MODE (res, targetm.chkp_bound_mode ());
2054 layout_type (res);
2055 return res;
2058 machine_mode
2059 default_chkp_bound_mode (void)
2061 return VOIDmode;
2064 tree
2065 default_builtin_chkp_function (unsigned int fcode ATTRIBUTE_UNUSED)
2067 return NULL_TREE;
2071 default_chkp_function_value_bounds (const_tree ret_type ATTRIBUTE_UNUSED,
2072 const_tree fn_decl_or_type ATTRIBUTE_UNUSED,
2073 bool outgoing ATTRIBUTE_UNUSED)
2075 gcc_unreachable ();
2078 tree
2079 default_chkp_make_bounds_constant (HOST_WIDE_INT lb ATTRIBUTE_UNUSED,
2080 HOST_WIDE_INT ub ATTRIBUTE_UNUSED)
2082 return NULL_TREE;
2086 default_chkp_initialize_bounds (tree var ATTRIBUTE_UNUSED,
2087 tree lb ATTRIBUTE_UNUSED,
2088 tree ub ATTRIBUTE_UNUSED,
2089 tree *stmts ATTRIBUTE_UNUSED)
2091 return 0;
2094 void
2095 default_setup_incoming_vararg_bounds (cumulative_args_t ca ATTRIBUTE_UNUSED,
2096 machine_mode mode ATTRIBUTE_UNUSED,
2097 tree type ATTRIBUTE_UNUSED,
2098 int *pretend_arg_size ATTRIBUTE_UNUSED,
2099 int second_time ATTRIBUTE_UNUSED)
2103 /* An implementation of TARGET_CAN_USE_DOLOOP_P for targets that do
2104 not support nested low-overhead loops. */
2106 bool
2107 can_use_doloop_if_innermost (const widest_int &, const widest_int &,
2108 unsigned int loop_depth, bool)
2110 return loop_depth == 1;
2113 /* Default implementation of TARGET_OPTAB_SUPPORTED_P. */
2115 bool
2116 default_optab_supported_p (int, machine_mode, machine_mode, optimization_type)
2118 return true;
2121 /* Default implementation of TARGET_MAX_NOCE_IFCVT_SEQ_COST. */
2123 unsigned int
2124 default_max_noce_ifcvt_seq_cost (edge e)
2126 bool predictable_p = predictable_edge_p (e);
2128 enum compiler_param param
2129 = (predictable_p
2130 ? PARAM_MAX_RTL_IF_CONVERSION_PREDICTABLE_COST
2131 : PARAM_MAX_RTL_IF_CONVERSION_UNPREDICTABLE_COST);
2133 /* If we have a parameter set, use that, otherwise take a guess using
2134 BRANCH_COST. */
2135 if (global_options_set.x_param_values[param])
2136 return PARAM_VALUE (param);
2137 else
2138 return BRANCH_COST (true, predictable_p) * COSTS_N_INSNS (3);
2141 /* Default implementation of TARGET_MIN_ARITHMETIC_PRECISION. */
2143 unsigned int
2144 default_min_arithmetic_precision (void)
2146 return WORD_REGISTER_OPERATIONS ? BITS_PER_WORD : BITS_PER_UNIT;
2149 /* Default implementation of TARGET_C_EXCESS_PRECISION. */
2151 enum flt_eval_method
2152 default_excess_precision (enum excess_precision_type ATTRIBUTE_UNUSED)
2154 return FLT_EVAL_METHOD_PROMOTE_TO_FLOAT;
2157 #include "gt-targhooks.h"