diff options
| author | Sebastian Pop <sebastian.pop@amd.com> | 2009-07-31 02:39:06 +0000 |
|---|---|---|
| committer | Sebastian Pop <spop@gcc.gnu.org> | 2009-07-31 02:39:06 +0000 |
| commit | e7c705bbbdc98ccb45cb953582f8964cfa3de61e (patch) | |
| tree | f5f7bca2b7de0bb641f9c2b63b097c8c122238d6 /gcc/tree-chrec.c | |
| parent | 765deab7d02db9c60b0851ce6448014548d89bfc (diff) | |
| download | gcc-e7c705bbbdc98ccb45cb953582f8964cfa3de61e.zip gcc-e7c705bbbdc98ccb45cb953582f8964cfa3de61e.tar.gz gcc-e7c705bbbdc98ccb45cb953582f8964cfa3de61e.tar.bz2 | |
Implement evolution_function_right_is_integer_cst.
2009-07-30 Sebastian Pop <sebastian.pop@amd.com>
* tree-chrec.c (evolution_function_right_is_integer_cst): New.
* tree-chrec.h (evolution_function_right_is_integer_cst): Declared.
From-SVN: r150299
Diffstat (limited to 'gcc/tree-chrec.c')
| -rw-r--r-- | gcc/tree-chrec.c | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/gcc/tree-chrec.c b/gcc/tree-chrec.c index caf7428..33d9f18 100644 --- a/gcc/tree-chrec.c +++ b/gcc/tree-chrec.c @@ -1487,3 +1487,33 @@ scev_is_linear_expression (tree scev) return false; } } + +/* Determines whether the expression CHREC contains only interger consts + in the right parts. */ + +bool +evolution_function_right_is_integer_cst (const_tree chrec) +{ + if (chrec == NULL_TREE) + return false; + + switch (TREE_CODE (chrec)) + { + case INTEGER_CST: + return true; + + case POLYNOMIAL_CHREC: + if (!evolution_function_right_is_integer_cst (CHREC_RIGHT (chrec))) + return false; + + if (TREE_CODE (CHREC_LEFT (chrec)) == POLYNOMIAL_CHREC + && !evolution_function_right_is_integer_cst (CHREC_LEFT (chrec))) + return false; + + return true; + + default: + return false; + } +} + |