summaryrefslogtreecommitdiff
path: root/gcc/ada/sem_smem.adb
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/sem_smem.adb')
-rw-r--r--gcc/ada/sem_smem.adb4
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/sem_smem.adb b/gcc/ada/sem_smem.adb
index abce72485d1..38fa1fa2031 100644
--- a/gcc/ada/sem_smem.adb
+++ b/gcc/ada/sem_smem.adb
@@ -126,7 +126,7 @@ package body Sem_Smem is
if Is_Access_Type (Etype (C)) then
return True;
else
- C := Next_Discriminant (C);
+ Next_Discriminant (C);
end if;
end loop;
end if;
@@ -145,7 +145,7 @@ package body Sem_Smem is
then
return True;
else
- C := Next_Component (C);
+ Next_Component (C);
end if;
end loop;