From: Arnaud Charlet <charlet@adacore.com>
Date: Fri, 6 Mar 2020 11:13:36 +0000 (-0500)
Subject: [Ada] Fix typo in exception message
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=a53b03b5a7b2cdb00aed0618117f6b855eb3891a;p=gcc.git

[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 --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;