summaryrefslogtreecommitdiff
path: root/gcc/ada/sem_ch7.adb
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/sem_ch7.adb')
-rw-r--r--gcc/ada/sem_ch7.adb4
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/sem_ch7.adb b/gcc/ada/sem_ch7.adb
index ebeec699183..fe1bcb5f24f 100644
--- a/gcc/ada/sem_ch7.adb
+++ b/gcc/ada/sem_ch7.adb
@@ -1002,7 +1002,7 @@ package body Sem_Ch7 is
-- is both unnecessary and wrong, because it would cause the
-- clauses to be chained to themselves in the use clauses
-- list of the scope stack entry. That in turn would cause
- -- an endless loop from End_Use_Clauses upon sccope exit.
+ -- an endless loop from End_Use_Clauses upon scope exit.
-- The parent is now fully visible. It may be a hidden open
-- scope if we are currently compiling some child instance
@@ -1383,7 +1383,7 @@ package body Sem_Ch7 is
begin
-- If the full view is a scalar type, the type is the anonymous
-- base type, but the operation mentions the first subtype, so
- -- check the signature againt the base type.
+ -- check the signature against the base type.
if Base_Type (Etype (S)) = Base_Type (T) then
return True;