diff options
Diffstat (limited to 'gdb/guile')
| -rw-r--r-- | gdb/guile/guile-internal.h | 2 | ||||
| -rw-r--r-- | gdb/guile/scm-cmd.c | 6 | ||||
| -rw-r--r-- | gdb/guile/scm-frame.c | 2 | ||||
| -rw-r--r-- | gdb/guile/scm-iterator.c | 4 | ||||
| -rw-r--r-- | gdb/guile/scm-math.c | 4 | ||||
| -rw-r--r-- | gdb/guile/scm-ports.c | 2 | ||||
| -rw-r--r-- | gdb/guile/scm-pretty-print.c | 8 | ||||
| -rw-r--r-- | gdb/guile/scm-value.c | 24 |
8 files changed, 26 insertions, 26 deletions
diff --git a/gdb/guile/guile-internal.h b/gdb/guile/guile-internal.h index c501e2b..bb2bc11 100644 --- a/gdb/guile/guile-internal.h +++ b/gdb/guile/guile-internal.h @@ -684,7 +684,7 @@ unpack (const gdb_exception &exc) if (exception.reason < 0) \ { \ gdbscm_throw_gdb_exception (exception); \ - /*NOTREACHED */ \ + /*NOTREACHED */ \ } \ } while (0) diff --git a/gdb/guile/scm-cmd.c b/gdb/guile/scm-cmd.c index 8fd2772..f4db411 100644 --- a/gdb/guile/scm-cmd.c +++ b/gdb/guile/scm-cmd.c @@ -635,9 +635,9 @@ gdbscm_canonicalize_command_name (const char *name, int want_trailing_space) One of the COMPLETE_* constants defined in the gdb module. A procedure of three arguments: (lambda (self text word) ...). Its result is one of: - A list of strings. - A <gdb:iterator> object that returns the set of possible completions, - ending with #f. + A list of strings. + A <gdb:iterator> object that returns the set of possible completions, + ending with #f. TODO(dje): Once PR 16699 is fixed, add support for returning a COMPLETE_* constant. If not specified, then completion is not supported for this command. diff --git a/gdb/guile/scm-frame.c b/gdb/guile/scm-frame.c index 3617eb7..211c663 100644 --- a/gdb/guile/scm-frame.c +++ b/gdb/guile/scm-frame.c @@ -1132,7 +1132,7 @@ Return the frame's symtab-and-line <gdb:sal> object." }, Return the value of the symbol in the frame.\n\ \n\ Arguments: <gdb:frame> <gdb:symbol>\n\ - Or: <gdb:frame> string [#:block <gdb:block>]" }, + Or: <gdb:frame> string [#:block <gdb:block>]" }, { "frame-read-register", 2, 0, 0, as_a_scm_t_subr (gdbscm_frame_read_register), diff --git a/gdb/guile/scm-iterator.c b/gdb/guile/scm-iterator.c index 1019bd9..36ab5c0 100644 --- a/gdb/guile/scm-iterator.c +++ b/gdb/guile/scm-iterator.c @@ -35,8 +35,8 @@ (let ((next! (lambda (iter) (let ((l (iterator-progress iter))) (if (eq? l '()) - end-marker - (begin + end-marker + (begin (set-iterator-progress! iter (cdr l)) (car l))))))) (make-iterator l l next!))) diff --git a/gdb/guile/scm-math.c b/gdb/guile/scm-math.c index c297c45..1aacab9 100644 --- a/gdb/guile/scm-math.c +++ b/gdb/guile/scm-math.c @@ -439,7 +439,7 @@ vlscm_rich_compare (int op, SCM x, SCM y, const char *func_name) int result; switch (op) { - case BINOP_LESS: + case BINOP_LESS: result = value_less (v1, v2); break; case BINOP_LEQ: @@ -451,7 +451,7 @@ vlscm_rich_compare (int op, SCM x, SCM y, const char *func_name) break; case BINOP_NOTEQUAL: gdb_assert_not_reached ("not-equal not implemented"); - case BINOP_GTR: + case BINOP_GTR: result = value_less (v2, v1); break; case BINOP_GEQ: diff --git a/gdb/guile/scm-ports.c b/gdb/guile/scm-ports.c index 17f8a30..66efdf4 100644 --- a/gdb/guile/scm-ports.c +++ b/gdb/guile/scm-ports.c @@ -269,7 +269,7 @@ ioscm_input_waiting (SCM port) { /* Guile doesn't export SIGINT hooks like Python does. For now pass EINTR to scm_syserror, that's what fports.c does. */ - scm_syserror (FUNC_NAME); + scm_syserror (FUNC_NAME); } return num_found > 0 && FD_ISSET (fdes, &input_fds); } diff --git a/gdb/guile/scm-pretty-print.c b/gdb/guile/scm-pretty-print.c index ccc6164..df09dae 100644 --- a/gdb/guile/scm-pretty-print.c +++ b/gdb/guile/scm-pretty-print.c @@ -824,10 +824,10 @@ ppscm_print_children (SCM printer, enum display_hint hint, 3. Other. Always print a ",". */ if (i == 0) { - if (printed_nothing) - fputs_filtered ("{", stream); - else - fputs_filtered (" = {", stream); + if (printed_nothing) + fputs_filtered ("{", stream); + else + fputs_filtered (" = {", stream); } else if (! is_map || i % 2 == 0) diff --git a/gdb/guile/scm-value.c b/gdb/guile/scm-value.c index ae7937c..5ba1f2c 100644 --- a/gdb/guile/scm-value.c +++ b/gdb/guile/scm-value.c @@ -471,17 +471,17 @@ gdbscm_value_referenced_value (SCM self) struct value *res_val; switch (check_typedef (value_type (value))->code ()) - { - case TYPE_CODE_PTR: - res_val = value_ind (value); - break; - case TYPE_CODE_REF: - res_val = coerce_ref (value); - break; - default: - error (_("Trying to get the referenced value from a value which is" + { + case TYPE_CODE_PTR: + res_val = value_ind (value); + break; + case TYPE_CODE_REF: + res_val = coerce_ref (value); + break; + default: + error (_("Trying to get the referenced value from a value which is" " neither a pointer nor a reference")); - } + } return vlscm_scm_from_value (res_val); }); @@ -1404,8 +1404,8 @@ characters to be replaced with \"?\". The default is \"error\".\n\ If LENGTH is provided, only fetch string to the length provided.\n\ \n\ Arguments: <gdb:value>\n\ - [#:encoding encoding] [#:errors \"error\"|\"substitute\"]\n\ - [#:length length]" }, + [#:encoding encoding] [#:errors \"error\"|\"substitute\"]\n\ + [#:length length]" }, { "value->lazy-string", 1, 0, 1, as_a_scm_t_subr (gdbscm_value_to_lazy_string), |