diff options
| author | Doug Evans <xdje42@gmail.com> | 2014-06-06 15:57:03 -0700 |
|---|---|---|
| committer | Doug Evans <dje@google.com> | 2014-06-06 15:57:03 -0700 |
| commit | d2929fdcf05bb14dc2484ee6918dbf67c5b46d75 (patch) | |
| tree | 031eb52397389646d26efdefa250bc0aa1157334 /gdb/guile/scm-exception.c | |
| parent | 6da01dbef2535e333e2b26547d61e4684b8e4da7 (diff) | |
| download | binutils-d2929fdcf05bb14dc2484ee6918dbf67c5b46d75.zip binutils-d2929fdcf05bb14dc2484ee6918dbf67c5b46d75.tar.gz binutils-d2929fdcf05bb14dc2484ee6918dbf67c5b46d75.tar.bz2 | |
Add support for guile 2.0.5.
* guile/guile-internal.h (gdbscm_guile_major_version): Declare.
(gdbscm_guile_minor_version, gdbscm_guile_micro_version): Declare.
(gdbscm_guile_version_is_at_least): Declare.
(gdbscm_scm_string_to_int): Declare.
* guile/guile.c (gdbscm_guile_major_version): New global.
(gdbscm_guile_minor_version, gdbscm_guile_micro_version): New globals.
(guile_datadir): New static global.
(gdbscm_guile_data_directory): New function.
(initialize_scheme_side): Update.
(misc_guile_functions): Add guile-data-directory.
(initialize_gdb_module): Fetch guile version number.
* guile/lib/gdb.scm: Remove call to add-to-load-path.
* guile/lib/gdb/init.scm (%initialize!): Ditto.
* guile/lib/gdb/boot.scm: Use guile-data-directory.
* guile/scm-exception.c (gdbscm_print_exception_with_stack): Fix
comments.
* guile/scm-string.c (gdbscm_scm_string_to_int): New function.
* guile/scm-utils.c (gdbscm_guile_version_is_at_least): New function.
* guile/scm-value.c (gdbscm_value_to_string): Only call
scm_port_conversion_strategy if Guile version >= 2.0.6.
doc/
* guile.texi (Guile Configuration): Document guile-data-directory.
Diffstat (limited to 'gdb/guile/scm-exception.c')
| -rw-r--r-- | gdb/guile/scm-exception.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gdb/guile/scm-exception.c b/gdb/guile/scm-exception.c index 05f9617..d1df55b 100644 --- a/gdb/guile/scm-exception.c +++ b/gdb/guile/scm-exception.c @@ -521,7 +521,7 @@ gdbscm_print_exception_message (SCM port, SCM frame, SCM key, SCM args) KEY, ARGS are the standard arguments to scm_throw, et.al. Basically this function is just a wrapper around calling - %print-exception-with-args. */ + %print-exception-with-stack. */ void gdbscm_print_exception_with_stack (SCM port, SCM stack, SCM key, SCM args) @@ -536,7 +536,7 @@ gdbscm_print_exception_with_stack (SCM port, SCM stack, SCM key, SCM args) percent_print_exception_with_stack_var = scm_c_private_variable (gdbscm_init_module_name, percent_print_exception_with_stack_name); - /* If we can't find %print-exception-with-args, there's a problem on the + /* If we can't find %print-exception-with-stack, there's a problem on the Scheme side. Don't kill GDB, just flag an error and leave it at that. */ if (gdbscm_is_false (percent_print_exception_with_stack_var)) |