diff options
| author | Andrew Cagney <cagney@redhat.com> | 2005-02-07 00:09:56 +0000 |
|---|---|---|
| committer | Andrew Cagney <cagney@redhat.com> | 2005-02-07 00:09:56 +0000 |
| commit | 0fd88904d91d1a137779cd5da6dc9d223fa88d14 (patch) | |
| tree | 34dfdde621bdd7cfcdbb59c69d53a749c7d48d8f /gdb/scm-exp.c | |
| parent | 1b3a857543e77eedd244b0d7d8cadce4e2e0500e (diff) | |
| download | gdb-0fd88904d91d1a137779cd5da6dc9d223fa88d14.zip gdb-0fd88904d91d1a137779cd5da6dc9d223fa88d14.tar.gz gdb-0fd88904d91d1a137779cd5da6dc9d223fa88d14.tar.bz2 | |
2005-02-06 Andrew Cagney <cagney@gnu.org>
* value.c (value_contents, value_contents_writeable): New
functions.
* value.h (VALUE_CONTENTS): Delete macro.
(value_contents, value_contents_writeable): Declare.
* xstormy16-tdep.c, value.c, valops.c, valarith.c: Update.
* stack.c, sparc-tdep.c, sparc64-tdep.c, sh-tdep.c: Update.
* sh64-tdep.c, scm-valprint.c, scm-exp.c, s390-tdep.c: Update.
* rs6000-tdep.c, p-valprint.c, printcmd.c: Update.
* ppc-sysv-tdep.c, mips-tdep.c, mi/mi-main.c: Update.
* m88k-tdep.c, m68hc11-tdep.c, m32r-tdep.c: Update.
* jv-valprint.c, ia64-tdep.c, hppa-tdep.c: Update.
* hpacc-abi.c, f-valprint.c, frv-tdep.c, eval.c: Update.
* c-valprint.c, cris-tdep.c, cp-valprint.c: Update.
* cli/cli-dump.c, breakpoint.c, avr-tdep.c, arm-tdep.c: Update.
* arm-linux-tdep.c, amd64-tdep.c, alpha-tdep.c: Update.
* ada-valprint.c, ada-lang.c: Update.
Diffstat (limited to 'gdb/scm-exp.c')
| -rw-r--r-- | gdb/scm-exp.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gdb/scm-exp.c b/gdb/scm-exp.c index 0de7428..529d278 100644 --- a/gdb/scm-exp.c +++ b/gdb/scm-exp.c @@ -1,6 +1,7 @@ /* Scheme/Guile language support routines for GDB, the GNU debugger. - Copyright 1995, 1996, 2000, 2003 Free Software Foundation, Inc. + Copyright 1995, 1996, 2000, 2003, 2005 Free Software Foundation, + Inc. This file is part of GDB. @@ -312,7 +313,7 @@ tryagain: struct value *val = scm_evaluate_string (str.ptr, lexptr - str.ptr); if (!is_scmvalue_type (value_type (val))) error ("quoted scm form yields non-SCM value"); - svalue = extract_signed_integer (VALUE_CONTENTS (val), + svalue = extract_signed_integer (value_contents (val), TYPE_LENGTH (value_type (val))); goto handle_immediate; } |