ada/libgnat/s-valuer.adb

46      (Digit : Char_As_Digit;
125      (Digit : Char_As_Digit;
134       if Digit >= Base / 2 then
146                Round_Extra (Digit, Value, Scale, Extra, Base);
193       Digit : Char_As_Digit;  variable
219       Digit := As_Digit (Str (Index));
226          if Digit >= Base then
229             elsif Digit = E_Digit then
243                Round_Extra (Digit, Value, Scale, Extra, Base);
250             if Digit = 0 then
273                Temp := Value * Uns (Base) + Uns (Digit);
290                   Extra := Digit;
307          Digit := As_Digit (Str (Index));
309          if Digit not in Valid_Digit then
313             if Digit = Underscore and Index + 1 <= Max then
315                Digit := As_Digit (Str (Index + 1));
316                if Digit in Valid_Digit then
362       Digit : Char_As_Digit;  variable
384       Digit := As_Digit (Str (Index));
391          if Digit >= Base then
394             elsif Digit = E_Digit then
410                Round_Extra (Digit, Value, Scale, Extra, Base);
415             Temp := Value * Uns (Base) + Uns (Digit);
431                Extra := Digit;
447          Digit := As_Digit (Str (Index));
449          if Digit not in Valid_Digit then
454             if Digit = Underscore and Index + 1 <= Max then
455                Digit := As_Digit (Str (Index + 1));
456                if Digit in Valid_Digit then