From a53b03b5a7b2cdb00aed0618117f6b855eb3891a Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Fri, 6 Mar 2020 06:13:36 -0500 Subject: [PATCH] [Ada] Fix typo in exception message 2020-06-10 Arnaud Charlet gcc/ada/ * libgnat/s-secsta.adb (Round_Up): Fix typo in exception message. --- 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; -- 2.30.2