Toolchain/binutils-gdb
1
0
Fork 0
forked from Imagelibrary/binutils-gdb
Code Pull Requests Activity

2009-01-13 Jim Blandy <jimb@codesourcery.com>

Browse Source 
Abstract out common code for copying value locations.

	* value.h (set_value_component_location): New declaration.
	* value.c (set_value_component_location): New function.
	(value_primitive_field): Use it.
	* valarith.c (value_subscript, value_subscripted_rvalue): Same.
	* valops.c (search_struct_field, value_slice): Same.
	* ada-lang.c (coerce_unspec_val_to_type)
	(ada_value_primitive_packed_val): Same.
This commit is contained in:
Pedro Alves
2009-01-13 10:34:31 +00:00
parent d7dc3873fb
commit 74bcbdf3ce
6 changed files with 37 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
gdb/value.c
View File

@@ -627,6 +627,17 @@ value_copy (struct value *arg)
}
return val;
}
void
set_value_component_location (struct value *component, struct value *whole)
{
if (VALUE_LVAL (whole) == lval_internalvar)
VALUE_LVAL (component) = lval_internalvar_component;
else
VALUE_LVAL (component) = VALUE_LVAL (whole);
component->location = whole->location;
}
/* Access to the value history. */
@@ -1426,10 +1437,7 @@ value_primitive_field (struct value *arg1, int offset,
v->offset = (value_offset (arg1) + offset
+ value_embedded_offset (arg1));
}
VALUE_LVAL (v) = VALUE_LVAL (arg1);
if (VALUE_LVAL (arg1) == lval_internalvar)
VALUE_LVAL (v) = lval_internalvar_component;
v->location = arg1->location;
set_value_component_location (v, arg1);
VALUE_REGNUM (v) = VALUE_REGNUM (arg1);
VALUE_FRAME_ID (v) = VALUE_FRAME_ID (arg1);
return v;