From: Lucy Kingsbury <lucymkingsbury@gmail.com>
Date: Sun, 16 Mar 2025 21:47:21 +0000 (-0400)
Subject: Fix Guile pretty printer display hints
X-Git-Tag: binutils-2_45~1165
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=06c982e72b097492b937153b809a4c9a3ef3c6f5;p=thirdparty%2Fbinutils-gdb.git

Fix Guile pretty printer display hints

All 3 valid Guile pretty printer display hints are treated as the
value "string". As a result, if a printer specifies "array" or
"map", the output is instead formatted as a string.

This humble patch corrects the issue.
---

diff --git a/gdb/guile/scm-pretty-print.c b/gdb/guile/scm-pretty-print.c
index 99fa243f9d7..128c318eb64 100644
--- a/gdb/guile/scm-pretty-print.c
+++ b/gdb/guile/scm-pretty-print.c
@@ -597,9 +597,9 @@ ppscm_get_display_hint_enum (SCM printer)
   if (scm_is_string (hint))
     {
       if (gdbscm_is_true (scm_string_equal_p (hint, ppscm_array_string)))
-	return HINT_STRING;
+	return HINT_ARRAY;
       if (gdbscm_is_true (scm_string_equal_p (hint, ppscm_map_string)))
-	return HINT_STRING;
+	return HINT_MAP;
       if (gdbscm_is_true (scm_string_equal_p (hint, ppscm_string_string)))
 	return HINT_STRING;
       return HINT_ERROR;