* expression.h (enum exp_code): Added OP_NAME.

[binutils-gdb.git] / gdb / values.c

diff --git a/gdb/values.c b/gdb/values.c
index 33db594dfc5aa79b2077aa8c506f76d1b6772026..f4d01df083b887acfb532d7f58e31f644fd64616 100644 (file)
--- a/gdb/values.c
+++ b/gdb/values.c
@@ -630,6 +630,10 @@ unpack_long (type, valaddr)
   register int len = TYPE_LENGTH (type);
   register int nosign = TYPE_UNSIGNED (type);
 
+  if (current_language->la_language == language_scm
+      && is_scmvalue_type (type))
+    return scm_unpack (type, valaddr, TYPE_CODE_INT);
+
   switch (code)
     {
     case TYPE_CODE_ENUM: