diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2020-09-28 05:52:09 -0400 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-11-24 05:15:59 -0500 |
| commit | 9cfd2c38f39cc2160d057dcd9e44acf73fec58bd (patch) | |
| tree | 26826a614b276caab6342437fcfda70046d526d6 /gcc/ada/libgnat | |
| parent | 02fb12801b18c9d3cfe1c29b5be9f33d2dc77e21 (diff) | |
| download | gcc-9cfd2c38f39cc2160d057dcd9e44acf73fec58bd.zip gcc-9cfd2c38f39cc2160d057dcd9e44acf73fec58bd.tar.gz gcc-9cfd2c38f39cc2160d057dcd9e44acf73fec58bd.tar.bz2 | |
[Ada] Wrong handling of _ in Big_Reals.From_String
gcc/ada/
* libgnat/a-nbnbre.adb (From_String): Handle properly '_'
characters.
Diffstat (limited to 'gcc/ada/libgnat')
| -rw-r--r-- | gcc/ada/libgnat/a-nbnbre.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/libgnat/a-nbnbre.adb b/gcc/ada/libgnat/a-nbnbre.adb index d61668d..055dedc 100644 --- a/gcc/ada/libgnat/a-nbnbre.adb +++ b/gcc/ada/libgnat/a-nbnbre.adb @@ -340,7 +340,7 @@ package body Ada.Numerics.Big_Numbers.Big_Reals is elsif Arg (J) = '.' then Index := J - 1; exit; - else + elsif Arg (J) /= '_' then Pow := Pow + 1; end if; end loop; |