From f8125f0c9ce43aac6d7a96753e4617af68ee0009 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Mon, 30 Nov 2015 11:34:31 +0000 Subject: * gcc-interface/utils2.c (gnat_invariant_expr): Add type conversions. From-SVN: r231063 --- gcc/ada/gcc-interface/utils2.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'gcc/ada/gcc-interface') diff --git a/gcc/ada/gcc-interface/utils2.c b/gcc/ada/gcc-interface/utils2.c index 79e9b2f..a74b8a8 100644 --- a/gcc/ada/gcc-interface/utils2.c +++ b/gcc/ada/gcc-interface/utils2.c @@ -2860,7 +2860,9 @@ gnat_invariant_expr (tree expr) tree op0 = gnat_invariant_expr (TREE_OPERAND (expr, 0)); tree op1 = TREE_OPERAND (expr, 1); if (op0 && TREE_CONSTANT (op1)) - return fold_build2 (TREE_CODE (expr), type, op0, op1); + return + fold_build2 (TREE_CODE (expr), type, + fold_convert (type, op0), fold_convert (type, op1)); else return NULL_TREE; } -- cgit v1.1