From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 84562 invoked by alias); 23 Sep 2017 04:30:45 -0000 Mailing-List: contact gdb-patches-help@sourceware.org; run by ezmlm Precedence: bulk List-Id: List-Subscribe: List-Archive: List-Post: List-Help: , Sender: gdb-patches-owner@sourceware.org Received: (qmail 84548 invoked by uid 89); 23 Sep 2017 04:30:44 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-26.0 required=5.0 tests=AWL,BAYES_00,GIT_PATCH_0,GIT_PATCH_1,GIT_PATCH_2,GIT_PATCH_3,RCVD_IN_DNSWL_NONE,RCVD_IN_SORBS_SPAM,SPF_PASS autolearn=ham version=3.3.2 spammy= X-HELO: gproxy6-pub.mail.unifiedlayer.com Received: from gproxy6-pub.mail.unifiedlayer.com (HELO gproxy6-pub.mail.unifiedlayer.com) (67.222.39.168) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Sat, 23 Sep 2017 04:30:42 +0000 Received: from cmgw2 (unknown [10.0.90.83]) by gproxy6.mail.unifiedlayer.com (Postfix) with ESMTP id E54421E0681 for ; Fri, 22 Sep 2017 22:30:40 -0600 (MDT) Received: from box522.bluehost.com ([74.220.219.122]) by cmgw2 with id CsWd1w01D2f2jeq01sWgnq; Fri, 22 Sep 2017 22:30:40 -0600 X-Authority-Analysis: v=2.2 cv=dZfw5Tfe c=1 sm=1 tr=0 a=GsOEXm/OWkKvwdLVJsfwcA==:117 a=GsOEXm/OWkKvwdLVJsfwcA==:17 a=2JCJgTwv5E4A:10 a=20KFwNOVAAAA:8 a=zstS-IiYAAAA:8 a=waOyEgefiQ1KSqB9J3gA:9 a=c19SHqLGZGVynOWS:21 a=X7JQhII3Rl_UVocb:21 a=4G6NA9xxw8l3yy4pmD5M:22 Received: from 75-166-76-94.hlrn.qwest.net ([75.166.76.94]:39174 helo=bapiya) by box522.bluehost.com with esmtpsa (TLSv1.2:ECDHE-RSA-AES256-GCM-SHA384:256) (Exim 4.87) (envelope-from ) id 1dvc5M-002nCm-Pk; Fri, 22 Sep 2017 22:30:37 -0600 From: Tom Tromey To: Pedro Alves Cc: Tom Tromey , gdb-patches@sourceware.org Subject: Re: [RFA 01/67] Add add_cmd function overloads References: <20170921051023.19023-1-tom@tromey.com> <20170921051023.19023-2-tom@tromey.com> Date: Sat, 23 Sep 2017 04:30:00 -0000 In-Reply-To: (Pedro Alves's message of "Thu, 21 Sep 2017 11:25:06 +0100") Message-ID: <87a81mghp2.fsf@tromey.com> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.0.50 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain X-BWhitelist: no X-Exim-ID: 1dvc5M-002nCm-Pk X-Source-Sender: 75-166-76-94.hlrn.qwest.net (bapiya) [75.166.76.94]:39174 X-Source-Auth: tom+tromey.com X-Email-Count: 20 X-Source-Cap: ZWx5bnJvYmk7ZWx5bnJvYmk7Ym94NTIyLmJsdWVob3N0LmNvbQ== X-Local-Domain: yes X-SW-Source: 2017-09/txt/msg00724.txt.bz2 >>>>> "Pedro" == Pedro Alves writes: Pedro> Can you please add some comments describing the difference between the Pedro> overloads? Here and in other cases. Here's the updated version. Tom diff --git a/gdb/ChangeLog b/gdb/ChangeLog index aa50dc9..4f4b7d7 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,22 @@ +2017-09-20 Tom Tromey + + * cli/cli-decode.c (add_cmd, set_cmd_cfunc): New function + overloads. + (do_add_cmd): Rename from add_cmd. Don't call set_cmd_cfunc. + (do_const_cfunc): New function. + (cmd_cfunc_eq): New overload. + (cli_user_command_p): Check do_const_cfunc. + * cli/cli-decode.h (struct cmd_list_element) : New field + const_cfunc. + * command.h (add_cmd): Add const overload and no-function + overload. + (set_cmd_cfunc): Add const overload. + (cmd_const_cfunc_ftype): Declare. + (cmd_cfunc_eq): Add const overload. + * breakpoint.c, cli-cmds.c, cli-dump.c, guile/scm-cmd.c, + python/py-cmd.c, target.c, tracepoint.c: Use no-function add_cmd + overload. + 2017-09-22 Tom Tromey * utils.c (class scoped_input_handler) : Change diff --git a/gdb/breakpoint.c b/gdb/breakpoint.c index 8585f5e..5549fe7 100644 --- a/gdb/breakpoint.c +++ b/gdb/breakpoint.c @@ -15414,13 +15414,13 @@ add_catch_command (const char *name, const char *docstring, { struct cmd_list_element *command; - command = add_cmd (name, class_breakpoint, NULL, docstring, + command = add_cmd (name, class_breakpoint, docstring, &catch_cmdlist); set_cmd_sfunc (command, sfunc); set_cmd_context (command, user_data_catch); set_cmd_completer (command, completer); - command = add_cmd (name, class_breakpoint, NULL, docstring, + command = add_cmd (name, class_breakpoint, docstring, &tcatch_cmdlist); set_cmd_sfunc (command, sfunc); set_cmd_context (command, user_data_tcatch); diff --git a/gdb/cli/cli-cmds.c b/gdb/cli/cli-cmds.c index cbafb13..67910be 100644 --- a/gdb/cli/cli-cmds.c +++ b/gdb/cli/cli-cmds.c @@ -1693,28 +1693,28 @@ _initialize_cli_cmds (void) /* Define the classes of commands. They will appear in the help list in alphabetical order. */ - add_cmd ("internals", class_maintenance, NULL, _("\ + add_cmd ("internals", class_maintenance, _("\ Maintenance commands.\n\ Some gdb commands are provided just for use by gdb maintainers.\n\ These commands are subject to frequent change, and may not be as\n\ well documented as user commands."), &cmdlist); - add_cmd ("obscure", class_obscure, NULL, _("Obscure features."), &cmdlist); - add_cmd ("aliases", class_alias, NULL, + add_cmd ("obscure", class_obscure, _("Obscure features."), &cmdlist); + add_cmd ("aliases", class_alias, _("Aliases of other commands."), &cmdlist); - add_cmd ("user-defined", class_user, NULL, _("\ + add_cmd ("user-defined", class_user, _("\ User-defined commands.\n\ The commands in this class are those defined by the user.\n\ Use the \"define\" command to define a command."), &cmdlist); - add_cmd ("support", class_support, NULL, _("Support facilities."), &cmdlist); + add_cmd ("support", class_support, _("Support facilities."), &cmdlist); if (!dbx_commands) - add_cmd ("status", class_info, NULL, _("Status inquiries."), &cmdlist); - add_cmd ("files", class_files, NULL, _("Specifying and examining files."), + add_cmd ("status", class_info, _("Status inquiries."), &cmdlist); + add_cmd ("files", class_files, _("Specifying and examining files."), &cmdlist); - add_cmd ("breakpoints", class_breakpoint, NULL, + add_cmd ("breakpoints", class_breakpoint, _("Making program stop at certain points."), &cmdlist); - add_cmd ("data", class_vars, NULL, _("Examining data."), &cmdlist); - add_cmd ("stack", class_stack, NULL, _("\ + add_cmd ("data", class_vars, _("Examining data."), &cmdlist); + add_cmd ("stack", class_stack, _("\ Examining the stack.\n\ The stack is made up of stack frames. Gdb assigns numbers to stack frames\n\ counting from zero for the innermost (currently executing) frame.\n\n\ @@ -1723,7 +1723,7 @@ Variable lookups are done with respect to the selected frame.\n\ When the program being debugged stops, gdb selects the innermost frame.\n\ The commands below can be used to select other frames by number or address."), &cmdlist); - add_cmd ("running", class_run, NULL, _("Running the program."), &cmdlist); + add_cmd ("running", class_run, _("Running the program."), &cmdlist); /* Define general commands. */ diff --git a/gdb/cli/cli-decode.c b/gdb/cli/cli-decode.c index 1bbbe46..fc4d468 100644 --- a/gdb/cli/cli-decode.c +++ b/gdb/cli/cli-decode.c @@ -109,14 +109,26 @@ do_cfunc (struct cmd_list_element *c, char *args, int from_tty) void set_cmd_cfunc (struct cmd_list_element *cmd, cmd_cfunc_ftype *cfunc) { - if (cfunc == NULL) - cmd->func = NULL; - else - cmd->func = do_cfunc; + gdb_assert (cfunc != NULL); + cmd->func = do_cfunc; cmd->function.cfunc = cfunc; /* Ok. */ } static void +do_const_cfunc (struct cmd_list_element *c, char *args, int from_tty) +{ + c->function.const_cfunc (args, from_tty); /* Ok. */ +} + +void +set_cmd_cfunc (struct cmd_list_element *cmd, cmd_const_cfunc_ftype *cfunc) +{ + gdb_assert (cfunc != NULL); + cmd->func = do_const_cfunc; + cmd->function.const_cfunc = cfunc; /* Ok. */ +} + +static void do_sfunc (struct cmd_list_element *c, char *args, int from_tty) { c->function.sfunc (args, from_tty, c); /* Ok. */ @@ -138,6 +150,12 @@ cmd_cfunc_eq (struct cmd_list_element *cmd, cmd_cfunc_ftype *cfunc) return cmd->func == do_cfunc && cmd->function.cfunc == cfunc; } +int +cmd_cfunc_eq (struct cmd_list_element *cmd, cmd_const_cfunc_ftype *cfunc) +{ + return cmd->func == do_const_cfunc && cmd->function.const_cfunc == cfunc; +} + void set_cmd_context (struct cmd_list_element *cmd, void *context) { @@ -189,9 +207,9 @@ set_cmd_completer_handle_brkchars (struct cmd_list_element *cmd, Returns a pointer to the added command (not necessarily the head of *LIST). */ -struct cmd_list_element * -add_cmd (const char *name, enum command_class theclass, cmd_cfunc_ftype *fun, - const char *doc, struct cmd_list_element **list) +static struct cmd_list_element * +do_add_cmd (const char *name, enum command_class theclass, + const char *doc, struct cmd_list_element **list) { struct cmd_list_element *c = XNEW (struct cmd_list_element); struct cmd_list_element *p, *iter; @@ -229,7 +247,6 @@ add_cmd (const char *name, enum command_class theclass, cmd_cfunc_ftype *fun, c->name = name; c->theclass = theclass; - set_cmd_cfunc (c, fun); set_cmd_context (c, NULL); c->doc = doc; c->cmd_deprecated = 0; @@ -259,6 +276,35 @@ add_cmd (const char *name, enum command_class theclass, cmd_cfunc_ftype *fun, return c; } +struct cmd_list_element * +add_cmd (const char *name, enum command_class theclass, cmd_cfunc_ftype *fun, + const char *doc, struct cmd_list_element **list) +{ + cmd_list_element *result = do_add_cmd (name, theclass, doc, list); + set_cmd_cfunc (result, fun); + return result; +} + +struct cmd_list_element * +add_cmd (const char *name, enum command_class theclass, + const char *doc, struct cmd_list_element **list) +{ + cmd_list_element *result = do_add_cmd (name, theclass, doc, list); + result->func = NULL; + result->function.cfunc = NULL; /* Ok. */ + return result; +} + +struct cmd_list_element * +add_cmd (const char *name, enum command_class theclass, + cmd_const_cfunc_ftype *fun, + const char *doc, struct cmd_list_element **list) +{ + cmd_list_element *result = do_add_cmd (name, theclass, doc, list); + set_cmd_cfunc (result, fun); + return result; +} + /* Deprecates a command CMD. REPLACEMENT is the name of the command which should be used in place of this command, or NULL if no such command exists. @@ -301,7 +347,7 @@ add_alias_cmd (const char *name, cmd_list_element *old, return 0; } - struct cmd_list_element *c = add_cmd (name, theclass, NULL, old->doc, list); + struct cmd_list_element *c = add_cmd (name, theclass, old->doc, list); /* If OLD->DOC can be freed, we should make another copy. */ if (old->doc_allocated) @@ -419,7 +465,7 @@ add_set_or_show_cmd (const char *name, const char *doc, struct cmd_list_element **list) { - struct cmd_list_element *c = add_cmd (name, theclass, NULL, doc, list); + struct cmd_list_element *c = add_cmd (name, theclass, doc, list); gdb_assert (type == set_cmd || type == show_cmd); c->type = type; @@ -1909,5 +1955,6 @@ int cli_user_command_p (struct cmd_list_element *cmd) { return (cmd->theclass == class_user - && (cmd->func == do_cfunc || cmd->func == do_sfunc)); + && (cmd->func == do_cfunc || cmd->func == do_sfunc + || cmd->func == do_const_cfunc)); } diff --git a/gdb/cli/cli-decode.h b/gdb/cli/cli-decode.h index 50b858c..691bfe3 100644 --- a/gdb/cli/cli-decode.h +++ b/gdb/cli/cli-decode.h @@ -114,6 +114,8 @@ struct cmd_list_element { /* If type is not_set_cmd, call it like this: */ cmd_cfunc_ftype *cfunc; + /* ... or like this. */ + cmd_const_cfunc_ftype *const_cfunc; /* If type is set_cmd or show_cmd, first set the variables, and then call this: */ cmd_sfunc_ftype *sfunc; diff --git a/gdb/cli/cli-dump.c b/gdb/cli/cli-dump.c index 8d57119..550548a 100644 --- a/gdb/cli/cli-dump.c +++ b/gdb/cli/cli-dump.c @@ -360,7 +360,7 @@ add_dump_command (const char *name, struct cmd_list_element *c; struct dump_context *d; - c = add_cmd (name, all_commands, NULL, descr, &dump_cmdlist); + c = add_cmd (name, all_commands, descr, &dump_cmdlist); c->completer = filename_completer; d = XNEW (struct dump_context); d->func = func; @@ -368,7 +368,7 @@ add_dump_command (const char *name, set_cmd_context (c, d); c->func = call_dump_func; - c = add_cmd (name, all_commands, NULL, descr, &append_cmdlist); + c = add_cmd (name, all_commands, descr, &append_cmdlist); c->completer = filename_completer; d = XNEW (struct dump_context); d->func = func; diff --git a/gdb/command.h b/gdb/command.h index 3a4a449..02e9a69 100644 --- a/gdb/command.h +++ b/gdb/command.h @@ -117,6 +117,7 @@ var_types; struct cmd_list_element; typedef void cmd_cfunc_ftype (char *args, int from_tty); +typedef void cmd_const_cfunc_ftype (const char *args, int from_tty); /* This structure specifies notifications to be suppressed by a cli command interpreter. */ @@ -140,6 +141,19 @@ extern struct cmd_list_element *add_cmd (const char *, enum command_class, const char *, struct cmd_list_element **); +/* Like add_cmd, but no command function is specified. */ + +extern struct cmd_list_element *add_cmd (const char *, enum command_class, + const char *, + struct cmd_list_element **); + +/* Const-correct variant of the above. */ + +extern struct cmd_list_element *add_cmd (const char *, enum command_class, + cmd_const_cfunc_ftype *fun, + const char *, + struct cmd_list_element **); + extern struct cmd_list_element *add_alias_cmd (const char *, const char *, enum command_class, int, struct cmd_list_element **); @@ -169,7 +183,14 @@ extern struct cmd_list_element *add_abbrev_prefix_cmd (const char *, /* Set the commands corresponding callback. */ extern void set_cmd_cfunc (struct cmd_list_element *cmd, - cmd_cfunc_ftype *cfunc); + cmd_cfunc_ftype *cfunc) + ATTRIBUTE_NONNULL (1) ATTRIBUTE_NONNULL (2); + +/* Const-correct variant of the above. */ + +extern void set_cmd_cfunc (struct cmd_list_element *cmd, + cmd_const_cfunc_ftype *cfunc) + ATTRIBUTE_NONNULL (1) ATTRIBUTE_NONNULL (2); typedef void cmd_sfunc_ftype (char *args, int from_tty, struct cmd_list_element *c); @@ -205,6 +226,8 @@ extern void set_cmd_completer_handle_brkchars (struct cmd_list_element *, around in cmd objects to test the value of the commands sfunc(). */ extern int cmd_cfunc_eq (struct cmd_list_element *cmd, cmd_cfunc_ftype *cfun); +extern int cmd_cfunc_eq (struct cmd_list_element *cmd, + cmd_const_cfunc_ftype *cfun); /* Each command object has a local context attached to it. */ extern void set_cmd_context (struct cmd_list_element *cmd, diff --git a/gdb/guile/scm-cmd.c b/gdb/guile/scm-cmd.c index 5501d31..0bd5105 100644 --- a/gdb/guile/scm-cmd.c +++ b/gdb/guile/scm-cmd.c @@ -774,7 +774,7 @@ gdbscm_register_command_x (SCM self) else { cmd = add_cmd (c_smob->cmd_name, c_smob->cmd_class, - NULL, c_smob->doc, cmd_list); + c_smob->doc, cmd_list); } } CATCH (except, RETURN_MASK_ALL) diff --git a/gdb/python/py-cmd.c b/gdb/python/py-cmd.c index 2a7c613..d969b12 100644 --- a/gdb/python/py-cmd.c +++ b/gdb/python/py-cmd.c @@ -612,7 +612,7 @@ cmdpy_init (PyObject *self, PyObject *args, PyObject *kw) pfx_name, allow_unknown, cmd_list); } else - cmd = add_cmd (cmd_name, (enum command_class) cmdtype, NULL, + cmd = add_cmd (cmd_name, (enum command_class) cmdtype, docstring, cmd_list); /* There appears to be no API to set this. */ diff --git a/gdb/target.c b/gdb/target.c index 5a2c087..c26fba7 100644 --- a/gdb/target.c +++ b/gdb/target.c @@ -386,7 +386,7 @@ Remaining arguments are interpreted by the target protocol. For more\n\ information on the arguments for a particular protocol, type\n\ `help target ' followed by the protocol name."), &targetlist, "target ", 0, &cmdlist); - c = add_cmd (t->to_shortname, no_class, NULL, t->to_doc, &targetlist); + c = add_cmd (t->to_shortname, no_class, t->to_doc, &targetlist); set_cmd_sfunc (c, open_target); set_cmd_context (c, t); if (completer != NULL) @@ -411,7 +411,7 @@ add_deprecated_target_alias (struct target_ops *t, const char *alias) /* If we use add_alias_cmd, here, we do not get the deprecated warning, see PR cli/15104. */ - c = add_cmd (alias, no_class, NULL, t->to_doc, &targetlist); + c = add_cmd (alias, no_class, t->to_doc, &targetlist); set_cmd_sfunc (c, open_target); set_cmd_context (c, t); alt = xstrprintf ("target %s", t->to_shortname); diff --git a/gdb/tracepoint.c b/gdb/tracepoint.c index 437db59..12cc2fb 100644 --- a/gdb/tracepoint.c +++ b/gdb/tracepoint.c @@ -4203,7 +4203,7 @@ _initialize_tracepoint (void) add_info ("scope", info_scope_command, _("List the variables local to a scope")); - add_cmd ("tracepoints", class_trace, NULL, + add_cmd ("tracepoints", class_trace, _("Tracing of program execution without stopping the program."), &cmdlist);