From: Thiago Jung Bauermann <thiago.bauermann@linaro.org>
Date: Thu, 4 Dec 2025 22:30:50 +0000 (-0300)
Subject: GDB: Guile: Remove code meant for Guile < 2.2
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=43ac12baae8e4812fecb0d880bd1f875dfd7c6f4;p=thirdparty%2Fbinutils-gdb.git

GDB: Guile: Remove code meant for Guile < 2.2

Approved-By: Tom Tromey <tom@tromey.com>
---

diff --git a/gdb/guile/scm-gsmob.c b/gdb/guile/scm-gsmob.c
index 7a7a69d2505..2fe825eefa3 100644
--- a/gdb/guile/scm-gsmob.c
+++ b/gdb/guile/scm-gsmob.c
@@ -105,27 +105,7 @@ gdbscm_make_smob_type (const char *name, size_t size)
 
   register_gsmob (result);
 
-#if SCM_MAJOR_VERSION == 2 && SCM_MINOR_VERSION == 0
-  /* Prior to Guile 2.1.0, smob classes were only exposed via exports
-     from the (oop goops) module.  */
-  SCM bound_name = scm_string_append (scm_list_3 (scm_from_latin1_string ("<"),
-						  scm_from_latin1_string (name),
-						  scm_from_latin1_string (">")));
-  bound_name = scm_string_to_symbol (bound_name);
-  SCM smob_type = scm_public_ref (scm_list_2 (scm_from_latin1_symbol ("oop"),
-					      scm_from_latin1_symbol ("goops")),
-				  bound_name);
-#elif SCM_MAJOR_VERSION == 2 && SCM_MINOR_VERSION == 1 && SCM_MICRO_VERSION == 0
-  /* Guile 2.1.0 doesn't provide any API for looking up smob classes.
-     We could try allocating a fake instance and using scm_class_of,
-     but it's probably not worth the trouble for the sake of a single
-     development release.  */
-#  error "Unsupported Guile version"
-#else
-  /* Guile 2.1.1 and above provides scm_smob_type_class.  */
   SCM smob_type = scm_smob_type_class (result);
-#endif
-
   SCM smob_type_name = scm_class_name (smob_type);
   scm_define (smob_type_name, smob_type);
   scm_module_export (scm_current_module (), scm_list_1 (smob_type_name));