diff options
Diffstat (limited to 'gcc/ada/ali.adb')
-rw-r--r-- | gcc/ada/ali.adb | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/gcc/ada/ali.adb b/gcc/ada/ali.adb index 7508e81..d60d498 100644 --- a/gcc/ada/ali.adb +++ b/gcc/ada/ali.adb @@ -718,7 +718,7 @@ package body ALI is begin loop case Nextc is - when '[' => + when '[' => Nested_Brackets := Nested_Brackets + 1; when ']' => Nested_Brackets := Nested_Brackets - 1; @@ -1464,19 +1464,19 @@ package body ALI is C := Getc; case C is - when 'v' => - ALIs.Table (Id).Restrictions.Violated (R) := True; - Cumulative_Restrictions.Violated (R) := True; + when 'v' => + ALIs.Table (Id).Restrictions.Violated (R) := True; + Cumulative_Restrictions.Violated (R) := True; - when 'r' => - ALIs.Table (Id).Restrictions.Set (R) := True; - Cumulative_Restrictions.Set (R) := True; + when 'r' => + ALIs.Table (Id).Restrictions.Set (R) := True; + Cumulative_Restrictions.Set (R) := True; - when 'n' => - null; + when 'n' => + null; - when others => - raise Bad_R_Line; + when others => + raise Bad_R_Line; end case; end loop; |