diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2020-03-06 06:13:36 -0500 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-06-10 09:34:59 -0400 |
| commit | a53b03b5a7b2cdb00aed0618117f6b855eb3891a (patch) | |
| tree | 3760ed070ea7476bf559a29b9ce1011c89294272 | |
| parent | 9c4b4975bb425c86c56b3aa791890ed9edabe0f6 (diff) | |
| download | gcc-a53b03b5a7b2cdb00aed0618117f6b855eb3891a.zip gcc-a53b03b5a7b2cdb00aed0618117f6b855eb3891a.tar.gz gcc-a53b03b5a7b2cdb00aed0618117f6b855eb3891a.tar.bz2 | |
[Ada] Fix typo in exception message
2020-06-10 Arnaud Charlet <charlet@adacore.com>
gcc/ada/
* libgnat/s-secsta.adb (Round_Up): Fix typo in exception
message.
| -rw-r--r-- | gcc/ada/libgnat/s-secsta.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/libgnat/s-secsta.adb b/gcc/ada/libgnat/s-secsta.adb index 82f5494..0010449 100644 --- a/gcc/ada/libgnat/s-secsta.adb +++ b/gcc/ada/libgnat/s-secsta.adb @@ -573,7 +573,7 @@ package body System.Secondary_Stack is -- Treat this case as secondary-stack depletion. if Memory_Size'Last - Algn_MS < Size_MS then - raise Storage_Error with "secondary stack exhaused"; + raise Storage_Error with "secondary stack exhausted"; end if; return ((Size_MS + Algn_MS - 1) / Algn_MS) * Algn_MS; |