diff options
Diffstat (limited to 'gcc/ada/gcc-interface/utils.c')
| -rw-r--r-- | gcc/ada/gcc-interface/utils.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c index 5481507..a162069 100644 --- a/gcc/ada/gcc-interface/utils.c +++ b/gcc/ada/gcc-interface/utils.c @@ -3191,9 +3191,9 @@ create_label_decl (tree name, Node_Id gnat_node) } /* Return a FUNCTION_DECL node. NAME is the name of the subprogram, ASM_NAME - its assembler name, TYPE its type (a FUNCTION_TYPE node), PARAM_DECL_LIST - the list of its parameters (a list of PARM_DECL nodes chained through the - DECL_CHAIN field). + its assembler name, TYPE its type (a FUNCTION_TYPE or METHOD_TYPE node), + PARAM_DECL_LIST the list of its parameters (a list of PARM_DECL nodes + chained through the DECL_CHAIN field). INLINE_STATUS describes the inline flags to be set on the FUNCTION_DECL. @@ -3589,7 +3589,7 @@ gnat_useless_type_conversion (tree expr) return false; } -/* Return true if T, a FUNCTION_TYPE, has the specified list of flags. */ +/* Return true if T, a {FUNCTION,METHOD}_TYPE, has the specified flags. */ bool fntype_same_flags_p (const_tree t, tree cico_list, bool return_unconstrained_p, |