* serial.h (SERIAL_SET_TTY_STATE): Comment return value.

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

diff --git a/gdb/ch-valprint.c b/gdb/ch-valprint.c
index e1e5929134909013c7277ff4b3562e94c13bb12a..37ca0f4c00b62679567d64e3f03d8ddb4424402d 100644 (file)
--- a/gdb/ch-valprint.c
+++ b/gdb/ch-valprint.c
@@ -1,5 +1,6 @@
 /* Support for printing Chill values for GDB, the GNU debugger.
-   Copyright 1986, 1988, 1989, 1991 Free Software Foundation, Inc.
+   Copyright 1986, 1988, 1989, 1991, 1992, 1993, 1994
+   Free Software Foundation, Inc.
 
 This file is part of GDB.
 
@@ -157,7 +158,7 @@ chill_val_print (type, valaddr, address, stream, format, deref_ref, recurse,
        }
       if (addressprint && format != 's')
        {
-         fprintf_filtered (stream, "H'%lx", (unsigned long) addr);
+         print_address_numeric (addr, stream);
        }
       
       /* For a pointer to char or unsigned char, also print the string
@@ -264,8 +265,11 @@ chill_val_print (type, valaddr, address, stream, format, deref_ref, recurse,
     case TYPE_CODE_REF:
       if (addressprint)
         {
-         fprintf_filtered (stream, "LOC(H'%lx)",
-                           unpack_long (builtin_type_int, valaddr));
+         fprintf_filtered (stream, "LOC(");
+         print_address_numeric
+           (extract_address (valaddr, TARGET_PTR_BIT / HOST_CHAR_BIT),
+            stream);
+         fprintf_filtered (stream, ")");
          if (deref_ref)
            fputs_filtered (": ", stream);
         }