diff options
| -rw-r--r-- | gcc/ada/checks.adb | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/gcc/ada/checks.adb b/gcc/ada/checks.adb index c1744208e..1b8e2df 100644 --- a/gcc/ada/checks.adb +++ b/gcc/ada/checks.adb @@ -6515,9 +6515,6 @@ package body Checks is -- Generate_Discriminant_Check -- --------------------------------- - -- Note: the code for this procedure is derived from the - -- Emit_Discriminant_Check Routine in trans.c. - procedure Generate_Discriminant_Check (N : Node_Id) is Loc : constant Source_Ptr := Sloc (N); Pref : constant Node_Id := Prefix (N); |