[gcc(refs/users/aoliva/heads/testme)] [Ada] Fix typo in exception message
Alexandre Oliva
aoliva@gcc.gnu.org
Wed Jun 10 21:22:27 GMT 2020
https://gcc.gnu.org/g:a53b03b5a7b2cdb00aed0618117f6b855eb3891a
commit a53b03b5a7b2cdb00aed0618117f6b855eb3891a
Author: Arnaud Charlet <charlet@adacore.com>
Date: Fri Mar 6 06:13:36 2020 -0500
[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.
Diff:
---
gcc/ada/libgnat/s-secsta.adb | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/gcc/ada/libgnat/s-secsta.adb b/gcc/ada/libgnat/s-secsta.adb
index 82f5494efb6..0010449ea94 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;
More information about the Gcc-cvs
mailing list