OpenE2K/binutils-gdb
12
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ada-lang.c:ada_value_primitive_packed_val: const correctness

Browse Source 
gdb/ChangeLog:
2015-10-13  Pedro Alves  <palves@redhat.com>

	* ada-lang.c (ada_value_primitive_packed_val): Constify
	locals.  Use value_contents_writeable.  Remove casts.
This commit is contained in:
Pedro Alves 2015-10-13 19:40:50 +01:00
parent aa5c10ce9b
commit bfb1c7963b
2 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gdb/ChangeLog
View File

@ -1,3 +1,8 @@
2015-10-13 Pedro Alves <palves@redhat.com>
* ada-lang.c (ada_value_primitive_packed_val): Constify
locals. Use value_contents_writeable. Remove casts.
2015-10-13 Pedro Alves <palves@redhat.com>
* ada-lang.c (ada_value_primitive_packed_val): Add casts to malloc

18
gdb/ada-lang.c
View File

@ -2525,7 +2525,7 @@ ada_value_primitive_packed_val (struct value *obj, const gdb_byte *valaddr,
struct type *type)
{
struct value *v;
gdb_byte *src; /* First byte containing data to unpack */
const gdb_byte *src; /* First byte containing data to unpack */
gdb_byte *unpacked;
const int is_scalar = is_scalar_type (type);
const int is_big_endian = gdbarch_bits_big_endian (get_type_arch (type));
@ -2536,9 +2536,9 @@ ada_value_primitive_packed_val (struct value *obj, const gdb_byte *valaddr,
type = ada_check_typedef (type);
if (obj == NULL)
src = (gdb_byte *) valaddr + offset;
src = valaddr + offset;
else
src = (gdb_byte *) value_contents (obj) + offset;
src = value_contents (obj) + offset;
if (is_dynamic_type (type))
{
@ -2574,20 +2574,22 @@ ada_value_primitive_packed_val (struct value *obj, const gdb_byte *valaddr,
if (obj == NULL)
{
v = allocate_value (type);
src = (gdb_byte *) valaddr + offset;
src = valaddr + offset;
}
else if (VALUE_LVAL (obj) == lval_memory && value_lazy (obj))
{
int src_len = (bit_size + bit_offset + HOST_CHAR_BIT - 1) / 8;
gdb_byte *buf;
v = value_at (type, value_address (obj) + offset);
src = (gdb_byte *) alloca (src_len);
read_memory (value_address (v), src, src_len);
buf = (gdb_byte *) alloca (src_len);
read_memory (value_address (v), buf, src_len);
src = buf;
}
else
{
v = allocate_value (type);
src = (gdb_byte *) value_contents (obj) + offset;
src = value_contents (obj) + offset;
}
if (obj != NULL)
@ -2610,7 +2612,7 @@ ada_value_primitive_packed_val (struct value *obj, const gdb_byte *valaddr,
}
else
set_value_bitsize (v, bit_size);
unpacked = (gdb_byte *) value_contents (v);
unpacked = value_contents_writeable (v);
if (bit_size == 0)
{