FreeChainXenon/binutils-gdb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

use gdb_byte in ada-lang.c::ada_value_primitive_packed_val...

Browse source 
... instead of "unsigned char".

gdb/Changelog:

        * ada-lang.c (ada_value_primitive_packed_val): Change the type
        of local variables src and unpacked to "gdb_type *" instead of
        "unsigned char *".
This commit is contained in:
Joel Brobecker 2015-10-09 14:10:18 -07:00
parent 086ca51f46
commit fbd000da7c
2 changed files with 11 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
gdb/ChangeLog
View file

@ -1,3 +1,9 @@
2015-10-09 Joel Brobecker <brobecker@adacore.com>
* ada-lang.c (ada_value_primitive_packed_val): Change the type
of local variables src and unpacked to "gdb_type *" instead of
"unsigned char *".
2015-10-09 Joel Brobecker <brobecker@adacore.com> 2015-10-09 Joel Brobecker <brobecker@adacore.com>
* ada-lang.c (ada_value_primitive_packed_val): Make the name * ada-lang.c (ada_value_primitive_packed_val): Make the name

10
gdb/ada-lang.c
View file

@ -2406,8 +2406,8 @@ ada_value_primitive_packed_val (struct value *obj, const gdb_byte *valaddr,
unusedLS, /* Number of bits in next significant unusedLS, /* Number of bits in next significant
byte of source that are unused */ byte of source that are unused */
accumSize; /* Number of meaningful bits in accum */ accumSize; /* Number of meaningful bits in accum */
unsigned char *src; /* First byte containing data to unpack */ gdb_byte *src; /* First byte containing data to unpack */
unsigned char *unpacked; gdb_byte *unpacked;
unsigned long accum; /* Staging area for bits being transferred */ unsigned long accum; /* Staging area for bits being transferred */
unsigned char sign; unsigned char sign;
int src_len = (bit_size + bit_offset + HOST_CHAR_BIT - 1) / 8; int src_len = (bit_size + bit_offset + HOST_CHAR_BIT - 1) / 8;
@ -2420,7 +2420,7 @@ ada_value_primitive_packed_val (struct value *obj, const gdb_byte *valaddr,
if (obj == NULL) if (obj == NULL)
{ {
v = allocate_value (type); v = allocate_value (type);
src = (unsigned char *) valaddr + offset; src = (gdb_byte *) valaddr + offset;
} }
else if (VALUE_LVAL (obj) == lval_memory && value_lazy (obj)) else if (VALUE_LVAL (obj) == lval_memory && value_lazy (obj))
{ {
@ -2443,7 +2443,7 @@ ada_value_primitive_packed_val (struct value *obj, const gdb_byte *valaddr,
else else
{ {
v = allocate_value (type); v = allocate_value (type);
src = (unsigned char *) value_contents (obj) + offset; src = (gdb_byte *) value_contents (obj) + offset;
} }
if (obj != NULL) if (obj != NULL)
@ -2466,7 +2466,7 @@ ada_value_primitive_packed_val (struct value *obj, const gdb_byte *valaddr,
} }
else else
set_value_bitsize (v, bit_size); set_value_bitsize (v, bit_size);
unpacked = (unsigned char *) value_contents (v); unpacked = (gdb_byte *) value_contents (v);
srcBitsLeft = bit_size; srcBitsLeft = bit_size;
src_bytes_left = src_len; src_bytes_left = src_len;