On Wed, 2006-03-01 at 08:24 -0500, Richard Kenner wrote: > So this is likely to be a FE Ada coding bug and not a FE/ME/BE interface > issue, thanks for spotting this! > > Sorry, my last suggestion is clearly wrong. I think is right. > > *** uintp.adb 12 Sep 2003 21:50:56 -0000 1.80 > --- uintp.adb 1 Mar 2006 13:16:21 -0000 > *************** package body Uintp is > *** 591,595 **** > > begin > ! if UI_Is_In_Int_Range (Input) then > Num := abs (UI_To_Int (Input)); > Bits := 0; > --- 591,598 ---- > > begin > ! 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; It certainly fixes the testsuite hang. If it's the correct fix, then can you please make sure it gets installed.
Thanks, Jeff
