* readelf.c (dump_section): Don't print 32-bit values, which

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

diff --git a/gdb/scm-valprint.c b/gdb/scm-valprint.c
index b7b3e104feaaa89e84ac45445bf360fe030df5d5..1ed9dc1bba344e34341f2879473494f4e3489d38 100644 (file)
--- a/gdb/scm-valprint.c
+++ b/gdb/scm-valprint.c
@@ -1,6 +1,6 @@
 /* Scheme/Guile language support routines for GDB, the GNU debugger.
 
-   Copyright 1995, 1996, 1998, 1999, 2000, 2001, 2005 Free Software
+   Copyright (C) 1995, 1996, 1998, 1999, 2000, 2001, 2005 Free Software
    Foundation, Inc.
 
    This file is part of GDB.
@@ -17,8 +17,8 @@
 
    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
-   Foundation, Inc., 59 Temple Place - Suite 330,
-   Boston, MA 02111-1307, USA.  */
+   Foundation, Inc., 51 Franklin Street, Fifth Floor,
+   Boston, MA 02110-1301, USA.  */
 
 #include "defs.h"
 #include "symtab.h"
@@ -220,7 +220,7 @@ taloop:
            int i;
            int done = 0;
            int buf_size;
-           char buffer[64];
+           gdb_byte buffer[64];
            int truncate = print_max && len > (int) print_max;
            if (truncate)
              len = print_max;
@@ -248,8 +248,8 @@ taloop:
          {
            int len = SCM_LENGTH (svalue);
 
-           char *str = (char *) alloca (len);
-           read_memory (SCM_CDR (svalue), str, len + 1);
+           char *str = alloca (len);
+           read_memory (SCM_CDR (svalue), (gdb_byte *) str, len + 1);
            /* Should handle weird characters FIXME */
            str[len] = '\0';
            fputs_filtered (str, stream);
@@ -359,7 +359,7 @@ taloop:
 }
 
 int
-scm_val_print (struct type *type, const bfd_byte *valaddr,
+scm_val_print (struct type *type, const gdb_byte *valaddr,
               int embedded_offset, CORE_ADDR address,
               struct ui_file *stream, int format, int deref_ref,
               int recurse, enum val_prettyprint pretty)
@@ -391,6 +391,5 @@ int
 scm_value_print (struct value *val, struct ui_file *stream, int format,
                 enum val_prettyprint pretty)
 {
-  return (val_print (value_type (val), value_contents (val), 0,
-                    VALUE_ADDRESS (val), stream, format, 1, 0, pretty));
+  return (common_val_print (val, stream, format, 1, 0, pretty));
 }