From bd4b644b8fa7d902ab5624f52dc15c36a5634722 Mon Sep 17 00:00:00 2001 From: charlet Date: Fri, 17 Apr 2009 13:06:08 +0000 Subject: 2009-04-17 Pascal Obry * initialize.c: Fix test for reallocating the arguments array. 2009-04-17 Geert Bosch * exp_fixd.adb (Expand_Convert_Float_To_Fixed): Have float to fixed conversion truncate only for decimal fixed point types. 2009-04-17 Jerome Lambourg * g-comlin.adb (Initialize_Scan_Option): Make sure the sections are reinitialized. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@146261 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/exp_fixd.adb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'gcc/ada/exp_fixd.adb') diff --git a/gcc/ada/exp_fixd.adb b/gcc/ada/exp_fixd.adb index afac7b0b298..fa878c2bf78 100644 --- a/gcc/ada/exp_fixd.adb +++ b/gcc/ada/exp_fixd.adb @@ -1701,13 +1701,15 @@ package body Exp_Fixd is Set_Result (N, Expr, Rng_Check, Trunc => True); -- Normal case where multiply is required + -- Rounding is truncating for decimal fixed point types only, + -- see RM 4.6(29). else Set_Result (N, Build_Multiply (N, Fpt_Value (Expr), Real_Literal (N, Ureal_1 / Small)), - Rng_Check, Trunc => True); + Rng_Check, Trunc => Is_Decimal_Fixed_Point_Type (Result_Type)); end if; end Expand_Convert_Float_To_Fixed; -- cgit v1.2.1