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/guile-internal.h | |
| 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/guile-internal.h')
| -rw-r--r-- | gdb/guile/guile-internal.h | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/gdb/guile/guile-internal.h b/gdb/guile/guile-internal.h index 03a2b1e..f28d084 100644 --- a/gdb/guile/guile-internal.h +++ b/gdb/guile/guile-internal.h @@ -121,6 +121,10 @@ extern const char gdbscm_init_module_name[]; extern int gdb_scheme_initialized; +extern int gdbscm_guile_major_version; +extern int gdbscm_guile_minor_version; +extern int gdbscm_guile_micro_version; + extern const char gdbscm_print_excp_none[]; extern const char gdbscm_print_excp_full[]; extern const char gdbscm_print_excp_message[]; @@ -168,6 +172,8 @@ extern int gdbscm_is_procedure (SCM proc); extern char *gdbscm_gc_xstrdup (const char *); extern const char * const *gdbscm_gc_dup_argv (char **argv); + +extern int gdbscm_guile_version_is_at_least (int major, int minor, int micro); /* GDB smobs, from scm-gsmob.c */ @@ -472,6 +478,8 @@ extern SCM psscm_scm_from_pspace (struct program_space *); /* scm-string.c */ +extern int gdbscm_scm_string_to_int (SCM string); + extern char *gdbscm_scm_to_c_string (SCM string); extern SCM gdbscm_scm_from_c_string (const char *string); |