diff options
author | Andrew Cagney <cagney@redhat.com> | 2003-02-11 16:08:38 +0000 |
---|---|---|
committer | Andrew Cagney <cagney@redhat.com> | 2003-02-11 16:08:38 +0000 |
commit | 919e5cabfac48f45d1d0b8ec9ba49ce6ce3f03a1 (patch) | |
tree | 8dea433d58ad66c5ef1e9234199b635b04d2cb20 /gdb | |
parent | beb5a5e4abbac42e118fe87bd0def6de3f46686b (diff) | |
download | gdb-919e5cabfac48f45d1d0b8ec9ba49ce6ce3f03a1.tar.gz |
2003-02-10 Andrew Cagney <ac131313@redhat.com>
* generic/gdbtk-varobj.c (gdb_variable_command): Ditto for
`commands'.
(variable_type): Ditto for `first'.
(variable_obj_command): Ditto.
(variable_create): Ditto for create_options.
(variable_type): Ditto for `last'. Use `string' and not `first'
when modifying the buffer.
(struct disassembly_client_data ): Ditto for `asm_argv'
* generic/gdbtk-register.c (gdb_register_info): Ditto for
`commands'.
* generic/gdbtk-hooks.c (tk_command_loop): Ditto for `msg'.
* generic/gdbtk-cmds.c (gdb_search): Ditto for `switches'.
(gdbtk_load_source): Ditto for `text_argv'.
(struct disassembly_client_data ): Ditto for `source_argv'.
(gdbtk_load_asm): Ditto for `text_argv'.
(struct disassembly_client_data ): Ditto for `asm_argv'
(gdb_loadfile): Ditto for `text_argv'.
* generic/gdbtk.c (TclDebug): Make `v' a constant pointer.
(gdbtk_init): Ditto for `old_chain', `src_path', `msg', and
`lib_path'.
Diffstat (limited to 'gdb')
-rw-r--r-- | gdb/gdbtk/ChangeLog | 24 | ||||
-rw-r--r-- | gdb/gdbtk/generic/gdbtk-cmds.c | 14 | ||||
-rw-r--r-- | gdb/gdbtk/generic/gdbtk-hooks.c | 2 | ||||
-rw-r--r-- | gdb/gdbtk/generic/gdbtk-register.c | 2 | ||||
-rw-r--r-- | gdb/gdbtk/generic/gdbtk-varobj.c | 12 | ||||
-rw-r--r-- | gdb/gdbtk/generic/gdbtk.c | 15 |
6 files changed, 49 insertions, 20 deletions
diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog index 6ea514268e9..7e7332a80dd 100644 --- a/gdb/gdbtk/ChangeLog +++ b/gdb/gdbtk/ChangeLog @@ -1,4 +1,28 @@ +2003-02-10 Andrew Cagney <ac131313@redhat.com> + + * generic/gdbtk-varobj.c (gdb_variable_command): Ditto for + `commands'. + (variable_type): Ditto for `first'. + (variable_obj_command): Ditto. + (variable_create): Ditto for create_options. + (variable_type): Ditto for `last'. Use `string' and not `first' + when modifying the buffer. + (struct disassembly_client_data ): Ditto for `asm_argv' + * generic/gdbtk-register.c (gdb_register_info): Ditto for + `commands'. + * generic/gdbtk-hooks.c (tk_command_loop): Ditto for `msg'. + * generic/gdbtk-cmds.c (gdb_search): Ditto for `switches'. + (gdbtk_load_source): Ditto for `text_argv'. + (struct disassembly_client_data ): Ditto for `source_argv'. + (gdbtk_load_asm): Ditto for `text_argv'. + (struct disassembly_client_data ): Ditto for `asm_argv' + (gdb_loadfile): Ditto for `text_argv'. + * generic/gdbtk.c (TclDebug): Make `v' a constant pointer. + (gdbtk_init): Ditto for `old_chain', `src_path', `msg', and + `lib_path'. + 2003-02-10 Martin M. Hunt <hunt@redhat.com> + * library/browserwin.itb: Set textbackground option to $::Colors(textbg) instead of "white". diff --git a/gdb/gdbtk/generic/gdbtk-cmds.c b/gdb/gdbtk/generic/gdbtk-cmds.c index 04df91c24a4..f4a96696460 100644 --- a/gdb/gdbtk/generic/gdbtk-cmds.c +++ b/gdb/gdbtk/generic/gdbtk-cmds.c @@ -100,8 +100,8 @@ struct disassembly_client_data Tcl_Interp *interp; char *widget; Tcl_Obj *result_obj[3]; - char *asm_argv[14]; - char *source_argv[7]; + const char *asm_argv[14]; + const char *source_argv[7]; char *map_arr; Tcl_DString src_to_line_prefix; Tcl_DString pc_to_line_prefix; @@ -1226,9 +1226,9 @@ gdb_search (ClientData clientData, Tcl_Interp *interp, int static_only, nfiles; Tcl_Obj **file_list; char **files; - static char *search_options[] = + static const char *search_options[] = {"functions", "variables", "types", (char *) NULL}; - static char *switches[] = + static const char *switches[] = {"-files", "-filename", "-static", (char *) NULL}; enum search_opts { @@ -1784,7 +1784,7 @@ gdbtk_load_source (ClientData clientData, struct symtab *symtab, if (client_data->file_opened_p == 1) { - char **text_argv; + const char **text_argv; char line[10000], line_number[18]; int found_carriage_return = 1; @@ -1910,7 +1910,7 @@ gdbtk_load_asm (ClientData clientData, CORE_ADDR pc, { struct disassembly_client_data * client_data = (struct disassembly_client_data *) clientData; - char **text_argv; + const char **text_argv; int i, pc_to_line_len, line_to_pc_len; gdbtk_result new_result; struct cleanup *old_chain = NULL; @@ -2745,7 +2745,7 @@ gdb_loadfile (ClientData clientData, Tcl_Interp *interp, int objc, long mtime = 0; struct stat st; char line[10000], line_num_buf[18]; - char *text_argv[9]; + const char *text_argv[9]; Tcl_CmdInfo text_cmd; diff --git a/gdb/gdbtk/generic/gdbtk-hooks.c b/gdb/gdbtk/generic/gdbtk-hooks.c index 510c85a7b37..e0b3421e42d 100644 --- a/gdb/gdbtk/generic/gdbtk-hooks.c +++ b/gdb/gdbtk/generic/gdbtk-hooks.c @@ -374,7 +374,7 @@ tk_command_loop () if (Tcl_Eval (gdbtk_interp, "gdbtk_tcl_preloop") != TCL_OK) { - char *msg; + const char *msg; /* Force errorInfo to be set up propertly. */ Tcl_AddErrorInfo (gdbtk_interp, ""); diff --git a/gdb/gdbtk/generic/gdbtk-register.c b/gdb/gdbtk/generic/gdbtk-register.c index 6466407ae54..2bcade982a1 100644 --- a/gdb/gdbtk/generic/gdbtk-register.c +++ b/gdb/gdbtk/generic/gdbtk-register.c @@ -121,7 +121,7 @@ gdb_register_info (ClientData clientData, Tcl_Interp *interp, int objc, int index; void *argp; void (*func)(int, void *); - static char *commands[] = {"changed", "name", "size", "value", "type", + static const char *commands[] = {"changed", "name", "size", "value", "type", "format", "group", "grouplist", NULL}; enum commands_enum { REGINFO_CHANGED, REGINFO_NAME, REGINFO_SIZE, REGINFO_VALUE, REGINFO_TYPE, REGINFO_FORMAT, REGINFO_GROUP, REGINFO_GROUPLIST }; diff --git a/gdb/gdbtk/generic/gdbtk-varobj.c b/gdb/gdbtk/generic/gdbtk-varobj.c index d0cb07270a4..70e251fffbd 100644 --- a/gdb/gdbtk/generic/gdbtk-varobj.c +++ b/gdb/gdbtk/generic/gdbtk-varobj.c @@ -114,7 +114,7 @@ static int gdb_variable_command (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { - static char *commands[] = + static const char *commands[] = {"create", "list", NULL}; enum commands_enum { @@ -177,7 +177,7 @@ variable_obj_command (ClientData clientData, Tcl_Interp *interp, VARIABLE_EDITABLE, VARIABLE_UPDATE }; - static char *commands[] = + static const char *commands[] = { "delete", "numChildren", @@ -292,7 +292,7 @@ variable_create (Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { CREATE_EXPR, CREATE_FRAME }; - static char *create_options[] = + static const char *create_options[] = {"-expr", "-frame", NULL}; struct varobj *var; char *name; @@ -512,7 +512,9 @@ static int variable_type (Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], struct varobj *var) { - char *first, *last, *string; + const char *first; + const char *last; + char *string; Tcl_RegExp regexp; /* For the "fake" variables, do not return a type. @@ -536,7 +538,7 @@ variable_type (Tcl_Interp *interp, int objc, Tcl_RegExpRange (regexp, 0, &first, &last); if (*(first - 1) == ' ') first--; - *first = '\0'; + string[first - string] = '\0'; } Tcl_SetObjResult (interp, Tcl_NewStringObj (string, -1)); diff --git a/gdb/gdbtk/generic/gdbtk.c b/gdb/gdbtk/generic/gdbtk.c index 3efb6de9beb..d240866b8d2 100644 --- a/gdb/gdbtk/generic/gdbtk.c +++ b/gdb/gdbtk/generic/gdbtk.c @@ -185,7 +185,10 @@ void TclDebug (char level, const char *fmt,...) { va_list args; - char *buf, *v[3], *merge, *priority; + char *buf; + const char *v[3]; + char *merge; + char *priority; switch (level) { @@ -348,7 +351,7 @@ gdbtk_init (char *argv0) struct cleanup *old_chain; char *s; int element_count; - char **exec_path; + const char **exec_path; CONST char *internal_exec_name; /* If there is no DISPLAY environment variable, Tk_Init below will fail, @@ -439,8 +442,8 @@ gdbtk_init (char *argv0) { int i, count; char *src_dir = SRC_DIR; - char **src_path; - char **lib_path; + const char **src_path; + const char **lib_path; Tcl_DString lib_dstring; Tcl_DStringInit (&lib_dstring); @@ -454,7 +457,7 @@ gdbtk_init (char *argv0) Tcl_SplitPath (src_dir, &count, &src_path); /* Append tcl/library to src_dir (src_dir=/foo/bar/gdb) */ - lib_path = (char **) alloca ((count + 2) * sizeof (char *)); + lib_path = (const char **) alloca ((count + 2) * sizeof (char *)); for (i = 0; i < count - 1; i++) lib_path[i] = src_path[i]; lib_path[i++] = "tcl"; @@ -629,7 +632,7 @@ gdbtk_find_main"; if (Tcl_GlobalEval (gdbtk_interp, (char *) script) != TCL_OK) { - char *msg; + const char *msg; /* Force errorInfo to be set up propertly. */ Tcl_AddErrorInfo (gdbtk_interp, ""); |