re PR target/26504 (compute_frame_pointer_to_cfa_displacement error for avr…

re PR target/26504 (compute_frame_pointer_to_cfa_displacement error for avr target with --with-dwarf2)

	* config/avr/predicates.md: New file.
	* config/avr/avr.md: Include it.
	(REG_SP): New constant.
	(peepholes): Use predicates.
	(sbrx_branch, sbrx_and_branchhi, sbrx_and_branchsi, branch, rvbranch,
	difficult_branch,  difficult_rvbranch, cbi, sbi, sbix_branch,
	sbix_branch_bit7, sbix_branch_tmp, sbix_branch_tmp_bit7): Ditto.
	PR target/26504
	* config/avr/avr.h (FRAME_POINTER_CFA_OFFSET): Define.

From-SVN: r117616

gcc/ChangeLog

+2006-10-10  Anatoly Sokolov <aesok@post.ru>
+
+	* config/avr/predicates.md: New file.
+	* config/avr/avr.md: Include it.
+	(REG_SP): New constant.
+	(peepholes): Use predicates.
+	(sbrx_branch, sbrx_and_branchhi, sbrx_and_branchsi, branch, rvbranch,
+	difficult_branch,  difficult_rvbranch, cbi, sbi, sbix_branch,
+	sbix_branch_bit7, sbix_branch_tmp, sbix_branch_tmp_bit7): Ditto.
+
 2006-10-10  Adam Nemet  <anemet@caviumnetworks.com>
 
 	* config/mips/mips.c (mips_save_restore_reg): Use gen_frame_mem to

gcc/config/avr/predicates.md

+;; Predicate definitions for ATMEL AVR micro controllers.
+;; Copyright (C) 2006 Free Software Foundation, Inc.
+;;
+;; This file is part of GCC.
+;;
+;; GCC is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; GCC is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GCC; see the file COPYING.  If not, write to
+;; the Free Software Foundation, 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;; Registers from r0 to r15.
+(define_predicate "l_register_operand"
+  (and (match_code "reg")
+       (match_test "REGNO (op) <= 15")))
+
+;; Registers from r16 to r31.
+(define_predicate "d_register_operand"
+  (and (match_code "reg")
+       (match_test "REGNO (op) >= 16 && REGNO (op) <= 31")))
+
+;; SP register.
+(define_predicate "stack_register_operand"
+  (and (match_code "reg")
+       (match_test "REGNO (op) == REG_SP")))
+
+;; Return true if OP is a valid address for an I/O register.
+(define_predicate "io_address_operand"
+  (and (match_code "const_int")
+       (match_test "INTVAL (op) >= 0x20 
+                    && INTVAL (op) <= 0x60 - GET_MODE_SIZE (mode)")))
+
+;; Return true if OP is a valid address for lower half of I/O space.
+(define_predicate "low_io_address_operand"
+  (and (match_code "const_int")
+       (match_test "INTVAL (op) >= 0x20 
+                    && INTVAL (op) <= 0x40 - GET_MODE_SIZE (mode)")))
+       
+;; Return true if OP is a valid address for higth half of I/O space.
+(define_predicate "higth_io_address_operand"
+  (and (match_code "const_int")
+       (match_test "INTVAL (op) >= 0x40 
+                    && INTVAL (op) <= 0x60 - GET_MODE_SIZE (mode)")))
+       
+;; Returns 1 if OP is a SYMBOL_REF.
+(define_predicate "symbol_ref_operand"
+  (match_code "symbol_ref"))
+
+;; Return true if OP is a constant that contains only one 1 in its
+;; binary representation.
+(define_predicate "single_one_operand"
+  (and (match_code "const_int")
+       (match_test "exact_log2(INTVAL (op) & GET_MODE_MASK (mode)) >= 0")))
+
+;; Return true if OP is a constant that contains only one 0 in its
+;; binary representation.
+(define_predicate "single_zero_operand"
+  (and (match_code "const_int")
+       (match_test "exact_log2(~INTVAL (op) & GET_MODE_MASK (mode)) >= 0")))
+      
+;; True for EQ & NE
+(define_predicate "eqne_operator"
+  (match_code "eq,ne"))
+       
+;; True for GE & LT
+(define_predicate "gelt_operator"
+  (match_code "ge,lt"))
+       
+;; True for GT, GTU, LE & LEU
+(define_predicate "difficult_comparison_operator"
+  (match_code "gt,gtu,le,leu"))
+
+;; False for GT, GTU, LE & LEU
+(define_predicate "simple_comparison_operator"
+  (and (match_operand 0 "comparison_operator")
+       (not (match_code "gt,gtu,le,leu"))))