From ae21215e5c1d35711ff7a275bebb255525e83b5b Mon Sep 17 00:00:00 2001 From: John David Anglin Date: Fri, 30 Dec 2005 05:44:16 +0000 Subject: [PATCH] re PR middle-end/25586 (FAIL: gfortran.dg/cray_pointers_2.f90 at -O2 and above) PR fortran/25586 * pa.md: Remove REG_POINTER check from REG+REG peephole2 floating-point store patterns. From-SVN: r109166 --- gcc/ChangeLog | 6 ++++ gcc/config/pa/pa.md | 84 ++++++++++++++++++++++----------------------- 2 files changed, 48 insertions(+), 42 deletions(-) diff --git a/gcc/ChangeLog b/gcc/ChangeLog index c10eeae6981..a62178dd997 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,9 @@ +2005-12-30 John David Anglin + + PR fortran/25586 + * pa.md: Remove REG_POINTER check from REG+REG peephole2 floating-point + store patterns. + 2005-12-29 Mike Stump * doc/invoke.texi (Objective-C and Objective-C++ Dialect Options diff --git a/gcc/config/pa/pa.md b/gcc/config/pa/pa.md index 8e28e8fb613..556c941a5a6 100644 --- a/gcc/config/pa/pa.md +++ b/gcc/config/pa/pa.md @@ -2421,9 +2421,9 @@ (match_operand:SI 3 "register_operand" ""))] "!TARGET_SOFT_FLOAT && !TARGET_DISABLE_INDEXING - && REG_OK_FOR_BASE_P (operands[1]) - && (TARGET_NO_SPACE_REGS - || (!REG_POINTER (operands[1]) && REG_POINTER (operands[2]))) + && TARGET_NO_SPACE_REGS + && REG_OK_FOR_INDEX_P (operands[1]) + && REG_OK_FOR_BASE_P (operands[2]) && FP_REGNO_P (REGNO (operands[3]))" [(set (mem:SI (plus:SI (match_dup 1) (match_dup 2))) (match_dup 3)) @@ -2438,9 +2438,9 @@ (match_operand:SI 3 "register_operand" ""))] "!TARGET_SOFT_FLOAT && !TARGET_DISABLE_INDEXING - && REG_OK_FOR_BASE_P (operands[2]) - && (TARGET_NO_SPACE_REGS - || (REG_POINTER (operands[1]) && !REG_POINTER (operands[2]))) + && TARGET_NO_SPACE_REGS + && REG_OK_FOR_BASE_P (operands[1]) + && REG_OK_FOR_INDEX_P (operands[2]) && FP_REGNO_P (REGNO (operands[3]))" [(set (mem:SI (plus:SI (match_dup 2) (match_dup 1))) (match_dup 3)) @@ -2456,9 +2456,9 @@ "!TARGET_SOFT_FLOAT && !TARGET_DISABLE_INDEXING && TARGET_64BIT - && REG_OK_FOR_BASE_P (operands[1]) - && (TARGET_NO_SPACE_REGS - || (!REG_POINTER (operands[1]) && REG_POINTER (operands[2]))) + && TARGET_NO_SPACE_REGS + && REG_OK_FOR_INDEX_P (operands[1]) + && REG_OK_FOR_BASE_P (operands[2]) && FP_REGNO_P (REGNO (operands[3]))" [(set (mem:SI (plus:DI (match_dup 1) (match_dup 2))) (match_dup 3)) @@ -2474,9 +2474,9 @@ "!TARGET_SOFT_FLOAT && !TARGET_DISABLE_INDEXING && TARGET_64BIT - && REG_OK_FOR_BASE_P (operands[2]) - && (TARGET_NO_SPACE_REGS - || (REG_POINTER (operands[1]) && !REG_POINTER (operands[2]))) + && TARGET_NO_SPACE_REGS + && REG_OK_FOR_BASE_P (operands[1]) + && REG_OK_FOR_INDEX_P (operands[2]) && FP_REGNO_P (REGNO (operands[3]))" [(set (mem:SI (plus:DI (match_dup 2) (match_dup 1))) (match_dup 3)) @@ -3948,9 +3948,9 @@ (match_operand:DF 3 "register_operand" ""))] "!TARGET_SOFT_FLOAT && !TARGET_DISABLE_INDEXING - && REG_OK_FOR_BASE_P (operands[1]) - && (TARGET_NO_SPACE_REGS - || (!REG_POINTER (operands[1]) && REG_POINTER (operands[2]))) + && TARGET_NO_SPACE_REGS + && REG_OK_FOR_INDEX_P (operands[1]) + && REG_OK_FOR_BASE_P (operands[2]) && FP_REGNO_P (REGNO (operands[3]))" [(set (mem:DF (plus:SI (match_dup 1) (match_dup 2))) (match_dup 3)) @@ -3965,9 +3965,9 @@ (match_operand:DF 3 "register_operand" ""))] "!TARGET_SOFT_FLOAT && !TARGET_DISABLE_INDEXING - && REG_OK_FOR_BASE_P (operands[2]) - && (TARGET_NO_SPACE_REGS - || (REG_POINTER (operands[1]) && !REG_POINTER (operands[2]))) + && TARGET_NO_SPACE_REGS + && REG_OK_FOR_BASE_P (operands[1]) + && REG_OK_FOR_INDEX_P (operands[2]) && FP_REGNO_P (REGNO (operands[3]))" [(set (mem:DF (plus:SI (match_dup 2) (match_dup 1))) (match_dup 3)) @@ -3983,9 +3983,9 @@ "!TARGET_SOFT_FLOAT && !TARGET_DISABLE_INDEXING && TARGET_64BIT - && REG_OK_FOR_BASE_P (operands[1]) - && (TARGET_NO_SPACE_REGS - || (!REG_POINTER (operands[1]) && REG_POINTER (operands[2]))) + && TARGET_NO_SPACE_REGS + && REG_OK_FOR_INDEX_P (operands[1]) + && REG_OK_FOR_BASE_P (operands[2]) && FP_REGNO_P (REGNO (operands[3]))" [(set (mem:DF (plus:DI (match_dup 1) (match_dup 2))) (match_dup 3)) @@ -4001,9 +4001,9 @@ "!TARGET_SOFT_FLOAT && !TARGET_DISABLE_INDEXING && TARGET_64BIT - && REG_OK_FOR_BASE_P (operands[2]) - && (TARGET_NO_SPACE_REGS - || (REG_POINTER (operands[1]) && !REG_POINTER (operands[2]))) + && TARGET_NO_SPACE_REGS + && REG_OK_FOR_BASE_P (operands[1]) + && REG_OK_FOR_INDEX_P (operands[2]) && FP_REGNO_P (REGNO (operands[3]))" [(set (mem:DF (plus:DI (match_dup 2) (match_dup 1))) (match_dup 3)) @@ -4253,9 +4253,9 @@ "!TARGET_SOFT_FLOAT && !TARGET_DISABLE_INDEXING && TARGET_64BIT - && REG_OK_FOR_BASE_P (operands[1]) - && (TARGET_NO_SPACE_REGS - || (!REG_POINTER (operands[1]) && REG_POINTER (operands[2]))) + && TARGET_NO_SPACE_REGS + && REG_OK_FOR_INDEX_P (operands[1]) + && REG_OK_FOR_BASE_P (operands[2]) && FP_REGNO_P (REGNO (operands[3]))" [(set (mem:DI (plus:DI (match_dup 1) (match_dup 2))) (match_dup 3)) @@ -4271,9 +4271,9 @@ "!TARGET_SOFT_FLOAT && !TARGET_DISABLE_INDEXING && TARGET_64BIT - && REG_OK_FOR_BASE_P (operands[2]) - && (TARGET_NO_SPACE_REGS - || (REG_POINTER (operands[1]) && !REG_POINTER (operands[2]))) + && TARGET_NO_SPACE_REGS + && REG_OK_FOR_BASE_P (operands[1]) + && REG_OK_FOR_INDEX_P (operands[2]) && FP_REGNO_P (REGNO (operands[3]))" [(set (mem:DI (plus:DI (match_dup 2) (match_dup 1))) (match_dup 3)) @@ -4486,9 +4486,9 @@ (match_operand:SF 3 "register_operand" ""))] "!TARGET_SOFT_FLOAT && !TARGET_DISABLE_INDEXING - && REG_OK_FOR_BASE_P (operands[1]) - && (TARGET_NO_SPACE_REGS - || (!REG_POINTER (operands[1]) && REG_POINTER (operands[2]))) + && TARGET_NO_SPACE_REGS + && REG_OK_FOR_INDEX_P (operands[1]) + && REG_OK_FOR_BASE_P (operands[2]) && FP_REGNO_P (REGNO (operands[3]))" [(set (mem:SF (plus:SI (match_dup 1) (match_dup 2))) (match_dup 3)) @@ -4503,9 +4503,9 @@ (match_operand:SF 3 "register_operand" ""))] "!TARGET_SOFT_FLOAT && !TARGET_DISABLE_INDEXING - && REG_OK_FOR_BASE_P (operands[2]) - && (TARGET_NO_SPACE_REGS - || (REG_POINTER (operands[1]) && !REG_POINTER (operands[2]))) + && TARGET_NO_SPACE_REGS + && REG_OK_FOR_BASE_P (operands[1]) + && REG_OK_FOR_INDEX_P (operands[2]) && FP_REGNO_P (REGNO (operands[3]))" [(set (mem:SF (plus:SI (match_dup 2) (match_dup 1))) (match_dup 3)) @@ -4521,9 +4521,9 @@ "!TARGET_SOFT_FLOAT && !TARGET_DISABLE_INDEXING && TARGET_64BIT - && REG_OK_FOR_BASE_P (operands[1]) - && (TARGET_NO_SPACE_REGS - || (!REG_POINTER (operands[1]) && REG_POINTER (operands[2]))) + && TARGET_NO_SPACE_REGS + && REG_OK_FOR_INDEX_P (operands[1]) + && REG_OK_FOR_BASE_P (operands[2]) && FP_REGNO_P (REGNO (operands[3]))" [(set (mem:SF (plus:DI (match_dup 1) (match_dup 2))) (match_dup 3)) @@ -4539,9 +4539,9 @@ "!TARGET_SOFT_FLOAT && !TARGET_DISABLE_INDEXING && TARGET_64BIT - && REG_OK_FOR_BASE_P (operands[2]) - && (TARGET_NO_SPACE_REGS - || (REG_POINTER (operands[1]) && !REG_POINTER (operands[2]))) + && TARGET_NO_SPACE_REGS + && REG_OK_FOR_BASE_P (operands[1]) + && REG_OK_FOR_INDEX_P (operands[2]) && FP_REGNO_P (REGNO (operands[3]))" [(set (mem:SF (plus:DI (match_dup 2) (match_dup 1))) (match_dup 3))