aboutsummaryrefslogtreecommitdiff
path: root/gdb/guile
diff options
context:
space:
mode:
Diffstat (limited to 'gdb/guile')
-rw-r--r--gdb/guile/guile-internal.h5
-rw-r--r--gdb/guile/scm-auto-load.c5
2 files changed, 6 insertions, 4 deletions
diff --git a/gdb/guile/guile-internal.h b/gdb/guile/guile-internal.h
index 1fa60c5..c48547a 100644
--- a/gdb/guile/guile-internal.h
+++ b/gdb/guile/guile-internal.h
@@ -595,7 +595,10 @@ extern struct value *vlscm_convert_value_from_scheme
extern objfile_script_sourcer_func gdbscm_source_objfile_script;
extern objfile_script_executor_func gdbscm_execute_objfile_script;
-extern int gdbscm_auto_load_enabled (const struct extension_language_defn *);
+/* Return true if auto-loading Guile scripts is enabled.
+ This is the extension_language_script_ops.auto_load_enabled "method". */
+
+extern bool gdbscm_auto_load_enabled (const struct extension_language_defn *);
extern void gdbscm_preserve_values
(const struct extension_language_defn *,
diff --git a/gdb/guile/scm-auto-load.c b/gdb/guile/scm-auto-load.c
index 4a7b2e2..569a47f 100644
--- a/gdb/guile/scm-auto-load.c
+++ b/gdb/guile/scm-auto-load.c
@@ -41,10 +41,9 @@ show_auto_load_guile_scripts (struct ui_file *file, int from_tty,
fprintf_filtered (file, _("Auto-loading of Guile scripts is %s.\n"), value);
}
-/* Return non-zero if auto-loading Guile scripts is enabled.
- This is the extension_language_script_ops.auto_load_enabled "method". */
+/* See guile-internal.h. */
-int
+bool
gdbscm_auto_load_enabled (const struct extension_language_defn *extlang)
{
return auto_load_guile_scripts;