diff options
| -rw-r--r-- | gcc/ChangeLog.MELT | 4 | ||||
| -rw-r--r-- | gcc/melt/xtramelt-opengpu.melt | 11 |
2 files changed, 11 insertions, 4 deletions
diff --git a/gcc/ChangeLog.MELT b/gcc/ChangeLog.MELT index e49d5ee9396..1926362a65b 100644 --- a/gcc/ChangeLog.MELT +++ b/gcc/ChangeLog.MELT @@ -1,5 +1,9 @@ 2011-10-19 Basile Starynkevitch <basile@starynkevitch.net> + * melt/xtramelt-opengpu.melt (opengpudetect_handle_parallel_loop): + Match on ssa variables. + +2011-10-19 Basile Starynkevitch <basile@starynkevitch.net> * melt/warmelt-debug.melt (melt_debug_fun): Emit newline when appropriate for raw cstrings starting with space. diff --git a/gcc/melt/xtramelt-opengpu.melt b/gcc/melt/xtramelt-opengpu.melt index d6f52232b0f..31f50f9b563 100644 --- a/gcc/melt/xtramelt-opengpu.melt +++ b/gcc/melt/xtramelt-opengpu.melt @@ -78,22 +78,25 @@ " rhs=" rhs " rvar=" rvar " rvers=" rvers) ) (?(gimple_assign_cast ?lhs ?rhs) - (debug "opengpudetect_handle_parallel_loop assign cast lhs=" lhs " rhs=" rhs) + (debug "opengpudetect_handle_parallel_loop assign strange cast lhs=" lhs " rhs=" rhs) ) ;; - (?(gimple_assign_plus ?lhs ?rhs1 ?rhs2) + (?(gimple_assign_plus ?(and ?lhs ?(tree_simple_ssa_name ?lvar ?lvers)) ?rhs1 ?rhs2) (debug "opengpudetect_handle_parallel_loop assign plus lhs=" lhs + " lvar=" lvar " lvers=" lvers " rhs1=" rhs1 " rhs2=" rhs2) ) ;; - (?(gimple_assign_pointerplus ?lhs ?rhs1 ?rhs2) + (?(gimple_assign_pointerplus ?(and ?lhs ?(tree_simple_ssa_name ?lvar ?lvers)) ?rhs1 ?rhs2) (debug "opengpudetect_handle_parallel_loop assign pointerplus lhs=" lhs + " lvar=" lvar " lvers=" lvers " rhs1=" rhs1 " rhs2=" rhs2) ) ;; - (?(gimple_assign_mult ?lhs ?rhs1 ?rhs2) + (?(gimple_assign_mult ?(and ?lhs ?(tree_simple_ssa_name ?lvar ?lvers)) ?rhs1 ?rhs2) (debug "opengpudetect_handle_parallel_loop assign mult lhs=" lhs + " lvar=" lvar " lvers=" lvers " rhs1=" rhs1 " rhs2=" rhs2) ) ;; |