From: Eric Botcazou <ebotca...@adacore.com>
gcc/ada/
* exp_ch3.adb (Make_Allocator_For_Return): Fix typo in comment.
Tested on x86_64-pc-linux-gnu, committed on master.
---
gcc/ada/exp_ch3.adb | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb
index daa96df4b32..abe71b252e7 100644
--- a/gcc/ada/exp_ch3.adb
+++ b/gcc/ada/exp_ch3.adb
@@ -7196,7 +7196,7 @@ package body Exp_Ch3 is
-- We always use the type of the expression for the qualified
-- expression, rather than the return object's type. We cannot
-- always use the return object's type because the expression
- -- might be of a specific type and the result object mignt not.
+ -- might be of a specific type and the return object mignt not.
Alloc :=
Make_Allocator (Loc,
--
2.34.1
