diff options
| author | Geert Bosch <bosch@adacore.com> | 2008-11-07 09:56:33 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2008-11-07 09:56:33 +0000 |
| commit | 58e94443400c84cb32f07b7ffe0f383d75d5a688 (patch) | |
| tree | d75657f0fa708155979e72e35fcd2f88557bcc96 /gcc/ada/gcc-interface/trans.c | |
| parent | a7c43bbc03165cf0f566fcdd5d5a99bd0b6eae7c (diff) | |
| download | gcc-58e94443400c84cb32f07b7ffe0f383d75d5a688.zip gcc-58e94443400c84cb32f07b7ffe0f383d75d5a688.tar.gz gcc-58e94443400c84cb32f07b7ffe0f383d75d5a688.tar.bz2 | |
trans.c (build_binary_op_trapv): Convert arguments and result for call to __gnat_mulv64.
* gcc-interface/trans.c (build_binary_op_trapv): Convert arguments
and result for call to __gnat_mulv64.
From-SVN: r141668
Diffstat (limited to 'gcc/ada/gcc-interface/trans.c')
| -rw-r--r-- | gcc/ada/gcc-interface/trans.c | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index d1d449e..005d517 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -6032,7 +6032,13 @@ build_binary_op_trapv (enum tree_code code, tree gnu_type, tree left, int needed_precision = precision * 2; if (code == MULT_EXPR && precision == 64) - return build_call_2_expr (mulv64_decl, lhs, rhs); + { + tree int_64 = gnat_type_for_size (64, 0); + + return convert (gnu_type, build_call_2_expr (mulv64_decl, + convert (int_64, lhs), + convert (int_64, rhs))); + } else if (needed_precision <= BITS_PER_WORD || (code == MULT_EXPR |