diff options
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/uintp.adb | 5 |
2 files changed, 9 insertions, 1 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index d87a8d6..cc1a4b2 100644 --- 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 --- 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; |