diff options
Diffstat (limited to 'gdb/values.c')
| -rw-r--r-- | gdb/values.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gdb/values.c b/gdb/values.c index 33db594..f4d01df 100644 --- 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: |