| commit | 5c7854b28f56634cc3a8afb7889d1a76883a0cf3 | |
| author | Justin Squirek <squirek@adacore.com> | |
| Fri, 27 Oct 2023 00:08:07 +0000 (27 00:08 +0000) | ||
| committer | Marc Poulhiès <poulhies@adacore.com> | |
| Tue, 21 Nov 2023 09:57:42 +0000 (21 10:57 +0100) | ||
| tree | bb731b00900e43a739f9ca2a27a3ea449ea716d8 | treesnapshot (tar.gz zip) |
| parent | 5ee80f712883981fde26976bb4f9e157e105944c | commitdiff |
ada: Fix string indexing within GNAT.Calendar.Time_IO.Value
The patch fixes an issue in the compiler whereby calls to
GNAT.Calendar.Time_IO.Value where the actual for formal String Date with
indexing starting at any value besides one would result in a spurious runtime
exception.
gcc/ada/
* libgnat/g-catiio.adb (Value): Modify conditionals to use 'Last
instead of 'Length
The patch fixes an issue in the compiler whereby calls to
GNAT.Calendar.Time_IO.Value where the actual for formal String Date with
indexing starting at any value besides one would result in a spurious runtime
exception.
gcc/ada/
* libgnat/g-catiio.adb (Value): Modify conditionals to use 'Last
instead of 'Length
| gcc/ada/libgnat/g-catiio.adb | diffblobblamehistory |