diff options
Diffstat (limited to 'gcc/ada/libgnat/a-tiflau.adb')
| -rw-r--r-- | gcc/ada/libgnat/a-tiflau.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/libgnat/a-tiflau.adb b/gcc/ada/libgnat/a-tiflau.adb index 25d78ca..214b5c8 100644 --- a/gcc/ada/libgnat/a-tiflau.adb +++ b/gcc/ada/libgnat/a-tiflau.adb @@ -194,7 +194,7 @@ package body Ada.Text_IO.Float_Aux is Aft : Field; Exp : Field) is - Buf : String (1 .. 3 * Field'Last + 2); + Buf : String (1 .. Max_Real_Image_Length); Ptr : Natural := 0; begin @@ -212,7 +212,7 @@ package body Ada.Text_IO.Float_Aux is Aft : Field; Exp : Field) is - Buf : String (1 .. 3 * Field'Last + 2); + Buf : String (1 .. Max_Real_Image_Length); Ptr : Natural := 0; begin |