diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2010-04-16 10:16:52 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2010-04-16 10:16:52 +0000 |
| commit | 586388fd723b7c59d97304607357ca13dd3d20d9 (patch) | |
| tree | d130186b36c958b0c3d54ab01e172031d9308604 /gcc/ada/uintp.adb | |
| parent | f0c6475aeaa426c110cdc4df6c63c0ee63e5776e (diff) | |
| download | gcc-586388fd723b7c59d97304607357ca13dd3d20d9.zip gcc-586388fd723b7c59d97304607357ca13dd3d20d9.tar.gz gcc-586388fd723b7c59d97304607357ca13dd3d20d9.tar.bz2 | |
uintp.adb (UI_From_Dint): Remove useless code.
* uintp.adb (UI_From_Dint): Remove useless code.
(UI_From_Int): Likewise.
* uintp.h: Reorder declarations.
(UI_From_gnu): Declare.
(UI_Base): Likewise.
(Vector_Template): Likewise.
(Vector_To_Uint): Likewise.
(Uint_0): Remove.
(Uint_1): Likewise.
* gcc-interface/gigi.h: Tweak comments.
* gcc-interface/cuintp.c (UI_From_gnu): New global function.
* gcc-interface/decl.c (maybe_pad_type): Do not warn if either size
overflows.
(annotate_value) <INTEGER_CST>: Call UI_From_gnu.
* gcc-interface/trans.c (post_error_ne_num): Call post_error_ne.
(post_error_ne_tree): Call UI_From_gnu and post_error_ne.
* gcc-interface/utils.c (max_size) <tcc_binary>: Do not special-case
TYPE_MAX_VALUE.
From-SVN: r158408
Diffstat (limited to 'gcc/ada/uintp.adb')
| -rw-r--r-- | gcc/ada/uintp.adb | 16 |
1 files changed, 2 insertions, 14 deletions
diff --git a/gcc/ada/uintp.adb b/gcc/ada/uintp.adb index 9337721..3b72d15 100644 --- a/gcc/ada/uintp.adb +++ b/gcc/ada/uintp.adb @@ -1703,15 +1703,9 @@ package body Uintp is V : UI_Vector (1 .. Max_For_Dint); - Temp_Integer : Dint; + Temp_Integer : Dint := Input; begin - for J in V'Range loop - V (J) := 0; - end loop; - - Temp_Integer := Input; - for J in reverse V'Range loop V (J) := Int (abs (Temp_Integer rem Dint (Base))); Temp_Integer := Temp_Integer / Dint (Base); @@ -1752,15 +1746,9 @@ package body Uintp is V : UI_Vector (1 .. Max_For_Int); - Temp_Integer : Int; + Temp_Integer : Int := Input; begin - for J in V'Range loop - V (J) := 0; - end loop; - - Temp_Integer := Input; - for J in reverse V'Range loop V (J) := abs (Temp_Integer rem Base); Temp_Integer := Temp_Integer / Base; |