diff options
| author | Richard Kenner <kenner@vlsi1.ultra.nyu.edu> | 2006-03-04 00:27:15 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2006-03-04 00:27:15 +0000 |
| commit | 93f978b755d593ebe594c0529884418b3b69f49f (patch) | |
| tree | 2b93415196499c740667ef96cd0d92170048857b /gcc/ada/uintp.adb | |
| parent | b05547fe372bc629d7449ad3a856bdecf0298097 (diff) | |
| download | gcc-93f978b755d593ebe594c0529884418b3b69f49f.zip gcc-93f978b755d593ebe594c0529884418b3b69f49f.tar.gz gcc-93f978b755d593ebe594c0529884418b3b69f49f.tar.bz2 | |
uintp.adb (Num_Bits): Handle Uint_Int_First specially.
* uintp.adb (Num_Bits): Handle Uint_Int_First specially.
From-SVN: r111700
Diffstat (limited to 'gcc/ada/uintp.adb')
| -rw-r--r-- | gcc/ada/uintp.adb | 5 |
1 files changed, 4 insertions, 1 deletions
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; |