gdb:

[thirdparty/binutils-gdb.git] / gdb / scm-valprint.c

diff --git a/gdb/scm-valprint.c b/gdb/scm-valprint.c
index f0a7642f0e57347621a2806b547752a151d0cf50..a32add5b273cacdb73deaa13e1455e1dcb4d2500 100644 (file)
--- a/gdb/scm-valprint.c
+++ b/gdb/scm-valprint.c
@@ -187,7 +187,8 @@ taloop:
       if (SCM_ICHRP (svalue))
        {
          svalue = SCM_ICHR (svalue);
-         scm_printchar (svalue, stream);
+         scm_printchar (svalue, builtin_type (current_gdbarch)->builtin_char,
+                        stream);
          break;
        }
       else if (SCM_IFLAGP (svalue)