CFT: tuple changes for ADA

[Aldy Hernandez]

> I bootstraped c,ada on x86_64-linux on gimple-tuples-branch (r118663)
> and no major breakage Ada-wise:

Sweet!

> #8  0x00000000006ada8c in get_rhs (stmt=0x101040101010100) at ../../gimple-tuples-branch/gcc/tree-ssa-propagate.c:541

Let me know if the patch below fixes it.

Thank you very much for taking a look at this.

Aldy

Index: tree-ssa-propagate.c
===================================================================
--- tree-ssa-propagate.c        (revision 118179)
+++ tree-ssa-propagate.c        (working copy)
@@ -536,7 +536,7 @@ get_rhs (tree stmt)
       /* FALLTHRU */

     case GIMPLE_MODIFY_STMT:
-      stmt = GIMPLE_STMT_OPERAND (stmt, 1);
+      stmt = PROTECTED_TREE_OPERAND (stmt, 1);
       if (TREE_CODE (stmt) == WITH_SIZE_EXPR)
        return GIMPLE_STMT_OPERAND (stmt, 0);
       else