FreeChainXenon/binutils-gdb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add support for guile 2.0.5.

Browse source 
* 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.
This commit is contained in:
Doug Evans 2014-06-06 15:57:03 -07:00 • committed by Doug Evans
parent 6da01dbef2
commit d2929fdcf0
12 changed files with 127 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

19
gdb/guile/scm-utils.c
View file

@ -624,3 +624,22 @@ gdbscm_gc_dup_argv (char **argv)
return (const char * const *) result;
}
/* Return non-zero if the version of Guile being used it at least
MAJOR.MINOR.MICRO. */
int
gdbscm_guile_version_is_at_least (int major, int minor, int micro)
{
if (major > gdbscm_guile_major_version)
return 0;
if (major < gdbscm_guile_major_version)
return 1;
if (minor > gdbscm_guile_minor_version)
return 0;
if (minor < gdbscm_guile_minor_version)
return 1;
if (micro > gdbscm_guile_micro_version)
return 0;
return 1;
}