[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