* gdbtypes.c (make_pointer_type, make_reference_type,

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

diff --git a/gdb/scm-valprint.c b/gdb/scm-valprint.c
index 3e6ce5f029169eb89bd32a53ead007149dea958c..5200b790715a6486074891f7d5b9653d6d76543e 100644 (file)
--- a/gdb/scm-valprint.c
+++ b/gdb/scm-valprint.c
@@ -179,6 +179,8 @@ scm_scmval_print (struct type *type, LONGEST svalue,
                  struct ui_file *stream, int recurse,
                  const struct value_print_options *options)
 {
+  struct gdbarch *gdbarch = get_type_arch (type);
+
 #define SCM_SIZE (TYPE_LENGTH (type))
 taloop:
   switch (7 & (int) svalue)
@@ -193,7 +195,7 @@ taloop:
       if (SCM_ICHRP (svalue))
        {
          svalue = SCM_ICHR (svalue);
-         scm_printchar (svalue, builtin_type (current_gdbarch)->builtin_char,
+         scm_printchar (svalue, builtin_type (gdbarch)->builtin_char,
                         stream);
          break;
        }