uintp.adb (Num_Bits): Handle Uint_Int_First specially.

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

From-SVN: r111700

gcc/ada/ChangeLog

+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
 

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;