diff options
Diffstat (limited to 'gdb/guile')
| -rw-r--r-- | gdb/guile/scm-breakpoint.c | 3 | ||||
| -rw-r--r-- | gdb/guile/scm-cmd.c | 4 | ||||
| -rw-r--r-- | gdb/guile/scm-param.c | 2 |
3 files changed, 5 insertions, 4 deletions
diff --git a/gdb/guile/scm-breakpoint.c b/gdb/guile/scm-breakpoint.c index 71cffbb..9189446 100644 --- a/gdb/guile/scm-breakpoint.c +++ b/gdb/guile/scm-breakpoint.c @@ -851,7 +851,6 @@ gdbscm_breakpoint_expression (SCM self) { breakpoint_smob *bp_smob = bpscm_get_valid_breakpoint_smob_arg_unsafe (self, SCM_ARG1, FUNC_NAME); - char *str; struct watchpoint *wp; if (!is_watchpoint (bp_smob->bp)) @@ -859,7 +858,7 @@ gdbscm_breakpoint_expression (SCM self) wp = (struct watchpoint *) bp_smob->bp; - str = wp->exp_string; + const char *str = wp->exp_string; if (! str) str = ""; diff --git a/gdb/guile/scm-cmd.c b/gdb/guile/scm-cmd.c index 5f6d442..ae5d145 100644 --- a/gdb/guile/scm-cmd.c +++ b/gdb/guile/scm-cmd.c @@ -291,8 +291,10 @@ cmdscm_destroyer (struct cmd_list_element *self, void *context) /* Called by gdb to invoke the command. */ static void -cmdscm_function (struct cmd_list_element *command, char *args, int from_tty) +cmdscm_function (struct cmd_list_element *command, + char *args_entry, int from_tty) { + const char *args = args_entry; command_smob *c_smob/*obj*/ = (command_smob *) get_cmd_context (command); SCM arg_scm, tty_scm, result; diff --git a/gdb/guile/scm-param.c b/gdb/guile/scm-param.c index 6d2cc13..ab00fd9 100644 --- a/gdb/guile/scm-param.c +++ b/gdb/guile/scm-param.c @@ -602,7 +602,7 @@ pascm_param_value (enum var_types type, void *var, case var_filename: case var_enum: { - char *str = * (char **) var; + const char *str = *(char **) var; if (str == NULL) str = ""; |