From ac56253ddece35aff4402b848f88ba40856102b1 Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Wed, 7 Jul 2010 17:26:38 +0000 Subject: * dwarf2read.c (dwarf2_const_value) : Create a LOC_COMPUTED symbol. * dwarf2loc.c (dwarf2_evaluate_loc_desc): Set new field. (dwarf2_loc_desc_needs_frame): Likewise. (compile_dwarf_to_ax) : Use offset. * dwarf2expr.h (struct dwarf_expr_context) : New field. * dwarf2expr.c (execute_stack_op) : Use offset. * dwarf2-frame.c (execute_stack_op): Set 'offset' field. Add 'offset' argument. (struct dwarf2_frame_cache) : New field. (dwarf2_frame_cache): Set new field. (dwarf2_frame_prev_register): Update. (dwarf2_frame_sniffer): Update. (dwarf2_frame_base_sniffer): Update. (dwarf2_frame_find_fde): Add 'out_offset' argument. --- gdb/dwarf2expr.c | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'gdb/dwarf2expr.c') diff --git a/gdb/dwarf2expr.c b/gdb/dwarf2expr.c index af9fc0f..b9ae108 100644 --- a/gdb/dwarf2expr.c +++ b/gdb/dwarf2expr.c @@ -403,6 +403,12 @@ execute_stack_op (struct dwarf_expr_context *ctx, result = extract_unsigned_integer (op_ptr, ctx->addr_size, byte_order); op_ptr += ctx->addr_size; + /* Some versions of GCC emit DW_OP_addr before + DW_OP_GNU_push_tls_address. In this case the value is an + index, not an address. We don't support things like + branching between the address and the TLS op. */ + if (op_ptr >= op_end || *op_ptr != DW_OP_GNU_push_tls_address) + result += ctx->offset; break; case DW_OP_const1u: -- cgit v1.1