From: Arnaud Charlet <charlet@adacore.com>
Date: Mon, 28 May 2018 08:54:06 +0000 (+0000)
Subject: [Ada] Minor typo fix in exp_unst.adb
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=7ddbf09d33d36526daac8ab714566342b950ba7b;p=gcc.git

[Ada] Minor typo fix in exp_unst.adb

2018-05-28  Arnaud Charlet  <charlet@adacore.com>

gcc/ada/

	* exp_unst.adb: Fix typo.

From-SVN: r260827
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 8c1331d5524..3ef9e4f0631 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2018-05-28  Arnaud Charlet  <charlet@adacore.com>
+
+	* exp_unst.adb: Fix typo.
+
 2018-05-28  Bob Duff  <duff@adacore.com>
 
 	* libgnat/a-convec.adb (Query_Element): Minor cleanup: remove an
diff --git a/gcc/ada/exp_unst.adb b/gcc/ada/exp_unst.adb
index 0b2ed21cd19..3827bc88ed4 100644
--- a/gcc/ada/exp_unst.adb
+++ b/gcc/ada/exp_unst.adb
@@ -1721,7 +1721,7 @@ package body Exp_Unst is
                   --  have to find the activation record needed by the
                   --  callee. This is as follows:
 
-                  --    ARECaF.ARECbU.ARECcU....ARECm
+                  --    ARECaF.ARECbU.ARECcU....ARECmU
 
                   --  where a,b,c .. m =
                   --    STF.Lev - 1,  STF.Lev - 2, STF.Lev - 3 .. STT.Lev