diff options
| author | Peter Schauer <Peter.Schauer@mytum.de> | 1994-01-25 21:03:56 +0000 |
|---|---|---|
| committer | Peter Schauer <Peter.Schauer@mytum.de> | 1994-01-25 21:03:56 +0000 |
| commit | 67e9b3b31b0297e0253ce59e4578c2f09bd42b21 (patch) | |
| tree | 2c2325cb23a11d9d0f9201c2e2cddf9c1d6425b7 /gdb/ch-valprint.c | |
| parent | 8638431e6668af5e971141f6764b4ef14682b738 (diff) | |
| download | gdb-67e9b3b31b0297e0253ce59e4578c2f09bd42b21.zip gdb-67e9b3b31b0297e0253ce59e4578c2f09bd42b21.tar.gz gdb-67e9b3b31b0297e0253ce59e4578c2f09bd42b21.tar.bz2 | |
* valops.c (value_assign): Set `type' after coercing toval.
* c-valprint.c (c_val_print), ch-valprint.c (chill_val_print):
Use extract_unsigned_integer to get the address of a reference.
Diffstat (limited to 'gdb/ch-valprint.c')
| -rw-r--r-- | gdb/ch-valprint.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gdb/ch-valprint.c b/gdb/ch-valprint.c index e1e5929..5cb21d3 100644 --- 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. @@ -265,7 +266,8 @@ chill_val_print (type, valaddr, address, stream, format, deref_ref, recurse, if (addressprint) { fprintf_filtered (stream, "LOC(H'%lx)", - unpack_long (builtin_type_int, valaddr)); + extract_unsigned_integer (valaddr, + TARGET_PTR_BIT / HOST_CHAR_BIT)); if (deref_ref) fputs_filtered (": ", stream); } |