aboutsummaryrefslogtreecommitdiff
path: root/gcc
diff options
context:
space:
mode:
Diffstat (limited to 'gcc')
-rw-r--r--gcc/ada/sem_ch12.adb4
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb
index 32a6333..bb49e83 100644
--- a/gcc/ada/sem_ch12.adb
+++ b/gcc/ada/sem_ch12.adb
@@ -7845,8 +7845,8 @@ package body Sem_Ch12 is
-- Adding e.g. a dummy variable of type Pt in the body is
-- sufficient to make everything work, so we generate an
-- artificial reference to Pt on the fly and thus force
- -- the switcthing of views on the ground that, if the
- -- comparison was accepted during the semantics analysis
+ -- the switching of views on the grounds that, if the
+ -- comparison was accepted during the semantic analysis
-- of the generic, this means that the component cannot
-- have been private (see Sem_Type.Valid_Comparison_Arg).