diff options
Diffstat (limited to 'gcc/ada/exp_vfpt.adb')
| -rw-r--r-- | gcc/ada/exp_vfpt.adb | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/gcc/ada/exp_vfpt.adb b/gcc/ada/exp_vfpt.adb index 448864497fb..0f03e874393 100644 --- a/gcc/ada/exp_vfpt.adb +++ b/gcc/ada/exp_vfpt.adb @@ -6,8 +6,7 @@ -- -- -- B o d y -- -- -- --- -- --- Copyright (C) 1997-2001 Free Software Foundation, Inc. -- +-- Copyright (C) 1997-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -310,7 +309,6 @@ package body Exp_VFpt is end if; end Equivalent_Integer_Type; - -- Start of processing for Expand_Vax_Conversion; begin @@ -323,7 +321,6 @@ package body Exp_VFpt is Rewrite (N, Unchecked_Convert_To (T_Typ, Expr)); - elsif Is_Fixed_Point_Type (S_Typ) then -- convert the scaled integer value to the target type, and multiply |