* uintp.adb (Num_Bits): Handle Uint_Int_First specially.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@111700 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index d87a8d6..cc1a4b2 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,9 +1,14 @@
+2006-03-03  Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>
+
+       * uintp.adb (Num_Bits): Handle Uint_Int_First specially.
+
 2006-03-02  Richard Sandiford  <richard@codesourcery.com>
 
        * utils.c (create_var_decl): Use have_global_bss_p when deciding
        whether to make the decl common.
 
 2006-02-20 Rafael Ávila de Espíndola <rafael.espindola@gmail.com>
+
        * Make-lang.in (Ada): Remove
        (.PHONY): Remove Ada
 

diff --git a/gcc/ada/uintp.adb b/gcc/ada/uintp.adb
index c9fbb03..d295eab 100644 (file)
--- a/gcc/ada/uintp.adb
+++ b/gcc/ada/uintp.adb
@@ -590,7 +590,10 @@ package body Uintp is
       Num  : Nat;
 
    begin
-      if UI_Is_In_Int_Range (Input) then
+      if Input = Uint_Int_First then
+         return Int'Size;
+
+      elsif UI_Is_In_Int_Range (Input) then
          Num := abs (UI_To_Int (Input));
          Bits := 0;