diff options
Diffstat (limited to 'gdb/guile/scm-breakpoint.c')
| -rw-r--r-- | gdb/guile/scm-breakpoint.c | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/gdb/guile/scm-breakpoint.c b/gdb/guile/scm-breakpoint.c index d6c89aa..c358f0b 100644 --- a/gdb/guile/scm-breakpoint.c +++ b/gdb/guile/scm-breakpoint.c @@ -187,9 +187,9 @@ bpscm_print_breakpoint_smob (SCM self, SCM port, scm_print_state *pstate) gdbscm_printf (port, " hit:%d", b->hit_count); gdbscm_printf (port, " ignore:%d", b->ignore_count); - if (b->location != nullptr) + if (b->locspec != nullptr) { - const char *str = event_location_to_string (b->location.get ()); + const char *str = location_spec_to_string (b->locspec.get ()); if (str != nullptr) gdbscm_printf (port, " @%s", str); } @@ -448,10 +448,10 @@ gdbscm_register_breakpoint_x (SCM self) pending_breakpoint_scm = self; location = bp_smob->spec.location; copy = skip_spaces (location); - event_location_up eloc - = string_to_event_location_basic (©, - current_language, - symbol_name_match_type::WILD); + location_spec_up locspec + = string_to_location_spec_basic (©, + current_language, + symbol_name_match_type::WILD); try { @@ -463,9 +463,9 @@ gdbscm_register_breakpoint_x (SCM self) case bp_breakpoint: { const breakpoint_ops *ops = - breakpoint_ops_for_event_location (eloc.get (), false); + breakpoint_ops_for_location_spec (locspec.get (), false); create_breakpoint (get_current_arch (), - eloc.get (), NULL, -1, NULL, false, + locspec.get (), NULL, -1, NULL, false, 0, temporary, bp_breakpoint, 0, @@ -855,13 +855,13 @@ gdbscm_breakpoint_location (SCM self) { breakpoint_smob *bp_smob = bpscm_get_valid_breakpoint_smob_arg_unsafe (self, SCM_ARG1, FUNC_NAME); - const char *str; if (bp_smob->bp->type != bp_breakpoint) return SCM_BOOL_F; - str = event_location_to_string (bp_smob->bp->location.get ()); - if (! str) + const char *str + = location_spec_to_string (bp_smob->bp->locspec.get ()); + if (str == nullptr) str = ""; return gdbscm_scm_from_c_string (str); |