diff options
Diffstat (limited to 'gcc/ada/a-tiinau.adb')
| -rw-r--r-- | gcc/ada/a-tiinau.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/ada/a-tiinau.adb b/gcc/ada/a-tiinau.adb index f9d7ce0..0397771 100644 --- a/gcc/ada/a-tiinau.adb +++ b/gcc/ada/a-tiinau.adb @@ -167,6 +167,9 @@ package body Ada.Text_IO.Integer_Aux is Load_Digits (File, Buf, Ptr, Loaded); if Loaded then + + -- Deal with based literal (note : is ok replacement for #) + Load (File, Buf, Ptr, '#', ':', Loaded); if Loaded then @@ -175,6 +178,8 @@ package body Ada.Text_IO.Integer_Aux is Load (File, Buf, Ptr, Buf (Hash_Loc)); end if; + -- Deal with exponent + Load (File, Buf, Ptr, 'E', 'e', Loaded); if Loaded then |