diff options
Diffstat (limited to 'gcc/ada/a-cforse.adb')
-rw-r--r-- | gcc/ada/a-cforse.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/a-cforse.adb b/gcc/ada/a-cforse.adb index 2b09018..cf4e2ab 100644 --- a/gcc/ada/a-cforse.adb +++ b/gcc/ada/a-cforse.adb @@ -584,7 +584,7 @@ is ------------------- function First_Element (Container : Set) return Element_Type is - Fst : constant Count_Type := First (Container).Node; + Fst : constant Count_Type := First (Container).Node; begin if Fst = 0 then raise Constraint_Error with "set is empty"; |